VB.Net Tutorial/GUI/Wizard

Wizard Controls

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

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

End class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       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.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.btnCancel = New System.Windows.Forms.Button
       Me.btnOk = New System.Windows.Forms.Button
       Me.TabControl1 = New System.Windows.Forms.TabControl
       Me.TabPage1 = New System.Windows.Forms.TabPage
       Me.TextBox3 = New System.Windows.Forms.TextBox
       Me.TextBox2 = New System.Windows.Forms.TextBox
       Me.TextBox1 = New System.Windows.Forms.TextBox
       Me.Label3 = New System.Windows.Forms.Label
       Me.Label2 = New System.Windows.Forms.Label
       Me.Label1 = New System.Windows.Forms.Label
       Me.TabPage2 = New System.Windows.Forms.TabPage
       Me.TabPage3 = New System.Windows.Forms.TabPage
       Me.TextBox8 = New System.Windows.Forms.TextBox
       Me.Label9 = New System.Windows.Forms.Label
       Me.TextBox7 = New System.Windows.Forms.TextBox
       Me.Label8 = New System.Windows.Forms.Label
       Me.TextBox4 = New System.Windows.Forms.TextBox
       Me.Label7 = New System.Windows.Forms.Label
       Me.ruboBox1 = New System.Windows.Forms.ruboBox
       Me.TextBox5 = New System.Windows.Forms.TextBox
       Me.TextBox6 = New System.Windows.Forms.TextBox
       Me.Label4 = New System.Windows.Forms.Label
       Me.Label5 = New System.Windows.Forms.Label
       Me.Label6 = New System.Windows.Forms.Label
       Me.TabPage4 = New System.Windows.Forms.TabPage
       Me.TabPage5 = New System.Windows.Forms.TabPage
       Me.TabControl1.SuspendLayout()
       Me.TabPage1.SuspendLayout()
       Me.TabPage3.SuspendLayout()
       Me.SuspendLayout()
       "
       "btnCancel
       "
       Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.btnCancel.Location = New System.Drawing.Point(308, 49)
       Me.btnCancel.Name = "btnCancel"
       Me.btnCancel.Size = New System.Drawing.Size(56, 24)
       Me.btnCancel.TabIndex = 5
       Me.btnCancel.Text = "Cancel"
       "
       "btnOk
       "
       Me.btnOk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.btnOk.Enabled = False
       Me.btnOk.Location = New System.Drawing.Point(308, 9)
       Me.btnOk.Name = "btnOk"
       Me.btnOk.Size = New System.Drawing.Size(56, 24)
       Me.btnOk.TabIndex = 4
       Me.btnOk.Text = "OK"
       "
       "TabControl1
       "
       Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                   Or System.Windows.Forms.AnchorStyles.Left) _
                   Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
       Me.TabControl1.Controls.Add(Me.TabPage1)
       Me.TabControl1.Controls.Add(Me.TabPage2)
       Me.TabControl1.Controls.Add(Me.TabPage3)
       Me.TabControl1.Controls.Add(Me.TabPage4)
       Me.TabControl1.Controls.Add(Me.TabPage5)
       Me.TabControl1.Location = New System.Drawing.Point(8, 9)
       Me.TabControl1.Name = "TabControl1"
       Me.TabControl1.SelectedIndex = 0
       Me.TabControl1.Size = New System.Drawing.Size(280, 200)
       Me.TabControl1.TabIndex = 3
       "
       "TabPage1
       "
       Me.TabPage1.Controls.Add(Me.TextBox3)
       Me.TabPage1.Controls.Add(Me.TextBox2)
       Me.TabPage1.Controls.Add(Me.TextBox1)
       Me.TabPage1.Controls.Add(Me.Label3)
       Me.TabPage1.Controls.Add(Me.Label2)
       Me.TabPage1.Controls.Add(Me.Label1)
       Me.TabPage1.Location = New System.Drawing.Point(4, 22)
       Me.TabPage1.Name = "TabPage1"
       Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
       Me.TabPage1.Size = New System.Drawing.Size(272, 174)
       Me.TabPage1.TabIndex = 0
       Me.TabPage1.Text = "Name"
       Me.TabPage1.UseVisualStyleBackColor = False
       "
       "TextBox3
       "
       Me.TextBox3.Location = New System.Drawing.Point(80, 56)
       Me.TextBox3.Name = "TextBox3"
       Me.TextBox3.Size = New System.Drawing.Size(185, 20)
       Me.TextBox3.TabIndex = 23
       Me.TextBox3.Text = "Q"
       "
       "TextBox2
       "
       Me.TextBox2.Location = New System.Drawing.Point(80, 32)
       Me.TextBox2.Name = "TextBox2"
       Me.TextBox2.Size = New System.Drawing.Size(32, 20)
       Me.TextBox2.TabIndex = 22
       "
       "TextBox1
       "
       Me.TextBox1.Location = New System.Drawing.Point(80, 8)
       Me.TextBox1.Name = "TextBox1"
       Me.TextBox1.Size = New System.Drawing.Size(185, 20)
       Me.TextBox1.TabIndex = 21
       Me.TextBox1.Text = "A"
       "
       "Label3
       "
       Me.Label3.AutoSize = True
       Me.Label3.Location = New System.Drawing.Point(8, 56)
       Me.Label3.Name = "Label3"
       Me.Label3.Size = New System.Drawing.Size(58, 13)
       Me.Label3.TabIndex = 20
       Me.Label3.Text = "Last Name"
       "
       "Label2
       "
       Me.Label2.AutoSize = True
       Me.Label2.Location = New System.Drawing.Point(8, 32)
       Me.Label2.Name = "Label2"
       Me.Label2.Size = New System.Drawing.Size(65, 13)
       Me.Label2.TabIndex = 19
       Me.Label2.Text = "Middle Initial"
       "
       "Label1
       "
       Me.Label1.AutoSize = True
       Me.Label1.Location = New System.Drawing.Point(8, 8)
       Me.Label1.Name = "Label1"
       Me.Label1.Size = New System.Drawing.Size(57, 13)
       Me.Label1.TabIndex = 18
       Me.Label1.Text = "First Name"
       "
       "TabPage2
       "
       Me.TabPage2.Location = New System.Drawing.Point(4, 22)
       Me.TabPage2.Name = "TabPage2"
       Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
       Me.TabPage2.Size = New System.Drawing.Size(272, 174)
       Me.TabPage2.TabIndex = 1
       Me.TabPage2.Text = "Identification"
       Me.TabPage2.UseVisualStyleBackColor = False
       "
       "TabPage3
       "
       Me.TabPage3.Controls.Add(Me.TextBox8)
       Me.TabPage3.Controls.Add(Me.Label9)
       Me.TabPage3.Controls.Add(Me.TextBox7)
       Me.TabPage3.Controls.Add(Me.Label8)
       Me.TabPage3.Controls.Add(Me.TextBox4)
       Me.TabPage3.Controls.Add(Me.Label7)
       Me.TabPage3.Controls.Add(Me.ruboBox1)
       Me.TabPage3.Controls.Add(Me.TextBox5)
       Me.TabPage3.Controls.Add(Me.TextBox6)
       Me.TabPage3.Controls.Add(Me.Label4)
       Me.TabPage3.Controls.Add(Me.Label5)
       Me.TabPage3.Controls.Add(Me.Label6)
       Me.TabPage3.Location = New System.Drawing.Point(4, 22)
       Me.TabPage3.Name = "TabPage3"
       Me.TabPage3.Size = New System.Drawing.Size(272, 174)
       Me.TabPage3.TabIndex = 2
       Me.TabPage3.Text = "Address"
       Me.TabPage3.UseVisualStyleBackColor = False
       "
       "TextBox8
       "
       Me.TextBox8.Location = New System.Drawing.Point(80, 144)
       Me.TextBox8.Margin = New System.Windows.Forms.Padding(3, 1, 3, 3)
       Me.TextBox8.Name = "TextBox8"
       Me.TextBox8.Size = New System.Drawing.Size(80, 20)
       Me.TextBox8.TabIndex = 29
       Me.TextBox8.Text = "121-232-3434"
       "
       "Label9
       "
       Me.Label9.AutoSize = True
       Me.Label9.Location = New System.Drawing.Point(8, 144)
       Me.Label9.Name = "Label9"
       Me.Label9.Size = New System.Drawing.Size(24, 13)
       Me.Label9.TabIndex = 28
       Me.Label9.Text = "Cell"
       "
       "TextBox7
       "
       Me.TextBox7.Location = New System.Drawing.Point(80, 120)
       Me.TextBox7.Margin = New System.Windows.Forms.Padding(3, 1, 3, 3)
       Me.TextBox7.Name = "TextBox7"
       Me.TextBox7.Size = New System.Drawing.Size(80, 20)
       Me.TextBox7.TabIndex = 27
       Me.TextBox7.Text = "123-456-7890"
       "
       "Label8
       "
       Me.Label8.AutoSize = True
       Me.Label8.Location = New System.Drawing.Point(8, 120)
       Me.Label8.Name = "Label8"
       Me.Label8.Size = New System.Drawing.Size(38, 13)
       Me.Label8.TabIndex = 26
       Me.Label8.Text = "Phone"
       "
       "TextBox4
       "
       Me.TextBox4.Location = New System.Drawing.Point(80, 80)
       Me.TextBox4.Margin = New System.Windows.Forms.Padding(3, 1, 3, 3)
       Me.TextBox4.Name = "TextBox4"
       Me.TextBox4.Size = New System.Drawing.Size(64, 20)
       Me.TextBox4.TabIndex = 25
       Me.TextBox4.Text = "12345-6789"
       "
       "Label7
       "
       Me.Label7.AutoSize = True
       Me.Label7.Location = New System.Drawing.Point(8, 80)
       Me.Label7.Name = "Label7"
       Me.Label7.Size = New System.Drawing.Size(22, 13)
       Me.Label7.TabIndex = 24
       Me.Label7.Text = "Zip"
       "
       "ComboBox1
       "
       Me.ruboBox1.FormattingEnabled = True
       Me.ruboBox1.Items.AddRange(New Object() {"CA", "CO", "CT", "VT", "NV", "WA", "OR", "OH", "ID", "MN", "MT", "PA", "FL", "GA"})
       Me.ruboBox1.Location = New System.Drawing.Point(80, 56)
       Me.ruboBox1.Margin = New System.Windows.Forms.Padding(3, 3, 3, 2)
       Me.ruboBox1.Name = "ComboBox1"
       Me.ruboBox1.Size = New System.Drawing.Size(48, 21)
       Me.ruboBox1.TabIndex = 23
       Me.ruboBox1.Text = "AAA"
       "
       "TextBox5
       "
       Me.TextBox5.Location = New System.Drawing.Point(80, 32)
       Me.TextBox5.Name = "TextBox5"
       Me.TextBox5.Size = New System.Drawing.Size(185, 20)
       Me.TextBox5.TabIndex = 22
       Me.TextBox5.Text = "B"
       "
       "TextBox6
       "
       Me.TextBox6.Location = New System.Drawing.Point(80, 8)
       Me.TextBox6.Name = "TextBox6"
       Me.TextBox6.Size = New System.Drawing.Size(185, 20)
       Me.TextBox6.TabIndex = 21
       Me.TextBox6.Text = "1"
       "
       "Label4
       "
       Me.Label4.AutoSize = True
       Me.Label4.Location = New System.Drawing.Point(8, 56)
       Me.Label4.Name = "Label4"
       Me.Label4.Size = New System.Drawing.Size(32, 13)
       Me.Label4.TabIndex = 20
       Me.Label4.Text = "State"
       "
       "Label5
       "
       Me.Label5.AutoSize = True
       Me.Label5.Location = New System.Drawing.Point(8, 32)
       Me.Label5.Name = "Label5"
       Me.Label5.Size = New System.Drawing.Size(24, 13)
       Me.Label5.TabIndex = 19
       Me.Label5.Text = "City"
       "
       "Label6
       "
       Me.Label6.AutoSize = True
       Me.Label6.Location = New System.Drawing.Point(8, 8)
       Me.Label6.Name = "Label6"
       Me.Label6.Size = New System.Drawing.Size(35, 13)
       Me.Label6.TabIndex = 18
       Me.Label6.Text = "Street"
       "
       "TabPage4
       "
       Me.TabPage4.Location = New System.Drawing.Point(4, 22)
       Me.TabPage4.Name = "TabPage4"
       Me.TabPage4.Size = New System.Drawing.Size(272, 174)
       Me.TabPage4.TabIndex = 3
       Me.TabPage4.Text = "Office"
       Me.TabPage4.UseVisualStyleBackColor = False
       "
       "TabPage5
       "
       Me.TabPage5.Location = New System.Drawing.Point(4, 22)
       Me.TabPage5.Name = "TabPage5"
       Me.TabPage5.Size = New System.Drawing.Size(272, 174)
       Me.TabPage5.TabIndex = 4
       Me.TabPage5.Text = "Privileges"
       Me.TabPage5.UseVisualStyleBackColor = False
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(372, 219)
       Me.Controls.Add(Me.btnCancel)
       Me.Controls.Add(Me.btnOk)
       Me.Controls.Add(Me.TabControl1)
       Me.Name = "Form1"
       Me.Text = "Make Employee"
       Me.TabControl1.ResumeLayout(False)
       Me.TabPage1.ResumeLayout(False)
       Me.TabPage1.PerformLayout()
       Me.TabPage3.ResumeLayout(False)
       Me.TabPage3.PerformLayout()
       Me.ResumeLayout(False)
   End Sub
   Friend WithEvents btnCancel As System.Windows.Forms.Button
   Friend WithEvents btnOk As System.Windows.Forms.Button
   Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
   Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
   Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
   Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
   Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
   Friend WithEvents Label3 As System.Windows.Forms.Label
   Friend WithEvents Label2 As System.Windows.Forms.Label
   Friend WithEvents Label1 As System.Windows.Forms.Label
   Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
   Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
   Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
   Friend WithEvents Label9 As System.Windows.Forms.Label
   Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
   Friend WithEvents Label8 As System.Windows.Forms.Label
   Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
   Friend WithEvents Label7 As System.Windows.Forms.Label
   Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox
   Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
   Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
   Friend WithEvents Label4 As System.Windows.Forms.Label
   Friend WithEvents Label5 As System.Windows.Forms.Label
   Friend WithEvents Label6 As System.Windows.Forms.Label
   Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
   Friend WithEvents TabPage5 As System.Windows.Forms.TabPage

End Class</source>