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