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