VB.Net Tutorial/GUI/RadioButton

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

Get selected RadioButton

<source lang="vbnet">Option Strict On Imports System.Windows.Forms public class RadioButtonState

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

End class Public Class Form1

  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 GroupBox1 As System.Windows.Forms.GroupBox
  Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
  Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
  Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
  Friend WithEvents Button1 As System.Windows.Forms.Button
  "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.GroupBox1 = New System.Windows.Forms.GroupBox()
     Me.RadioButton3 = New System.Windows.Forms.RadioButton()
     Me.RadioButton2 = New System.Windows.Forms.RadioButton()
     Me.RadioButton1 = New System.Windows.Forms.RadioButton()
     Me.Button1 = New System.Windows.Forms.Button()
     Me.GroupBox1.SuspendLayout()
     Me.SuspendLayout()
     "
     "GroupBox1
     "
     Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.RadioButton3, Me.RadioButton2, Me.RadioButton1})
     Me.GroupBox1.Location = New System.Drawing.Point(40, 32)
     Me.GroupBox1.Name = "GroupBox1"
     Me.GroupBox1.Size = New System.Drawing.Size(240, 160)
     Me.GroupBox1.TabIndex = 0
     Me.GroupBox1.TabStop = False
     Me.GroupBox1.Text = "Choose a button:"
     "
     "RadioButton3
     "
     Me.RadioButton3.Location = New System.Drawing.Point(40, 104)
     Me.RadioButton3.Name = "RadioButton3"
     Me.RadioButton3.Size = New System.Drawing.Size(144, 24)
     Me.RadioButton3.TabIndex = 2
     Me.RadioButton3.Text = "RadioButton3"
     "
     "RadioButton2
     "
     Me.RadioButton2.Location = New System.Drawing.Point(40, 64)
     Me.RadioButton2.Name = "RadioButton2"
     Me.RadioButton2.Size = New System.Drawing.Size(144, 24)
     Me.RadioButton2.TabIndex = 1
     Me.RadioButton2.Text = "RadioButton2"
     "
     "RadioButton1
     "
     Me.RadioButton1.Checked = True
     Me.RadioButton1.Location = New System.Drawing.Point(40, 32)
     Me.RadioButton1.Name = "RadioButton1"
     Me.RadioButton1.Size = New System.Drawing.Size(144, 24)
     Me.RadioButton1.TabIndex = 0
     Me.RadioButton1.TabStop = True
     Me.RadioButton1.Text = "RadioButton1"
     "
     "Button1
     "
     Me.Button1.Location = New System.Drawing.Point(56, 216)
     Me.Button1.Name = "Button1"
     Me.Button1.Size = New System.Drawing.Size(168, 23)
     Me.Button1.TabIndex = 1
     Me.Button1.Text = "Which is Selected?"
     "
     "Form1
     "
     Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
     Me.ClientSize = New System.Drawing.Size(292, 266)
     Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.GroupBox1})
     Me.Name = "Form1"
     Me.Text = "Form1"
     Me.GroupBox1.ResumeLayout(False)
     Me.ResumeLayout(False)
  End Sub
  1. End Region
  Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, _
      ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, _
      RadioButton2.CheckedChanged, RadioButton3.CheckedChanged
  End Sub
  Private Sub Button1_Click(ByVal sender As Object, _
      ByVal e As System.EventArgs) Handles Button1.Click
     Dim c As Object
     For Each c In Me.GroupBox1.Controls
        If TypeOf (c) Is RadioButton Then
           Dim rb As RadioButton = CType(c, RadioButton)
           If rb.Checked = True Then
              MsgBox(CStr(rb.Name) & " is selected")
              Exit For
           End If
        End If
     Next
  End Sub

End Class</source>

RadioButtons in a GroupBox

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

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

