VB.Net Tutorial/GUI/MessageBox

Материал из VB Эксперт
Перейти к: навигация, поиск

Create MessageBox dynamically

<source lang="vbnet">Imports System.Windows.Forms public class MessageBoxCreateDy

  public Shared Sub Main
       Application.Run(New frmMessageBox)
  End Sub

End class Public Class frmMessageBox

  Inherits System.Windows.Forms.Form
  1. Region " Windows Form Designer generated code "
  Public Sub New()
     MyBase.New()
     "This call is required by the Windows Form Designer.
     InitializeComponent()
     "Add any initialization after the InitializeComponent() call
  End Sub
  "Form overrides dispose to clean up the component list.
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
     If disposing Then
        If Not (components Is Nothing) Then
           components.Dispose()
        End If
     End If
     MyBase.Dispose(disposing)
  End Sub
  Friend WithEvents grpPromptandTitle As System.Windows.Forms.GroupBox
  Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  Friend WithEvents btnShow As System.Windows.Forms.Button
  Friend WithEvents Panel1 As System.Windows.Forms.Panel
  Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
  Friend WithEvents Panel2 As System.Windows.Forms.Panel
  Friend WithEvents Label1 As System.Windows.Forms.Label
  Friend WithEvents txtText As System.Windows.Forms.TextBox
  Friend WithEvents txtCaption As System.Windows.Forms.TextBox
  Friend WithEvents Label2 As System.Windows.Forms.Label
  Friend WithEvents rdoOKOnly As System.Windows.Forms.RadioButton
  Friend WithEvents Label3 As System.Windows.Forms.Label
  Friend WithEvents rdoAbRetry As System.Windows.Forms.RadioButton
  Friend WithEvents rdoError As System.Windows.Forms.RadioButton
  Friend WithEvents rdoExclamation As System.Windows.Forms.RadioButton
  Friend WithEvents rdoRetryCancel As System.Windows.Forms.RadioButton
  Friend WithEvents rdoInformation As System.Windows.Forms.RadioButton
  Friend WithEvents rdoYesNo As System.Windows.Forms.RadioButton
  Friend WithEvents rdoYesNoCancel As System.Windows.Forms.RadioButton
  Friend WithEvents rdoOKCancel As System.Windows.Forms.RadioButton
  Friend WithEvents Label4 As System.Windows.Forms.Label
  Friend WithEvents rdoNoIcon As System.Windows.Forms.RadioButton
  Friend WithEvents rdoQuestion As System.Windows.Forms.RadioButton
  "Required by the Windows Form Designer
  Private components As System.ruponentModel.IContainer
  "NOTE: The following procedure is required by the Windows Form Designer
  "It can be modified using the Windows Form Designer.  
  "Do not modify it using the code editor.
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
     Me.grpPromptandTitle = New System.Windows.Forms.GroupBox()
     Me.GroupBox1 = New System.Windows.Forms.GroupBox()
     Me.btnShow = New System.Windows.Forms.Button()
     Me.Panel1 = New System.Windows.Forms.Panel()
     Me.Splitter1 = New System.Windows.Forms.Splitter()
     Me.Panel2 = New System.Windows.Forms.Panel()
     Me.Label1 = New System.Windows.Forms.Label()
     Me.txtText = New System.Windows.Forms.TextBox()
     Me.txtCaption = New System.Windows.Forms.TextBox()
     Me.Label2 = New System.Windows.Forms.Label()
     Me.rdoOKOnly = New System.Windows.Forms.RadioButton()
     Me.Label3 = New System.Windows.Forms.Label()
     Me.rdoAbRetry = New System.Windows.Forms.RadioButton()
     Me.rdoError = New System.Windows.Forms.RadioButton()
     Me.rdoExclamation = New System.Windows.Forms.RadioButton()
     Me.rdoRetryCancel = New System.Windows.Forms.RadioButton()
     Me.rdoInformation = New System.Windows.Forms.RadioButton()
     Me.rdoYesNo = New System.Windows.Forms.RadioButton()
     Me.rdoYesNoCancel = New System.Windows.Forms.RadioButton()
     Me.rdoOKCancel = New System.Windows.Forms.RadioButton()
     Me.Label4 = New System.Windows.Forms.Label()
     Me.rdoNoIcon = New System.Windows.Forms.RadioButton()
     Me.rdoQuestion = New System.Windows.Forms.RadioButton()
     Me.grpPromptandTitle.SuspendLayout()
     Me.GroupBox1.SuspendLayout()
     Me.Panel1.SuspendLayout()
     Me.Panel2.SuspendLayout()
     Me.SuspendLayout()
     "
     "grpPromptandTitle
     "
     Me.grpPromptandTitle.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtCaption, Me.Label2, Me.txtText, Me.Label1})
     Me.grpPromptandTitle.Dock = System.Windows.Forms.DockStyle.Top
     Me.grpPromptandTitle.Name = "grpPromptandTitle"
     Me.grpPromptandTitle.Size = New System.Drawing.Size(456, 112)
     Me.grpPromptandTitle.TabIndex = 0
     Me.grpPromptandTitle.TabStop = False
     Me.grpPromptandTitle.Text = "Enter your text and caption:"
     "
     "GroupBox1
     "
     Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnShow})
     Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Bottom
     Me.GroupBox1.Location = New System.Drawing.Point(0, 350)
     Me.GroupBox1.Name = "GroupBox1"
     Me.GroupBox1.Size = New System.Drawing.Size(456, 48)
     Me.GroupBox1.TabIndex = 3
     Me.GroupBox1.TabStop = False
     "
     "btnShow
     "
     Me.btnShow.Location = New System.Drawing.Point(328, 16)
     Me.btnShow.Name = "btnShow"
     Me.btnShow.Size = New System.Drawing.Size(96, 24)
     Me.btnShow.TabIndex = 0
     Me.btnShow.Text = "SHOW"
     "
     "Panel1
     "
     Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.rdoRetryCancel, Me.rdoYesNo, Me.rdoYesNoCancel, Me.rdoAbRetry, Me.rdoOKCancel, Me.rdoOKOnly})
     Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
     Me.Panel1.Location = New System.Drawing.Point(0, 112)
     Me.Panel1.Name = "Panel1"
     Me.Panel1.Size = New System.Drawing.Size(200, 238)
     Me.Panel1.TabIndex = 1
     "
     "Splitter1
     "
     Me.Splitter1.Location = New System.Drawing.Point(200, 112)
     Me.Splitter1.Name = "Splitter1"
     Me.Splitter1.Size = New System.Drawing.Size(3, 238)
     Me.Splitter1.TabIndex = 3
     Me.Splitter1.TabStop = False
     "
     "Panel2
     "
     Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label4, Me.rdoExclamation, Me.rdoNoIcon, Me.rdoInformation, Me.rdoQuestion, Me.rdoError})
     Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
     Me.Panel2.Location = New System.Drawing.Point(203, 112)
     Me.Panel2.Name = "Panel2"
     Me.Panel2.Size = New System.Drawing.Size(253, 238)
     Me.Panel2.TabIndex = 2
     "
     "Label1
     "
     Me.Label1.Location = New System.Drawing.Point(16, 24)
     Me.Label1.Name = "Label1"
     Me.Label1.Size = New System.Drawing.Size(64, 24)
     Me.Label1.TabIndex = 0
     Me.Label1.Text = "Text:"
     "
     "txtText
     "
     Me.txtText.Location = New System.Drawing.Point(104, 24)
     Me.txtText.Name = "txtText"
     Me.txtText.Size = New System.Drawing.Size(320, 20)
     Me.txtText.TabIndex = 0
     Me.txtText.Text = ""
     "
     "txtCaption
     "
     Me.txtCaption.Location = New System.Drawing.Point(104, 64)
     Me.txtCaption.Name = "txtCaption"
     Me.txtCaption.Size = New System.Drawing.Size(320, 20)
     Me.txtCaption.TabIndex = 1
     Me.txtCaption.Text = ""
     "
     "Label2
     "
     Me.Label2.Location = New System.Drawing.Point(16, 64)
     Me.Label2.Name = "Label2"
     Me.Label2.Size = New System.Drawing.Size(64, 24)
     Me.Label2.TabIndex = 0
     Me.Label2.Text = "Caption:"
     "
     "rdoOKOnly
     "
     Me.rdoOKOnly.Checked = True
     Me.rdoOKOnly.Location = New System.Drawing.Point(8, 40)
     Me.rdoOKOnly.Name = "rdoOKOnly"
     Me.rdoOKOnly.Size = New System.Drawing.Size(160, 24)
     Me.rdoOKOnly.TabIndex = 2
     Me.rdoOKOnly.TabStop = True
     Me.rdoOKOnly.Text = "Ok Only"
     "
     "Label3
     "
     Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
     Me.Label3.Location = New System.Drawing.Point(24, 8)
     Me.Label3.Name = "Label3"
     Me.Label3.Size = New System.Drawing.Size(104, 24)
     Me.Label3.TabIndex = 0
     Me.Label3.Text = "Buttons"
     "
     "rdoAbRetry
     "
     Me.rdoAbRetry.Location = New System.Drawing.Point(8, 104)
     Me.rdoAbRetry.Name = "rdoAbRetry"
     Me.rdoAbRetry.Size = New System.Drawing.Size(160, 24)
     Me.rdoAbRetry.TabIndex = 4
     Me.rdoAbRetry.Text = "Abort, Retry, Ignore"
     "
     "rdoError
     "
     Me.rdoError.Checked = True
     Me.rdoError.Location = New System.Drawing.Point(24, 40)
     Me.rdoError.Name = "rdoError"
     Me.rdoError.Size = New System.Drawing.Size(88, 32)
     Me.rdoError.TabIndex = 1
     Me.rdoError.TabStop = True
     Me.rdoError.Text = "Error"
     "
     "rdoExclamation
     "
     Me.rdoExclamation.Location = New System.Drawing.Point(24, 112)
     Me.rdoExclamation.Name = "rdoExclamation"
     Me.rdoExclamation.Size = New System.Drawing.Size(88, 32)
     Me.rdoExclamation.TabIndex = 3
     Me.rdoExclamation.Text = "Exclamation"
     "
     "rdoRetryCancel
     "
     Me.rdoRetryCancel.Location = New System.Drawing.Point(8, 200)
     Me.rdoRetryCancel.Name = "rdoRetryCancel"
     Me.rdoRetryCancel.Size = New System.Drawing.Size(160, 24)
     Me.rdoRetryCancel.TabIndex = 0
     Me.rdoRetryCancel.Text = "Retry and Cancel"
     "
     "rdoInformation
     "
     Me.rdoInformation.Location = New System.Drawing.Point(136, 40)
     Me.rdoInformation.Name = "rdoInformation"
     Me.rdoInformation.Size = New System.Drawing.Size(88, 32)
     Me.rdoInformation.TabIndex = 4
     Me.rdoInformation.Text = "Information"
     "
     "rdoYesNo
     "
     Me.rdoYesNo.Location = New System.Drawing.Point(8, 168)
     Me.rdoYesNo.Name = "rdoYesNo"
     Me.rdoYesNo.Size = New System.Drawing.Size(160, 24)
     Me.rdoYesNo.TabIndex = 6
     Me.rdoYesNo.Text = "Yes and No"
     "
     "rdoYesNoCancel
     "
     Me.rdoYesNoCancel.Location = New System.Drawing.Point(8, 136)
     Me.rdoYesNoCancel.Name = "rdoYesNoCancel"
     Me.rdoYesNoCancel.Size = New System.Drawing.Size(160, 24)
     Me.rdoYesNoCancel.TabIndex = 5
     Me.rdoYesNoCancel.Text = "Yes, No, Cancel"
     "
     "rdoOKCancel
     "
     Me.rdoOKCancel.Location = New System.Drawing.Point(8, 72)
     Me.rdoOKCancel.Name = "rdoOKCancel"
     Me.rdoOKCancel.Size = New System.Drawing.Size(160, 24)
     Me.rdoOKCancel.TabIndex = 3
     Me.rdoOKCancel.Text = "Ok and  Cancel"
     "
     "Label4
     "
     Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
     Me.Label4.Location = New System.Drawing.Point(24, 8)
     Me.Label4.Name = "Label4"
     Me.Label4.Size = New System.Drawing.Size(80, 24)
     Me.Label4.TabIndex = 0
     Me.Label4.Text = "Icon"
     "
     "rdoNoIcon
     "
     Me.rdoNoIcon.Location = New System.Drawing.Point(136, 80)
     Me.rdoNoIcon.Name = "rdoNoIcon"
     Me.rdoNoIcon.Size = New System.Drawing.Size(88, 32)
     Me.rdoNoIcon.TabIndex = 5
     Me.rdoNoIcon.Text = "No Icon"
     "
     "rdoQuestion
     "
     Me.rdoQuestion.Location = New System.Drawing.Point(24, 80)
     Me.rdoQuestion.Name = "rdoQuestion"
     Me.rdoQuestion.Size = New System.Drawing.Size(88, 32)
     Me.rdoQuestion.TabIndex = 2
     Me.rdoQuestion.Text = "Question"
     "
     "frmMessageBox
     "
     Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
     Me.ClientSize = New System.Drawing.Size(456, 398)
     Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel2, Me.Splitter1, Me.Panel1, Me.GroupBox1, Me.grpPromptandTitle})
     Me.Name = "frmMessageBox"
     Me.Text = "Do the Message Box thing!"
     Me.grpPromptandTitle.ResumeLayout(False)
     Me.GroupBox1.ResumeLayout(False)
     Me.Panel1.ResumeLayout(False)
     Me.Panel2.ResumeLayout(False)
     Me.ResumeLayout(False)
  End Sub
  1. End Region
  Private Sub btnShow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShow.Click
     Dim buttonchoice As MessageBoxButtons
     Dim iconchoice As MessageBoxIcon
     Dim answer As DialogResult
     If rdoOKOnly.Checked = True Then
        buttonchoice = MessageBoxButtons.OK 
     ElseIf rdoOKCancel.Checked = True Then
        buttonchoice = MessageBoxButtons.OKCancel 
     ElseIf rdoAbRetry.Checked = True Then
        buttonchoice = MessageBoxButtons.AbortRetryIgnore
     ElseIf rdoYesNoCancel.Checked = True Then
        buttonchoice = MessageBoxButtons.YesNoCancel  
     ElseIf rdoYesNo.Checked = True Then
        buttonchoice = MessageBoxButtons.YesNo  
     ElseIf rdoRetryCancel.Checked = True Then
        buttonchoice = MessageBoxButtons.RetryCancel  
     Else
        MessageBox.Show("Unexpected error in button selection!")
     End If
     If rdoError.Checked = True Then
        iconchoice = MessageBoxIcon.Error   
     ElseIf rdoQuestion.Checked = True Then
        iconchoice = MessageBoxIcon.Question
     ElseIf rdoExclamation.Checked = True Then
        iconchoice = MessageBoxIcon.Exclamation   
     ElseIf rdoInformation.Checked = True Then
        iconchoice = MessageBoxIcon.Information   
     ElseIf rdoNoIcon.Checked = True Then
        iconchoice = MessageBoxIcon.None
     Else
        MessageBox.Show("Unexpected error in icon selection!")
     End If
     answer = MessageBox.Show(txtText.Text, txtCaption.Text, _
        buttonchoice, iconchoice)
     Dim evaluate As String
     If answer = DialogResult.OK Then
        evaluate = "You clicked OK!"
     ElseIf answer = DialogResult.Cancel Then
        evaluate = "You clicked Cancel!"
     ElseIf answer = DialogResult.Abort Then
        evaluate = "You clicked Abort!"
     ElseIf answer = DialogResult.Retry Then
        evaluate = "You clicked Retry!"
     ElseIf answer = DialogResult.Ignore Then
        evaluate = "You clicked Ignore!"
     ElseIf answer = DialogResult.Yes Then
        evaluate = "You clicked Yes!"
     ElseIf answer = DialogResult.No Then
        evaluate = "You clicked No!"
     Else
        evaluate = "Nothing was clicked!"
     End If
     MessageBox.Show(evaluate, "Message Box Evaluation", _
        MessageBoxButtons.OK, MessageBoxIcon.Information)
  End Sub

