Imports System.Windows.Forms public class MessageBoxOKCancelInformation public Shared Sub Main Dim answer As DialogResult answer = MessageBox.Show("A","B", MessageBoxButtons.OKCancel,MessageBoxIcon.Information) End Sub End class