End class Public Class Form1

   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
   "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.
   Friend WithEvents Label1 As System.Windows.Forms.Label
   Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
   Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
   Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
   Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
   Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
   Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton
   Friend WithEvents RadioButton5 As System.Windows.Forms.RadioButton
   Friend WithEvents RadioButton6 As System.Windows.Forms.RadioButton
   Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
       Me.Label1 = New System.Windows.Forms.Label
       Me.GroupBox1 = New System.Windows.Forms.GroupBox
       Me.GroupBox2 = New System.Windows.Forms.GroupBox
       Me.RadioButton1 = New System.Windows.Forms.RadioButton
       Me.RadioButton2 = New System.Windows.Forms.RadioButton
       Me.RadioButton3 = New System.Windows.Forms.RadioButton
       Me.RadioButton4 = New System.Windows.Forms.RadioButton
       Me.RadioButton5 = New System.Windows.Forms.RadioButton
       Me.RadioButton6 = New System.Windows.Forms.RadioButton
       Me.TextBox1 = New System.Windows.Forms.TextBox
       Me.GroupBox1.SuspendLayout()
       Me.GroupBox2.SuspendLayout()
       Me.SuspendLayout()
       "
       "Label1
       "
       Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
       Me.Label1.Location = New System.Drawing.Point(0, 0)
       Me.Label1.Name = "Label1"
       Me.Label1.Size = New System.Drawing.Size(208, 40)
       Me.Label1.TabIndex = 0
       Me.Label1.Text = "Group Boxes"
       "
       "GroupBox1
       "
       Me.GroupBox1.Controls.Add(Me.RadioButton3)
       Me.GroupBox1.Controls.Add(Me.RadioButton2)
       Me.GroupBox1.Controls.Add(Me.RadioButton1)
       Me.GroupBox1.Location = New System.Drawing.Point(8, 48)
       Me.GroupBox1.Name = "GroupBox1"
       Me.GroupBox1.Size = New System.Drawing.Size(136, 176)
       Me.GroupBox1.TabIndex = 1
       Me.GroupBox1.TabStop = False
       Me.GroupBox1.Text = "GroupBox1"
       "
       "GroupBox2
       "
       Me.GroupBox2.Controls.Add(Me.RadioButton6)
       Me.GroupBox2.Controls.Add(Me.RadioButton5)
       Me.GroupBox2.Controls.Add(Me.RadioButton4)
       Me.GroupBox2.Location = New System.Drawing.Point(152, 48)
       Me.GroupBox2.Name = "GroupBox2"
       Me.GroupBox2.Size = New System.Drawing.Size(136, 176)
       Me.GroupBox2.TabIndex = 2
       Me.GroupBox2.TabStop = False
       Me.GroupBox2.Text = "GroupBox2"
       "
       "RadioButton1
       "
       Me.RadioButton1.Location = New System.Drawing.Point(16, 32)
       Me.RadioButton1.Name = "RadioButton1"
       Me.RadioButton1.TabIndex = 0
       Me.RadioButton1.Text = "RadioButton1"
       "
       "RadioButton2
       "
       Me.RadioButton2.Location = New System.Drawing.Point(16, 72)
       Me.RadioButton2.Name = "RadioButton2"
       Me.RadioButton2.TabIndex = 1
       Me.RadioButton2.Text = "RadioButton2"
       "
       "RadioButton3
       "
       Me.RadioButton3.Location = New System.Drawing.Point(16, 112)
       Me.RadioButton3.Name = "RadioButton3"
       Me.RadioButton3.TabIndex = 2
       Me.RadioButton3.Text = "RadioButton3"
       "
       "RadioButton4
       "
       Me.RadioButton4.Location = New System.Drawing.Point(16, 32)
       Me.RadioButton4.Name = "RadioButton4"
       Me.RadioButton4.TabIndex = 0
       Me.RadioButton4.Text = "RadioButton4"
       "
       "RadioButton5
       "
       Me.RadioButton5.Location = New System.Drawing.Point(16, 72)
       Me.RadioButton5.Name = "RadioButton5"
       Me.RadioButton5.TabIndex = 1
       Me.RadioButton5.Text = "RadioButton5"
       "
       "RadioButton6
       "
       Me.RadioButton6.Location = New System.Drawing.Point(16, 112)
       Me.RadioButton6.Name = "RadioButton6"
       Me.RadioButton6.TabIndex = 2
       Me.RadioButton6.Text = "RadioButton6"
       "
       "TextBox1
       "
       Me.TextBox1.Location = New System.Drawing.Point(8, 240)
       Me.TextBox1.Name = "TextBox1"
       Me.TextBox1.Size = New System.Drawing.Size(280, 20)
       Me.TextBox1.TabIndex = 3
       Me.TextBox1.Text = ""
       "
       "Form1
       "
       Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
       Me.ClientSize = New System.Drawing.Size(292, 273)
       Me.Controls.Add(Me.GroupBox2)
       Me.Controls.Add(Me.GroupBox1)
       Me.Controls.Add(Me.Label1)
       Me.Controls.Add(Me.TextBox1)
       Me.Name = "Form1"
       Me.Text = "Form1"
       Me.GroupBox1.ResumeLayout(False)
       Me.GroupBox2.ResumeLayout(False)
       Me.ResumeLayout(False)
   End Sub
  1. End Region
   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
       TextBox1.Text = "You clicked radio button 1."
   End Sub
   Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
       TextBox1.Text = "You clicked radio button 2."
   End Sub
   Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
       TextBox1.Text = "You clicked radio button 3."
   End Sub
   Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
       TextBox1.Text = "You clicked radio button 4."
   End Sub
   Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
       TextBox1.Text = "You clicked radio button 5."
   End Sub
   Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
       TextBox1.Text = "You clicked radio button 6."
   End Sub

