Imports System.Windows.Forms public class MessageBoxDefaultButtonDemo public Shared Sub Main Dim answer As DialogResult answer = MessageBox.Show("A", "B",MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) End Sub End class