GUI VB.Net Tutorial

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