End Class</source>

Toggle Buttons

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

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

End class Public Class Form1

   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
   "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.
   Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
   Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
   Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
   Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
   Friend WithEvents Label1 As System.Windows.Forms.Label
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
       Me.RadioButton1 = New System.Windows.Forms.RadioButton
       Me.RadioButton2 = New System.Windows.Forms.RadioButton
       Me.RadioButton3 = New System.Windows.Forms.RadioButton
       Me.TextBox1 = New System.Windows.Forms.TextBox
       Me.Label1 = New System.Windows.Forms.Label
       Me.SuspendLayout()
       "
       "RadioButton1
       "
       Me.RadioButton1.Appearance = System.Windows.Forms.Appearance.Button
       Me.RadioButton1.Location = New System.Drawing.Point(96, 64)
       Me.RadioButton1.Name = "RadioButton1"
       Me.RadioButton1.TabIndex = 0
       Me.RadioButton1.Text = "Radio Button 1"
       "
       "RadioButton2
       "
       Me.RadioButton2.Appearance = System.Windows.Forms.Appearance.Button
       Me.RadioButton2.Location = New System.Drawing.Point(96, 112)
       Me.RadioButton2.Name = "RadioButton2"
       Me.RadioButton2.TabIndex = 1
       Me.RadioButton2.Text = "Radio Button 2"
       "
       "RadioButton3
       "
       Me.RadioButton3.Appearance = System.Windows.Forms.Appearance.Button
       Me.RadioButton3.Location = New System.Drawing.Point(96, 160)
       Me.RadioButton3.Name = "RadioButton3"
       Me.RadioButton3.TabIndex = 2
       Me.RadioButton3.Text = "Radio Button 3"
       "
       "TextBox1
       "
       Me.TextBox1.Location = New System.Drawing.Point(40, 216)
       Me.TextBox1.Name = "TextBox1"
       Me.TextBox1.Size = New System.Drawing.Size(200, 20)
       Me.TextBox1.TabIndex = 3
       Me.TextBox1.Text = ""
       "
       "Form1
       "
       Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
       Me.ClientSize = New System.Drawing.Size(292, 273)
       Me.Controls.Add(Me.Label1)
       Me.Controls.Add(Me.TextBox1)
       Me.Controls.Add(Me.RadioButton3)
       Me.Controls.Add(Me.RadioButton2)
       Me.Controls.Add(Me.RadioButton1)
       Me.ResumeLayout(False)
   End Sub
  1. End Region
   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
       TextBox1.Text = "You clicked button 1."
   End Sub
   Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
       TextBox1.Text = "You clicked button 2."
   End Sub
   Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
       TextBox1.Text = "You clicked button 3."
   End Sub

End Class</source>

Use RadioButton to control the LineCap

<source lang="vbnet">Imports System Imports System.Drawing Imports System.Collections Imports System.ruponentModel Imports System.Windows.Forms Imports System.Data Imports System.Drawing.Drawing2D

public class LineJoinRadioButton

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