End Class</source>

Custom your MessageBox

<source lang="vbnet">Imports System.IO Imports System.Text.Encoding Imports System.Drawing Imports System.Drawing.Printing Imports System.Windows.Forms public class CustomMessageBox

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class

Public Class Form1

 Inherits System.Windows.Forms.Form
 Public Sub New()
   MyBase.New()
   InitializeComponent()
 End Sub
 Private components As System.ruponentModel.IContainer
 Friend WithEvents Label1 As System.Windows.Forms.Label
 Friend WithEvents btnShow As System.Windows.Forms.Button
 Friend WithEvents txtMsg As System.Windows.Forms.TextBox
 Friend WithEvents txtCaption As System.Windows.Forms.TextBox
 Friend WithEvents Label2 As System.Windows.Forms.Label
 Friend WithEvents grpDefaultButton As System.Windows.Forms.GroupBox
 Friend WithEvents DefaultButton3 As System.Windows.Forms.RadioButton
 Friend WithEvents DefaultButton2 As System.Windows.Forms.RadioButton
 Friend WithEvents DefaultButton1 As System.Windows.Forms.RadioButton
 Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
 Friend WithEvents Button6 As System.Windows.Forms.RadioButton
 Friend WithEvents Button5 As System.Windows.Forms.RadioButton
 Friend WithEvents Button4 As System.Windows.Forms.RadioButton
 Friend WithEvents Button3 As System.Windows.Forms.RadioButton
 Friend WithEvents Button2 As System.Windows.Forms.RadioButton
 Friend WithEvents Button1 As System.Windows.Forms.RadioButton
 Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
 Friend WithEvents txtResult As System.Windows.Forms.TextBox
 Friend WithEvents lblResult As System.Windows.Forms.Label
 Friend WithEvents Icon8 As System.Windows.Forms.RadioButton
 Friend WithEvents Icon7 As System.Windows.Forms.RadioButton
 Friend WithEvents Icon6 As System.Windows.Forms.RadioButton
 Friend WithEvents Icon5 As System.Windows.Forms.RadioButton
 Friend WithEvents Icon4 As System.Windows.Forms.RadioButton
 Friend WithEvents Icon3 As System.Windows.Forms.RadioButton
 Friend WithEvents Icon2 As System.Windows.Forms.RadioButton
 Friend WithEvents Icon1 As System.Windows.Forms.RadioButton
 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
   Me.txtMsg = New System.Windows.Forms.TextBox()
   Me.Label1 = New System.Windows.Forms.Label()
   Me.btnShow = New System.Windows.Forms.Button()
   Me.txtCaption = New System.Windows.Forms.TextBox()
   Me.Label2 = New System.Windows.Forms.Label()
   Me.grpDefaultButton = New System.Windows.Forms.GroupBox()
   Me.DefaultButton3 = New System.Windows.Forms.RadioButton()
   Me.DefaultButton2 = New System.Windows.Forms.RadioButton()
   Me.DefaultButton1 = New System.Windows.Forms.RadioButton()
   Me.GroupBox2 = New System.Windows.Forms.GroupBox()
   Me.Button6 = New System.Windows.Forms.RadioButton()
   Me.Button5 = New System.Windows.Forms.RadioButton()
   Me.Button4 = New System.Windows.Forms.RadioButton()
   Me.Button3 = New System.Windows.Forms.RadioButton()
   Me.Button2 = New System.Windows.Forms.RadioButton()
   Me.Button1 = New System.Windows.Forms.RadioButton()
   Me.GroupBox1 = New System.Windows.Forms.GroupBox()
   Me.Icon8 = New System.Windows.Forms.RadioButton()
   Me.Icon7 = New System.Windows.Forms.RadioButton()
   Me.Icon6 = New System.Windows.Forms.RadioButton()
   Me.Icon5 = New System.Windows.Forms.RadioButton()
   Me.Icon4 = New System.Windows.Forms.RadioButton()
   Me.Icon3 = New System.Windows.Forms.RadioButton()
   Me.Icon2 = New System.Windows.Forms.RadioButton()
   Me.Icon1 = New System.Windows.Forms.RadioButton()
   Me.txtResult = New System.Windows.Forms.TextBox()
   Me.lblResult = New System.Windows.Forms.Label()
   Me.grpDefaultButton.SuspendLayout()
   Me.GroupBox2.SuspendLayout()
   Me.GroupBox1.SuspendLayout()
   Me.SuspendLayout()
   "
   "txtMsg
   "
   Me.txtMsg.Location = New System.Drawing.Point(68, 8)
   Me.txtMsg.Name = "txtMsg"
   Me.txtMsg.Size = New System.Drawing.Size(200, 22)
   Me.txtMsg.TabIndex = 0
   Me.txtMsg.Text = ""
   "
   "Label1
   "
   Me.Label1.Location = New System.Drawing.Point(12, 12)
   Me.Label1.Name = "Label1"
   Me.Label1.Size = New System.Drawing.Size(60, 16)
   Me.Label1.TabIndex = 13
   Me.Label1.Text = "Message:"
   "
   "btnShow
   "
   Me.btnShow.Location = New System.Drawing.Point(280, 8)
   Me.btnShow.Name = "btnShow"
   Me.btnShow.Size = New System.Drawing.Size(76, 24)
   Me.btnShow.TabIndex = 5
   Me.btnShow.Text = "Show"
   "
   "txtCaption
   "
   Me.txtCaption.Location = New System.Drawing.Point(68, 36)
   Me.txtCaption.Name = "txtCaption"
   Me.txtCaption.Size = New System.Drawing.Size(200, 22)
   Me.txtCaption.TabIndex = 1
   Me.txtCaption.Text = ""
   "
   "Label2
   "
   Me.Label2.Location = New System.Drawing.Point(12, 40)
   Me.Label2.Name = "Label2"
   Me.Label2.Size = New System.Drawing.Size(60, 16)
   Me.Label2.TabIndex = 16
   Me.Label2.Text = "Caption:"
   "
   "grpDefaultButton
   "
   Me.grpDefaultButton.Controls.AddRange(New System.Windows.Forms.Control() {Me.DefaultButton3, Me.DefaultButton2, Me.DefaultButton1})
   Me.grpDefaultButton.Location = New System.Drawing.Point(208, 72)
   Me.grpDefaultButton.Name = "grpDefaultButton"
   Me.grpDefaultButton.Size = New System.Drawing.Size(144, 124)
   Me.grpDefaultButton.TabIndex = 4
   Me.grpDefaultButton.TabStop = False
   Me.grpDefaultButton.Text = "Default Button"
   "
   "DefaultButton3
   "
   Me.DefaultButton3.Location = New System.Drawing.Point(12, 68)
   Me.DefaultButton3.Name = "DefaultButton3"
   Me.DefaultButton3.Size = New System.Drawing.Size(100, 20)
   Me.DefaultButton3.TabIndex = 2
   Me.DefaultButton3.Text = "DefaultButton3"
   "
   "DefaultButton2
   "
   Me.DefaultButton2.Location = New System.Drawing.Point(12, 44)
   Me.DefaultButton2.Name = "DefaultButton2"
   Me.DefaultButton2.Size = New System.Drawing.Size(100, 20)
   Me.DefaultButton2.TabIndex = 1
   Me.DefaultButton2.Text = "DefaultButton2"
   "
   "DefaultButton1
   "
   Me.DefaultButton1.Checked = True
   Me.DefaultButton1.Location = New System.Drawing.Point(12, 20)
   Me.DefaultButton1.Name = "DefaultButton1"
   Me.DefaultButton1.Size = New System.Drawing.Size(100, 20)
   Me.DefaultButton1.TabIndex = 0
   Me.DefaultButton1.TabStop = True
   Me.DefaultButton1.Text = "DefaultButton1"
   "
   "GroupBox2
   "
   Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button6, Me.Button5, Me.Button4, Me.Button3, Me.Button2, Me.Button1})
   Me.GroupBox2.Location = New System.Drawing.Point(12, 200)
   Me.GroupBox2.Name = "GroupBox2"
   Me.GroupBox2.Size = New System.Drawing.Size(188, 160)
   Me.GroupBox2.TabIndex = 3
   Me.GroupBox2.TabStop = False
   Me.GroupBox2.Text = "Buttons"
   "
   "Button6
   "
   Me.Button6.Location = New System.Drawing.Point(12, 133)
   Me.Button6.Name = "Button6"
   Me.Button6.Size = New System.Drawing.Size(100, 19)
   Me.Button6.TabIndex = 5
   Me.Button6.Text = "YesNoCancel"
   "
   "Button5
   "
   Me.Button5.Checked = True
   Me.Button5.Location = New System.Drawing.Point(12, 110)
   Me.Button5.Name = "Button5"
   Me.Button5.Size = New System.Drawing.Size(100, 20)
   Me.Button5.TabIndex = 4
   Me.Button5.TabStop = True
   Me.Button5.Text = "YesNo"
   "
   "Button4
   "
   Me.Button4.Location = New System.Drawing.Point(12, 86)
   Me.Button4.Name = "Button4"
   Me.Button4.Size = New System.Drawing.Size(100, 21)
   Me.Button4.TabIndex = 3
   Me.Button4.Text = "RetryCancel"
   "
   "Button3
   "
   Me.Button3.Location = New System.Drawing.Point(12, 65)
   Me.Button3.Name = "Button3"
   Me.Button3.Size = New System.Drawing.Size(100, 18)
   Me.Button3.TabIndex = 2
   Me.Button3.Text = "OKCancel"
   "
   "Button2
   "
   Me.Button2.Location = New System.Drawing.Point(12, 43)
   Me.Button2.Name = "Button2"
   Me.Button2.Size = New System.Drawing.Size(100, 19)
   Me.Button2.TabIndex = 1
   Me.Button2.Text = "OK"
   "
   "Button1
   "
   Me.Button1.Location = New System.Drawing.Point(12, 20)
   Me.Button1.Name = "Button1"
   Me.Button1.Size = New System.Drawing.Size(112, 20)
   Me.Button1.TabIndex = 0
   Me.Button1.Text = "AbortRetryIgnore"
   "
   "GroupBox1
   "
   Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Icon8, Me.Icon7, Me.Icon6, Me.Icon5, Me.Icon4, Me.Icon3, Me.Icon2, Me.Icon1})
   Me.GroupBox1.Location = New System.Drawing.Point(12, 72)
   Me.GroupBox1.Name = "GroupBox1"
   Me.GroupBox1.Size = New System.Drawing.Size(188, 124)
   Me.GroupBox1.TabIndex = 2
   Me.GroupBox1.TabStop = False
   Me.GroupBox1.Text = "Icon"
   "
   "Icon8
   "
   Me.Icon8.Location = New System.Drawing.Point(100, 92)
   Me.Icon8.Name = "Icon8"
   Me.Icon8.Size = New System.Drawing.Size(64, 20)
   Me.Icon8.TabIndex = 7
   Me.Icon8.Text = "Warning"
   "
   "Icon7
   "
   Me.Icon7.Location = New System.Drawing.Point(12, 92)
   Me.Icon7.Name = "Icon7"
   Me.Icon7.Size = New System.Drawing.Size(84, 20)
   Me.Icon7.TabIndex = 6
   Me.Icon7.Text = "Stop"
   "
   "Icon6
   "
   Me.Icon6.Location = New System.Drawing.Point(100, 68)
   Me.Icon6.Name = "Icon6"
   Me.Icon6.Size = New System.Drawing.Size(64, 20)
   Me.Icon6.TabIndex = 5
   Me.Icon6.Text = "Question"
   "
   "Icon5
   "
   Me.Icon5.Checked = True
   Me.Icon5.Location = New System.Drawing.Point(12, 68)
   Me.Icon5.Name = "Icon5"
   Me.Icon5.Size = New System.Drawing.Size(84, 20)
   Me.Icon5.TabIndex = 4
   Me.Icon5.TabStop = True
   Me.Icon5.Text = "Information"
   "
   "Icon4
   "
   Me.Icon4.Location = New System.Drawing.Point(100, 44)
   Me.Icon4.Name = "Icon4"
   Me.Icon4.Size = New System.Drawing.Size(64, 20)
   Me.Icon4.TabIndex = 3
   Me.Icon4.Text = "Hand"
   "
   "Icon3
   "
   Me.Icon3.Location = New System.Drawing.Point(12, 44)
   Me.Icon3.Name = "Icon3"
   Me.Icon3.Size = New System.Drawing.Size(84, 20)
   Me.Icon3.TabIndex = 2
   Me.Icon3.Text = "Exclamation"
   "
   "Icon2
   "
   Me.Icon2.Location = New System.Drawing.Point(100, 20)
   Me.Icon2.Name = "Icon2"
   Me.Icon2.Size = New System.Drawing.Size(64, 20)
   Me.Icon2.TabIndex = 1
   Me.Icon2.Text = "Error"
   "
   "Icon1
   "
   Me.Icon1.Location = New System.Drawing.Point(12, 20)
   Me.Icon1.Name = "Icon1"
   Me.Icon1.Size = New System.Drawing.Size(84, 20)
   Me.Icon1.TabIndex = 0
   Me.Icon1.Text = "Asterisk"
   "
   "txtResult
   "
   Me.txtResult.Enabled = False
   Me.txtResult.Location = New System.Drawing.Point(212, 232)
   Me.txtResult.Name = "txtResult"
   Me.txtResult.Size = New System.Drawing.Size(136, 22)
   Me.txtResult.TabIndex = 18
   Me.txtResult.Text = ""
   "
   "lblResult
   "
   Me.lblResult.Location = New System.Drawing.Point(212, 208)
   Me.lblResult.Name = "lblResult"
   Me.lblResult.Size = New System.Drawing.Size(56, 20)
   Me.lblResult.TabIndex = 17
   Me.lblResult.Text = "Result"
   "
   "Form1
   "
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 15)
   Me.ClientSize = New System.Drawing.Size(368, 369)
   Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.grpDefaultButton, Me.GroupBox2, Me.GroupBox1, Me.txtResult, Me.lblResult, Me.txtCaption, Me.Label2, Me.btnShow, Me.txtMsg, Me.Label1})
   Me.Name = "Form1"
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
   Me.Text = "MessageBox Application"
   Me.grpDefaultButton.ResumeLayout(False)
   Me.GroupBox2.ResumeLayout(False)
   Me.GroupBox1.ResumeLayout(False)
   Me.ResumeLayout(False)
 End Sub
 Private iIcon As Integer
 Private iButton As Integer
 Private iDefaultButton As Integer
 Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click
   Dim iResult As Integer
   iResult = MessageBox.Show(Me,txtMsg.Text, txtCaption.Text, iButton, iIcon, iDefaultButton)
   Select Case iResult
     Case DialogResult.Abort
       txtResult.Text = "DialogResult.Abort"
     Case DialogResult.Retry
       txtResult.Text = "DialogResult.Retry"
     Case DialogResult.Ignore
       txtResult.Text = "DialogResult.Ignore"
     Case DialogResult.OK
       txtResult.Text = "DialogResult.OK"
     Case DialogResult.Cancel
       txtResult.Text = "DialogResult.Cancel"
     Case DialogResult.Yes
       txtResult.Text = "DialogResult.Yes"
     Case DialogResult.No
       txtResult.Text = "DialogResult.No"
   End Select
 End Sub
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   AddHandler Icon1.Click, AddressOf Icon_Click
   AddHandler Icon2.Click, AddressOf Icon_Click
   AddHandler Icon3.Click, AddressOf Icon_Click
   AddHandler Icon4.Click, AddressOf Icon_Click
   AddHandler Icon5.Click, AddressOf Icon_Click
   AddHandler Icon6.Click, AddressOf Icon_Click
   AddHandler Icon7.Click, AddressOf Icon_Click
   AddHandler Icon8.Click, AddressOf Icon_Click
   AddHandler Button1.Click, AddressOf Button_Click
   AddHandler Button2.Click, AddressOf Button_Click
   AddHandler Button3.Click, AddressOf Button_Click
   AddHandler Button4.Click, AddressOf Button_Click
   AddHandler Button5.Click, AddressOf Button_Click
   AddHandler Button6.Click, AddressOf Button_Click
   AddHandler DefaultButton1.Click, AddressOf DefaultButton_Click
   AddHandler DefaultButton2.Click, AddressOf DefaultButton_Click
   AddHandler DefaultButton3.Click, AddressOf DefaultButton_Click
   iIcon = MessageBoxIcon.Information
   iButton = MessageBoxButtons.YesNo
   iDefaultButton = MessageBoxDefaultButton.Button1
 End Sub
 Public Sub Icon_Click(ByVal sender As Object, ByVal e As System.EventArgs)
   Select Case sender.Name
     Case "Icon1"
       iIcon = MessageBoxIcon.Asterisk
     Case "Icon2"
       iIcon = MessageBoxIcon.Error
     Case "Icon3"
       iIcon = MessageBoxIcon.Exclamation
     Case "Icon4"
       iIcon = MessageBoxIcon.Hand
     Case "Icon5"
       iIcon = MessageBoxIcon.Information
     Case "Icon6"
       iIcon = MessageBoxIcon.Question
     Case "Icon7"
       iIcon = MessageBoxIcon.Stop
     Case "Icon8"
       iIcon = MessageBoxIcon.Warning
   End Select
 End Sub
 Public Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs)
   Select Case sender.Name
     Case "Button1"
       iButton = MessageBoxButtons.AbortRetryIgnore
     Case "Button2"
       iButton = MessageBoxButtons.OK
     Case "Button3"
       iButton = MessageBoxButtons.OKCancel
     Case "Button4"
       iButton = MessageBoxButtons.RetryCancel
     Case "Button5"
       iButton = MessageBoxButtons.YesNo
     Case "Button6"
       iButton = MessageBoxButtons.YesNoCancel
   End Select
 End Sub
 Public Sub DefaultButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
   Select Case sender.Name
     Case "DefaultButton1"
       iDefaultButton = MessageBoxDefaultButton.Button1
     Case "DefaultButton2"
       iDefaultButton = MessageBoxDefaultButton.Button2
     Case "DefaultButton3"
       iDefaultButton = MessageBoxDefaultButton.Button3
   End Select
 End Sub