End class Public Class Form1

   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
   "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.
   Friend WithEvents groupBox1 As System.Windows.Forms.GroupBox
   Friend WithEvents MiterClippedRadBtn As System.Windows.Forms.RadioButton
   Friend WithEvents RoundRadBtn As System.Windows.Forms.RadioButton
   Friend WithEvents MiterRadBtn As System.Windows.Forms.RadioButton
   Friend WithEvents BevelRadBtn As System.Windows.Forms.RadioButton
   Friend WithEvents ApplyJoin As System.Windows.Forms.Button
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
       Me.groupBox1 = New System.Windows.Forms.GroupBox
       Me.MiterClippedRadBtn = New System.Windows.Forms.RadioButton
       Me.RoundRadBtn = New System.Windows.Forms.RadioButton
       Me.MiterRadBtn = New System.Windows.Forms.RadioButton
       Me.BevelRadBtn = New System.Windows.Forms.RadioButton
       Me.ApplyJoin = New System.Windows.Forms.Button
       Me.groupBox1.SuspendLayout()
       Me.SuspendLayout()
       "
       "groupBox1
       "
       Me.groupBox1.Controls.Add(Me.MiterClippedRadBtn)
       Me.groupBox1.Controls.Add(Me.RoundRadBtn)
       Me.groupBox1.Controls.Add(Me.MiterRadBtn)
       Me.groupBox1.Controls.Add(Me.BevelRadBtn)
       Me.groupBox1.Location = New System.Drawing.Point(320, 18)
       Me.groupBox1.Name = "groupBox1"
       Me.groupBox1.Size = New System.Drawing.Size(152, 152)
       Me.groupBox1.TabIndex = 3
       Me.groupBox1.TabStop = False
       Me.groupBox1.Text = "Line Join"
       "
       "MiterClippedRadBtn
       "
       Me.MiterClippedRadBtn.Location = New System.Drawing.Point(16, 88)
       Me.MiterClippedRadBtn.Name = "MiterClippedRadBtn"
       Me.MiterClippedRadBtn.Size = New System.Drawing.Size(120, 24)
       Me.MiterClippedRadBtn.TabIndex = 3
       Me.MiterClippedRadBtn.Text = "Miter Clipped"
       "
       "RoundRadBtn
       "
       Me.RoundRadBtn.Location = New System.Drawing.Point(16, 120)
       Me.RoundRadBtn.Name = "RoundRadBtn"
       Me.RoundRadBtn.Size = New System.Drawing.Size(112, 24)
       Me.RoundRadBtn.TabIndex = 2
       Me.RoundRadBtn.Text = "Round"
       "
       "MiterRadBtn
       "
       Me.MiterRadBtn.Location = New System.Drawing.Point(16, 56)
       Me.MiterRadBtn.Name = "MiterRadBtn"
       Me.MiterRadBtn.Size = New System.Drawing.Size(120, 24)
       Me.MiterRadBtn.TabIndex = 1
       Me.MiterRadBtn.Text = "Miter"
       "
       "BevelRadBtn
       "
       Me.BevelRadBtn.Checked = True
       Me.BevelRadBtn.Location = New System.Drawing.Point(16, 24)
       Me.BevelRadBtn.Name = "BevelRadBtn"
       Me.BevelRadBtn.Size = New System.Drawing.Size(112, 24)
       Me.BevelRadBtn.TabIndex = 0
       Me.BevelRadBtn.TabStop = True
       Me.BevelRadBtn.Text = "Bevel"
       "
       "ApplyJoin
       "
       Me.ApplyJoin.Location = New System.Drawing.Point(344, 194)
       Me.ApplyJoin.Name = "ApplyJoin"
       Me.ApplyJoin.Size = New System.Drawing.Size(112, 32)
       Me.ApplyJoin.TabIndex = 2
       Me.ApplyJoin.Text = "Apply LineJoin"
       "
       "Form1
       "
       Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
       Me.ClientSize = New System.Drawing.Size(488, 245)
       Me.Controls.Add(Me.groupBox1)
       Me.Controls.Add(Me.ApplyJoin)
       Me.Name = "Form1"
       Me.Text = "Form1"
       Me.groupBox1.ResumeLayout(False)
       Me.ResumeLayout(False)
   End Sub
  1. End Region
   Private Sub ApplyJoin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplyJoin.Click
       Dim g As Graphics = Me.CreateGraphics()
       g.Clear(Me.BackColor)
       If BevelRadBtn.Checked Then
           DrawJoinedLines(g, LineJoin.Bevel)
       End If
       If MiterRadBtn.Checked Then
           DrawJoinedLines(g, LineJoin.Miter)
       End If
       If MiterClippedRadBtn.Checked Then
           DrawJoinedLines(g, LineJoin.MiterClipped)
       End If
       If RoundRadBtn.Checked Then
           DrawJoinedLines(g, LineJoin.Round)
       End If
       g.Dispose()
   End Sub
   Private Sub DrawJoinedLines(ByVal g As Graphics, ByVal joinType As LineJoin)
       g.SmoothingMode = SmoothingMode.AntiAlias
       Dim redPen As New Pen(Color.Red, 20)
       redPen.LineJoin = joinType
       Dim pts As Point() = {New Point(10, 20), New Point(50, 20), New Point(80, 60), New Point(50, 150), New Point(150, 150)}
       Dim pts1 As Point() = {New Point(20, 20), New Point(300, 20), New Point(30, 120), New Point(200, 120), New Point(200, 20)}
       g.DrawLines(redPen, pts)
       g.DrawLines(redPen, pts1)
       redPen.Dispose()
   End Sub "DrawJoinedLines

End Class</source>

Use RadioButton to set font

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

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

End class Public Class Form1

   Inherits System.Windows.Forms.Form
   Private LabelStyle As FontStyle
   Public Sub New()
       MyBase.New()
       InitializeComponent()
   End Sub
   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
   Private components As System.ruponentModel.IContainer
   Friend WithEvents Label1 As System.Windows.Forms.Label
   Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
   Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
   Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
   Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
   Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
   Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton
   Friend WithEvents RadioButton5 As System.Windows.Forms.RadioButton
   Friend WithEvents RadioButton6 As System.Windows.Forms.RadioButton
   Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
   Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
   Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
   Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
       Me.Label1 = New System.Windows.Forms.Label
       Me.GroupBox1 = New System.Windows.Forms.GroupBox
       Me.RadioButton1 = New System.Windows.Forms.RadioButton
       Me.RadioButton2 = New System.Windows.Forms.RadioButton
       Me.RadioButton3 = New System.Windows.Forms.RadioButton
       Me.GroupBox2 = New System.Windows.Forms.GroupBox
       Me.RadioButton4 = New System.Windows.Forms.RadioButton
       Me.RadioButton5 = New System.Windows.Forms.RadioButton
       Me.RadioButton6 = New System.Windows.Forms.RadioButton
       Me.GroupBox3 = New System.Windows.Forms.GroupBox
       Me.CheckBox1 = New System.Windows.Forms.CheckBox
       Me.CheckBox2 = New System.Windows.Forms.CheckBox
       Me.CheckBox3 = New System.Windows.Forms.CheckBox
       Me.GroupBox1.SuspendLayout()
       Me.GroupBox2.SuspendLayout()
       Me.GroupBox3.SuspendLayout()
       Me.SuspendLayout()
       "
       "Label1
       "
       Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
       Me.Label1.Location = New System.Drawing.Point(24, 16)
       Me.Label1.Name = "Label1"
       Me.Label1.Size = New System.Drawing.Size(288, 88)
       Me.Label1.TabIndex = 0
       Me.Label1.Text = "Visual Basic.NET"
       "
       "GroupBox1
       "
       Me.GroupBox1.Controls.Add(Me.RadioButton3)
       Me.GroupBox1.Controls.Add(Me.RadioButton2)
       Me.GroupBox1.Controls.Add(Me.RadioButton1)
       Me.GroupBox1.Location = New System.Drawing.Point(32, 136)
       Me.GroupBox1.Name = "GroupBox1"
       Me.GroupBox1.Size = New System.Drawing.Size(72, 120)
       Me.GroupBox1.TabIndex = 1
       Me.GroupBox1.TabStop = False
       Me.GroupBox1.Text = "Color"
       "
       "RadioButton1
       "
       Me.RadioButton1.Location = New System.Drawing.Point(8, 24)
       Me.RadioButton1.Name = "RadioButton1"
       Me.RadioButton1.Size = New System.Drawing.Size(56, 16)
       Me.RadioButton1.TabIndex = 0
       Me.RadioButton1.Text = "Red"
       "
       "RadioButton2
       "
       Me.RadioButton2.Location = New System.Drawing.Point(8, 48)
       Me.RadioButton2.Name = "RadioButton2"
       Me.RadioButton2.Size = New System.Drawing.Size(56, 16)
       Me.RadioButton2.TabIndex = 1
       Me.RadioButton2.Text = "Yellow"
       "
       "RadioButton3
       "
       Me.RadioButton3.Location = New System.Drawing.Point(8, 72)
       Me.RadioButton3.Name = "RadioButton3"
       Me.RadioButton3.Size = New System.Drawing.Size(56, 24)
       Me.RadioButton3.TabIndex = 2
       Me.RadioButton3.Text = "Green"
       "
       "GroupBox2
       "
       Me.GroupBox2.Controls.Add(Me.RadioButton6)
       Me.GroupBox2.Controls.Add(Me.RadioButton5)
       Me.GroupBox2.Controls.Add(Me.RadioButton4)
       Me.GroupBox2.Location = New System.Drawing.Point(128, 136)
       Me.GroupBox2.Name = "GroupBox2"
       Me.GroupBox2.Size = New System.Drawing.Size(80, 120)
       Me.GroupBox2.TabIndex = 2
       Me.GroupBox2.TabStop = False
       Me.GroupBox2.Text = "Font Size"
       "
       "RadioButton4
       "
       Me.RadioButton4.Location = New System.Drawing.Point(16, 24)
       Me.RadioButton4.Name = "RadioButton4"
       Me.RadioButton4.Size = New System.Drawing.Size(48, 16)
       Me.RadioButton4.TabIndex = 0
       Me.RadioButton4.Text = "10"
       "
       "RadioButton5
       "
       Me.RadioButton5.Location = New System.Drawing.Point(16, 48)
       Me.RadioButton5.Name = "RadioButton5"
       Me.RadioButton5.Size = New System.Drawing.Size(56, 24)
       Me.RadioButton5.TabIndex = 1
       Me.RadioButton5.Text = "20"
       "
       "RadioButton6
       "
       Me.RadioButton6.Location = New System.Drawing.Point(16, 80)
       Me.RadioButton6.Name = "RadioButton6"
       Me.RadioButton6.Size = New System.Drawing.Size(56, 24)
       Me.RadioButton6.TabIndex = 2
       Me.RadioButton6.Text = "30"
       "
       "GroupBox3
       "
       Me.GroupBox3.Controls.Add(Me.CheckBox3)
       Me.GroupBox3.Controls.Add(Me.CheckBox2)
       Me.GroupBox3.Controls.Add(Me.CheckBox1)
       Me.GroupBox3.Location = New System.Drawing.Point(224, 144)
       Me.GroupBox3.Name = "GroupBox3"
       Me.GroupBox3.Size = New System.Drawing.Size(88, 120)
       Me.GroupBox3.TabIndex = 3
       Me.GroupBox3.TabStop = False
       Me.GroupBox3.Text = "Other"
       "
       "CheckBox1
       "
       Me.CheckBox1.Location = New System.Drawing.Point(16, 16)
       Me.CheckBox1.Name = "CheckBox1"
       Me.CheckBox1.Size = New System.Drawing.Size(64, 24)
       Me.CheckBox1.TabIndex = 0
       Me.CheckBox1.Text = "Italic"
       "
       "CheckBox2
       "
       Me.CheckBox2.Location = New System.Drawing.Point(16, 48)
       Me.CheckBox2.Name = "CheckBox2"
       Me.CheckBox2.Size = New System.Drawing.Size(48, 24)
       Me.CheckBox2.TabIndex = 1
       Me.CheckBox2.Text = "Bold"
       "
       "CheckBox3
       "
       Me.CheckBox3.Location = New System.Drawing.Point(16, 80)
       Me.CheckBox3.Name = "CheckBox3"
       Me.CheckBox3.Size = New System.Drawing.Size(64, 24)
       Me.CheckBox3.TabIndex = 2
       Me.CheckBox3.Text = "Underline"
       "
       "Form1
       "
       Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
       Me.ClientSize = New System.Drawing.Size(328, 278)
       Me.Controls.Add(Me.GroupBox3)
       Me.Controls.Add(Me.GroupBox2)
       Me.Controls.Add(Me.GroupBox1)
       Me.Controls.Add(Me.Label1)
       Me.Name = "Form1"
       Me.Text = "Font Setting"
       Me.GroupBox1.ResumeLayout(False)
       Me.GroupBox2.ResumeLayout(False)
       Me.GroupBox3.ResumeLayout(False)
       Me.ResumeLayout(False)
   End Sub
   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
       Label1.ForeColor = Color.Red
   End Sub
   Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
       Label1.ForeColor = Color.Yellow
   End Sub
   Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
       Label1.ForeColor = Color.Green
   End Sub
   Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
       Label1.Font = New Font(Label1.Font.FontFamily, 10)
   End Sub
   Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
       Label1.Font = New Font(Label1.Font.FontFamily, 20)
   End Sub
   Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
       Label1.Font = New Font(Label1.Font.FontFamily, 30)
   End Sub
   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
       LabelStyle = LabelStyle Xor FontStyle.Italic
       Label1.Font = New Font(Label1.Font, LabelStyle)
   End Sub
   Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
       LabelStyle = LabelStyle Xor FontStyle.Bold
       Label1.Font = New Font(Label1.Font, LabelStyle)
   End Sub
   Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
       LabelStyle = LabelStyle Xor FontStyle.Underline
       Label1.Font = New Font(Label1.Font, LabelStyle)
   End Sub

End Class</source>

Using RadioButtons to set message window options.

<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>