End Class</source>

Displaying square root of 2 in dialog.

<source lang="vbnet">Imports System.Windows.Forms " Namespace containing MessageBox Module modSquareRoot

  Sub Main()
     Dim root As Double = Math.Sqrt(2)
     MessageBox.Show("The square root of 2 is " & root, _
        "The Square Root of 2")
  End Sub 

End Module</source>

MessageBox: Abort, Retry, Ignore buttons and Warning icon

<source lang="vbnet">Imports System.Windows.Forms public class MessageBoxWithMessageAndTile

  public Shared Sub Main
       MessageBox.Show("Message", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Warn

ing)

  End Sub

End class</source>

MessageBox Icon and Button

<source lang="vbnet">Imports System.Windows.Forms public class RadioButtonAction

  public Shared Sub Main
       Application.Run(New FrmRadioButton)
  End Sub

End class Public Class FrmRadioButton

  Inherits System.Windows.Forms.Form
  Private iconType As MessageBoxIcon
  Private buttonType As MessageBoxButtons
  1. Region " Windows Form Designer generated code "
  Public Sub New()
     MyBase.New()
     "This call is required by the Windows Form Designer.
     InitializeComponent()
     "Add any initialization after the InitializeComponent() call
  End Sub
  "Form overrides dispose to clean up the component list.
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
     If disposing Then
        If Not (components Is Nothing) Then
           components.Dispose()
        End If
     End If
     MyBase.Dispose(disposing)
  End Sub
  Friend WithEvents iconGroupBox As System.Windows.Forms.GroupBox
  Friend WithEvents buttonTypeGroupBox As System.Windows.Forms.GroupBox
  Friend WithEvents radRetryCancel As System.Windows.Forms.RadioButton
  Friend WithEvents radYesNo As System.Windows.Forms.RadioButton
  Friend WithEvents radAbortRetryIgnore As System.Windows.Forms.RadioButton
  Friend WithEvents radOk As System.Windows.Forms.RadioButton
  Friend WithEvents radWarning As System.Windows.Forms.RadioButton
  Friend WithEvents radStop As System.Windows.Forms.RadioButton
  Friend WithEvents radQuestion As System.Windows.Forms.RadioButton
  Friend WithEvents radInformation As System.Windows.Forms.RadioButton
  Friend WithEvents radHand As System.Windows.Forms.RadioButton
  Friend WithEvents radExclamation As System.Windows.Forms.RadioButton
  Friend WithEvents radError As System.Windows.Forms.RadioButton
  Friend WithEvents radAsterisk As System.Windows.Forms.RadioButton
  Friend WithEvents cmdDisplay As System.Windows.Forms.Button
  Friend WithEvents lblDisplay As System.Windows.Forms.Label
  Friend WithEvents radOkCancel As System.Windows.Forms.RadioButton
  Friend WithEvents radYesNoCancel As System.Windows.Forms.RadioButton
  "Required by the Windows Form Designer
  Private components As System.ruponentModel.Container
  "NOTE: The following procedure is required by the Windows Form Designer
  "It can be modified using the Windows Form Designer.  
  "Do not modify it using the code editor.
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
     Me.radAbortRetryIgnore = New System.Windows.Forms.RadioButton()
     Me.radStop = New System.Windows.Forms.RadioButton()
     Me.radYesNo = New System.Windows.Forms.RadioButton()
     Me.iconGroupBox = New System.Windows.Forms.GroupBox()
     Me.radWarning = New System.Windows.Forms.RadioButton()
     Me.radQuestion = New System.Windows.Forms.RadioButton()
     Me.radInformation = New System.Windows.Forms.RadioButton()
     Me.radHand = New System.Windows.Forms.RadioButton()
     Me.radExclamation = New System.Windows.Forms.RadioButton()
     Me.radError = New System.Windows.Forms.RadioButton()
     Me.radAsterisk = New System.Windows.Forms.RadioButton()
     Me.radYesNoCancel = New System.Windows.Forms.RadioButton()
     Me.radOk = New System.Windows.Forms.RadioButton()
     Me.cmdDisplay = New System.Windows.Forms.Button()
     Me.lblDisplay = New System.Windows.Forms.Label()
     Me.buttonTypeGroupBox = New System.Windows.Forms.GroupBox()
     Me.radRetryCancel = New System.Windows.Forms.RadioButton()
     Me.radOkCancel = New System.Windows.Forms.RadioButton()
     Me.iconGroupBox.SuspendLayout()
     Me.buttonTypeGroupBox.SuspendLayout()
     Me.SuspendLayout()
     "
     "radAbortRetryIgnore
     "
     Me.radAbortRetryIgnore.Location = New System.Drawing.Point(16, 88)
     Me.radAbortRetryIgnore.Name = "radAbortRetryIgnore"
     Me.radAbortRetryIgnore.Size = New System.Drawing.Size(120, 24)
     Me.radAbortRetryIgnore.TabIndex = 2
     Me.radAbortRetryIgnore.Text = "AbortRetryIgnore"
     "
     "radStop
     "
     Me.radStop.Location = New System.Drawing.Point(16, 240)
     Me.radStop.Name = "radStop"
     Me.radStop.Size = New System.Drawing.Size(128, 24)
     Me.radStop.TabIndex = 6
     Me.radStop.Text = "Stop"
     "
     "radYesNo
     "
     Me.radYesNo.Location = New System.Drawing.Point(16, 160)
     Me.radYesNo.Name = "radYesNo"
     Me.radYesNo.Size = New System.Drawing.Size(120, 16)
     Me.radYesNo.TabIndex = 4
     Me.radYesNo.Text = "YesNo"
     "
     "iconGroupBox
     "
     Me.iconGroupBox.Controls.AddRange(New System.Windows.Forms.Control() {Me.radWarning, Me.radStop, Me.radQuestion, Me.radInformation, Me.radHand, Me.radExclamation, Me.radError, Me.radAsterisk})
     Me.iconGroupBox.Location = New System.Drawing.Point(200, 16)
     Me.iconGroupBox.Name = "iconGroupBox"
     Me.iconGroupBox.Size = New System.Drawing.Size(160, 304)
     Me.iconGroupBox.TabIndex = 3
     Me.iconGroupBox.TabStop = False
     Me.iconGroupBox.Text = "Icon"
     "
     "radWarning
     "
     Me.radWarning.Location = New System.Drawing.Point(16, 272)
     Me.radWarning.Name = "radWarning"
     Me.radWarning.Size = New System.Drawing.Size(128, 24)
     Me.radWarning.TabIndex = 7
     Me.radWarning.Text = "Warning"
     "
     "radQuestion
     "
     Me.radQuestion.Location = New System.Drawing.Point(16, 208)
     Me.radQuestion.Name = "radQuestion"
     Me.radQuestion.Size = New System.Drawing.Size(128, 24)
     Me.radQuestion.TabIndex = 5
     Me.radQuestion.Text = "Question"
     "
     "radInformation
     "
     Me.radInformation.Location = New System.Drawing.Point(16, 168)
     Me.radInformation.Name = "radInformation"
     Me.radInformation.Size = New System.Drawing.Size(128, 24)
     Me.radInformation.TabIndex = 4
     Me.radInformation.Text = "Information"
     "
     "radHand
     "
     Me.radHand.Location = New System.Drawing.Point(16, 128)
     Me.radHand.Name = "radHand"
     Me.radHand.Size = New System.Drawing.Size(128, 24)
     Me.radHand.TabIndex = 3
     Me.radHand.Text = "Hand"
     "
     "radExclamation
     "
     Me.radExclamation.Location = New System.Drawing.Point(16, 88)
     Me.radExclamation.Name = "radExclamation"
     Me.radExclamation.Size = New System.Drawing.Size(136, 24)
     Me.radExclamation.TabIndex = 2
     Me.radExclamation.Text = "Exclamation"
     "
     "radError
     "
     Me.radError.Location = New System.Drawing.Point(16, 48)
     Me.radError.Name = "radError"
     Me.radError.Size = New System.Drawing.Size(136, 24)
     Me.radError.TabIndex = 1
     Me.radError.Text = "Error"
     "
     "radAsterisk
     "
     Me.radAsterisk.Location = New System.Drawing.Point(16, 16)
     Me.radAsterisk.Name = "radAsterisk"
     Me.radAsterisk.Size = New System.Drawing.Size(136, 24)
     Me.radAsterisk.TabIndex = 0
     Me.radAsterisk.Text = "Asterisk"
     "
     "radYesNoCancel
     "
     Me.radYesNoCancel.Location = New System.Drawing.Point(16, 120)
     Me.radYesNoCancel.Name = "radYesNoCancel"
     Me.radYesNoCancel.Size = New System.Drawing.Size(120, 24)
     Me.radYesNoCancel.TabIndex = 3
     Me.radYesNoCancel.Text = "YesNoCancel"
     "
     "radOk
     "
     Me.radOk.Location = New System.Drawing.Point(16, 24)
     Me.radOk.Name = "radOk"
     Me.radOk.Size = New System.Drawing.Size(112, 16)
     Me.radOk.TabIndex = 0
     Me.radOk.Text = "OK"
     "
     "cmdDisplay
     "
     Me.cmdDisplay.Location = New System.Drawing.Point(32, 240)
     Me.cmdDisplay.Name = "cmdDisplay"
     Me.cmdDisplay.Size = New System.Drawing.Size(112, 40)
     Me.cmdDisplay.TabIndex = 1
     Me.cmdDisplay.Text = "Display"
     "
     "lblDisplay
     "
     Me.lblDisplay.Location = New System.Drawing.Point(24, 296)
     Me.lblDisplay.Name = "lblDisplay"
     Me.lblDisplay.Size = New System.Drawing.Size(144, 24)
     Me.lblDisplay.TabIndex = 5
     "
     "buttonTypeGroupBox
     "
     Me.buttonTypeGroupBox.Controls.AddRange(New System.Windows.Forms.Control() {Me.radRetryCancel, Me.radYesNo, Me.radYesNoCancel, Me.radAbortRetryIgnore, Me.radOkCancel, Me.radOk})
     Me.buttonTypeGroupBox.Location = New System.Drawing.Point(16, 16)
     Me.buttonTypeGroupBox.Name = "buttonTypeGroupBox"
     Me.buttonTypeGroupBox.Size = New System.Drawing.Size(144, 216)
     Me.buttonTypeGroupBox.TabIndex = 2
     Me.buttonTypeGroupBox.TabStop = False
     Me.buttonTypeGroupBox.Text = "Button Type"
     "
     "radRetryCancel
     "
     Me.radRetryCancel.Location = New System.Drawing.Point(16, 192)
     Me.radRetryCancel.Name = "radRetryCancel"
     Me.radRetryCancel.Size = New System.Drawing.Size(104, 16)
     Me.radRetryCancel.TabIndex = 5
     Me.radRetryCancel.Text = "RetryCancel"
     "
     "radOkCancel
     "
     Me.radOkCancel.Location = New System.Drawing.Point(16, 56)
     Me.radOkCancel.Name = "radOkCancel"
     Me.radOkCancel.Size = New System.Drawing.Size(120, 24)
     Me.radOkCancel.TabIndex = 1
     Me.radOkCancel.Text = "OKCancel"
     "
     "FrmRadioButton
     "
     Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
     Me.ClientSize = New System.Drawing.Size(384, 333)
     Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblDisplay, Me.iconGroupBox, Me.buttonTypeGroupBox, Me.cmdDisplay})
     Me.Name = "FrmRadioButton"
     Me.Text = "RadioButtonTest"
     Me.iconGroupBox.ResumeLayout(False)
     Me.buttonTypeGroupBox.ResumeLayout(False)
     Me.ResumeLayout(False)
  End Sub
  1. End Region
  Private Sub cmdDisplay_Click(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles cmdDisplay.Click
     Dim dialog As DialogResult = MessageBox.Show( _
        "Your message", "Title", _
        buttonType, iconType)
     Select Case dialog
        Case DialogResult.OK
           lblDisplay.Text = "OK was pressed"
        Case DialogResult.Cancel
           lblDisplay.Text = "Cancel was pressed"
        Case DialogResult.Abort
           lblDisplay.Text = "Abort was pressed"
        Case DialogResult.Retry
           lblDisplay.Text = "Retry was pressed"
        Case DialogResult.Ignore
           lblDisplay.Text = "Ignore was pressed"
        Case DialogResult.Yes
           lblDisplay.Text = "Yes was pressed"
        Case DialogResult.No
           lblDisplay.Text = "No was pressed"
     End Select
  End Sub " cmdDisplay_Click
  Private Sub radOk_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radOk.CheckedChanged
     buttonType = MessageBoxButtons.OK
  End Sub 
  
  Private Sub radOkCancel_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radOkCancel.CheckedChanged
     buttonType = MessageBoxButtons.OKCancel
  End Sub 
  
  Private Sub radAbortRetryIgnore_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radAbortRetryIgnore.CheckedChanged
     buttonType = MessageBoxButtons.AbortRetryIgnore
  End Sub 
  
  Private Sub radYesNoCancel_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radYesNoCancel.CheckedChanged
     buttonType = MessageBoxButtons.YesNoCancel
  End Sub
  
  Private Sub radYesNo_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radYesNo.CheckedChanged
     buttonType = MessageBoxButtons.YesNo
  End Sub
  
  Private Sub radRetryCancel_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radRetryCancel.CheckedChanged
     buttonType = MessageBoxButtons.RetryCancel
  End Sub
  
  Private Sub radAsterisk_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radAsterisk.CheckedChanged
     iconType = MessageBoxIcon.Asterisk
  End Sub
  
  Private Sub radError_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radError.CheckedChanged
     iconType = MessageBoxIcon.Error
  End Sub 
  
  Private Sub radExclamation_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radExclamation.CheckedChanged
     iconType = MessageBoxIcon.Exclamation
  End Sub 
  
  Private Sub radHand_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radHand.CheckedChanged
     iconType = MessageBoxIcon.Hand
  End Sub 
  
  Private Sub radInformation_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radInformation.CheckedChanged
     iconType = MessageBoxIcon.Information
  End Sub 
  
  Private Sub radQuestion_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radQuestion.CheckedChanged
     iconType = MessageBoxIcon.Question
  End Sub 
  
  Private Sub radStop_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radStop.CheckedChanged
     iconType = MessageBoxIcon.Stop
  End Sub 
  
  Private Sub radWarning_CheckedChanged(ByVal sender _
     As System.Object, ByVal e As System.EventArgs) _
     Handles radWarning.CheckedChanged
     iconType = MessageBoxIcon.Warning
  End Sub 

End Class</source>

MessageBox OK and Cancel Button

<source lang="vbnet">Imports System.Windows.Forms public class MessageBoxWithMessageAndTile

  public Shared Sub Main
       MessageBox.Show("Message", "Title", MessageBoxButtons.OKCancel)
  End Sub

End class</source>

MessageBox with Message and Title

<source lang="vbnet">Imports System.Windows.Forms public class MessageBoxWithMessageAndTile

  public Shared Sub Main
       MessageBox.Show("Message", "Title")
  End Sub

End class</source>

MessageBox with Message only

<source lang="vbnet">Imports System.Windows.Forms public class MessageBoxWithMessageOnly

  public Shared Sub Main
       MessageBox.Show("Message")
  End Sub

End class</source>

MessageBox with OK, Cancel button and Information

<source lang="vbnet">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</source>

MessageBox with Yes No Cancel button and Question icon

<source lang="vbnet">Imports System.Windows.Forms public class MessageBoxYesNoCancelQuestion

  public Shared Sub Main
     Dim answer As DialogResult
     answer = MessageBox.Show("A", "B", _
        MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
  End Sub

End class</source>

Return value from MessageBox

<source lang="vbnet">Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class MessageBoxReturnValue

  public Shared Sub Main
       Dim intReturnValue As Integer
       intReturnValue = MessageBox.Show("This is also a message box!", "Message Box", _
           MessageBoxButtons.OKCancel, MessageBoxIcon.Information, _
           MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
       If (intReturnValue = DialogResult.OK) Then
           Console.WriteLine("You clicked the OK button.")
       End If
  End Sub

End class</source>

Set default button for MessageBox

<source lang="vbnet">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</source>