tutorial pembuatan program pendaftaran miss industri 2012

TUTORIAL PEMBUATAN PROGRAM

PENDAFTARAN MISS INDUSTRI 2012

            Pada pembuatan form pendaftaran miss industri 2012 ini, program aplikasi ini terdiri dari 5 form. Kami akan mencoba menjelaskan menjelaskan tiap form yang telah kami buat.

1. Buka aplikasi visual basic

2. Open new project lalu klik ok

3. Buatlah Form 4

          buat form ini dengan mengawali aplikasi ini dengan tulisan ’’ formulir pendaftaran miss industri 2012’’ tulisan ini dibuat menggunakan label, kemudian tulisan pada kata “mulai” menggunakan format button, yang dibuat dengan menggunakan opening ke form selanjutnya.

Jika andi klik " Mulai " maka akan muncul message box seperti berikut

Berikut adalah gambar listing dari form 4

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Partial Class Form4

    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)

        Try

            If disposing AndAlso components IsNot Nothing Then

                components.Dispose()

            End If

        Finally

            MyBase.Dispose(disposing)

        End Try

    End Sub

    'Required by the Windows Form Designer

    Private components As System.ComponentModel.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.Label1 = New System.Windows.Forms.Label()

        Me.Label3 = New System.Windows.Forms.Label()

        Me.PictureBox1 = New System.Windows.Forms.PictureBox()

        Me.Label2 = New System.Windows.Forms.Label()

        Me.Button1 = New System.Windows.Forms.Button()

        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()

        Me.SuspendLayout()

        '

        'Label1

        '

        Me.Label1.AutoSize = True

        Me.Label1.Font = New System.Drawing.Font("Boopee", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label1.ForeColor = System.Drawing.Color.MediumVioletRed

        Me.Label1.Location = New System.Drawing.Point(274, 22)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(0, 58)

        Me.Label1.TabIndex = 0

        '

        'Label3

        '

        Me.Label3.AutoSize = True

        Me.Label3.Font = New System.Drawing.Font("Boopee", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label3.ForeColor = System.Drawing.Color.PaleVioletRed

        Me.Label3.Location = New System.Drawing.Point(87, 204)

        Me.Label3.Name = "Label3"

        Me.Label3.Size = New System.Drawing.Size(625, 58)

        Me.Label3.TabIndex = 2

        Me.Label3.Text = "Formulir Pendaftaran Miss Industri 2012"

        '

        'PictureBox1

        '

        Me.PictureBox1.Image = Global.WindowsApplication1.My.Resources.Resources.HungryGirl_blog_n_lg

        Me.PictureBox1.Location = New System.Drawing.Point(293, 12)

        Me.PictureBox1.Name = "PictureBox1"

        Me.PictureBox1.Size = New System.Drawing.Size(218, 189)

        Me.PictureBox1.TabIndex = 3

        Me.PictureBox1.TabStop = False

        '

        'Label2

        '

        Me.Label2.AutoSize = True

        Me.Label2.Font = New System.Drawing.Font("Boopee", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label2.ForeColor = System.Drawing.Color.PaleVioletRed

        Me.Label2.Location = New System.Drawing.Point(329, 262)

        Me.Label2.Name = "Label2"

        Me.Label2.Size = New System.Drawing.Size(155, 58)

        Me.Label2.TabIndex = 4

        Me.Label2.Text = "Tertarik?"

        '

        'Button1

        '

        Me.Button1.Font = New System.Drawing.Font("Boopee", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button1.ForeColor = System.Drawing.Color.Indigo

        Me.Button1.Location = New System.Drawing.Point(353, 352)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(109, 33)

        Me.Button1.TabIndex = 5

        Me.Button1.Text = "Mulai"

        Me.Button1.UseVisualStyleBackColor = True

        '

        'Form4

        '

        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

        Me.BackColor = System.Drawing.Color.MistyRose

        Me.ClientSize = New System.Drawing.Size(786, 432)

        Me.Controls.Add(Me.Button1)

        Me.Controls.Add(Me.Label2)

        Me.Controls.Add(Me.PictureBox1)

        Me.Controls.Add(Me.Label3)

        Me.Controls.Add(Me.Label1)

        Me.Name = "Form4"

        Me.Text = "Formulir Pendaftaran Miss Industri 2012"

        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()

        Me.ResumeLayout(False)

        Me.PerformLayout()

    End Sub

    Friend WithEvents Label1 As System.Windows.Forms.Label

    Friend WithEvents Label3 As System.Windows.Forms.Label

    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox

    Friend WithEvents Label2 As System.Windows.Forms.Label

    Friend WithEvents Button1 As System.Windows.Forms.Button

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Hide()

        MsgBox("Isi Dengan Lengkap Ya!")

        Form1.Show()

    End Sub

End Class

4. Lalu buatlah form baru yaitu form1 dengan tulisan text formulir pendaftaran miss industri 2012. Dan buatlah label seperti pada gambardan juga text box seperti pada gambar dibawah ini serta buttonnya juga.

Berikut adalah listing dari form1

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

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

        Try

            If disposing AndAlso components IsNot Nothing Then

                components.Dispose()

            End If

        Finally

            MyBase.Dispose(disposing)

        End Try

    End Sub

    'Required by the Windows Form Designer

    Private components As System.ComponentModel.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()

        Dim Label2 As System.Windows.Forms.Label

        Me.Label1 = New System.Windows.Forms.Label()

        Me.Label3 = New System.Windows.Forms.Label()

        Me.Label4 = New System.Windows.Forms.Label()

        Me.Label5 = New System.Windows.Forms.Label()

        Me.Label6 = New System.Windows.Forms.Label()

        Me.Label7 = New System.Windows.Forms.Label()

        Me.Label8 = New System.Windows.Forms.Label()

        Me.Label9 = New System.Windows.Forms.Label()

        Me.Label10 = New System.Windows.Forms.Label()

        Me.TextBox2 = New System.Windows.Forms.TextBox()

        Me.TextBox3 = New System.Windows.Forms.TextBox()

        Me.ComboBox1 = New System.Windows.Forms.ComboBox()

        Me.ComboBox2 = New System.Windows.Forms.ComboBox()

        Me.TextBox4 = New System.Windows.Forms.TextBox()

        Me.TextBox5 = New System.Windows.Forms.TextBox()

        Me.TextBox6 = New System.Windows.Forms.TextBox()

        Me.TextBox7 = New System.Windows.Forms.TextBox()

        Me.TextBox8 = New System.Windows.Forms.TextBox()

        Me.TextBox10 = New System.Windows.Forms.TextBox()

        Me.ComboBox3 = New System.Windows.Forms.ComboBox()

        Me.Button1 = New System.Windows.Forms.Button()

        Me.Button2 = New System.Windows.Forms.Button()

        Me.TextBox1 = New System.Windows.Forms.TextBox()

        Me.Label11 = New System.Windows.Forms.Label()

        Me.Label12 = New System.Windows.Forms.Label()

        Me.Label13 = New System.Windows.Forms.Label()

        Me.Label14 = New System.Windows.Forms.Label()

        Me.Label15 = New System.Windows.Forms.Label()

        Me.Label16 = New System.Windows.Forms.Label()

        Me.Button3 = New System.Windows.Forms.Button()

        Label2 = New System.Windows.Forms.Label()

        Me.SuspendLayout()

        '

        'Label2

        '

        Label2.AutoSize = True

        Label2.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Label2.Location = New System.Drawing.Point(113, 72)

        Label2.Name = "Label2"

        Label2.Size = New System.Drawing.Size(127, 24)

        Label2.TabIndex = 1

        Label2.Text = "Wakil Dari Angkatan"

        '

        'Label1

        '

        Me.Label1.AutoSize = True

        Me.Label1.Font = New System.Drawing.Font("Boopee", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label1.Location = New System.Drawing.Point(226, 9)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(348, 33)

        Me.Label1.TabIndex = 0

        Me.Label1.Text = "Formulir Pendaftaran Miss Industri 2012"

        '

        'Label3

        '

        Me.Label3.AutoSize = True

        Me.Label3.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label3.Location = New System.Drawing.Point(113, 110)

        Me.Label3.Name = "Label3"

        Me.Label3.Size = New System.Drawing.Size(92, 24)

        Me.Label3.TabIndex = 2

        Me.Label3.Text = "Nama Lengkap"

        '

        'Label4

        '

        Me.Label4.AutoSize = True

        Me.Label4.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label4.Location = New System.Drawing.Point(113, 147)

        Me.Label4.Name = "Label4"

        Me.Label4.Size = New System.Drawing.Size(103, 24)

        Me.Label4.TabIndex = 3

        Me.Label4.Text = "Nama Panggilan"

        '

        'Label5

        '

        Me.Label5.AutoSize = True

        Me.Label5.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label5.Location = New System.Drawing.Point(113, 184)

        Me.Label5.Name = "Label5"

        Me.Label5.Size = New System.Drawing.Size(36, 24)

        Me.Label5.TabIndex = 4

        Me.Label5.Text = "Usia"

        '

        'Label6

        '

        Me.Label6.AutoSize = True

        Me.Label6.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label6.Location = New System.Drawing.Point(113, 221)

        Me.Label6.Name = "Label6"

        Me.Label6.Size = New System.Drawing.Size(160, 24)

        Me.Label6.TabIndex = 5

        Me.Label6.Text = "Tempat dan Tanggal Lahir"

        '

        'Label7

        '

        Me.Label7.AutoSize = True

        Me.Label7.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label7.Location = New System.Drawing.Point(113, 258)

        Me.Label7.Name = "Label7"

        Me.Label7.Size = New System.Drawing.Size(90, 24)

        Me.Label7.TabIndex = 6

        Me.Label7.Text = "Nomor Telpon"

        '

        'Label8

        '

        Me.Label8.AutoSize = True

        Me.Label8.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label8.Location = New System.Drawing.Point(113, 295)

        Me.Label8.Name = "Label8"

        Me.Label8.Size = New System.Drawing.Size(38, 24)

        Me.Label8.TabIndex = 7

        Me.Label8.Text = "Email"

        '

        'Label9

        '

        Me.Label9.AutoSize = True

        Me.Label9.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label9.Location = New System.Drawing.Point(113, 332)

        Me.Label9.Name = "Label9"

        Me.Label9.Size = New System.Drawing.Size(75, 24)

        Me.Label9.TabIndex = 8

        Me.Label9.Text = "Alamat Kos"

        '

        'Label10

        '

        Me.Label10.AutoSize = True

        Me.Label10.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label10.Location = New System.Drawing.Point(113, 386)

        Me.Label10.Name = "Label10"

        Me.Label10.Size = New System.Drawing.Size(90, 24)

        Me.Label10.TabIndex = 9

        Me.Label10.Text = "Alamat Rumah"

        '

        'TextBox2

        '

        Me.TextBox2.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox2.Location = New System.Drawing.Point(327, 106)

        Me.TextBox2.Name = "TextBox2"

        Me.TextBox2.Size = New System.Drawing.Size(388, 31)

        Me.TextBox2.TabIndex = 11

        '

        'TextBox3

        '

        Me.TextBox3.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox3.Location = New System.Drawing.Point(327, 144)

        Me.TextBox3.Name = "TextBox3"

        Me.TextBox3.Size = New System.Drawing.Size(388, 31)

        Me.TextBox3.TabIndex = 12

        '

        'ComboBox1

        '

        Me.ComboBox1.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.ComboBox1.FormattingEnabled = True

        Me.ComboBox1.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31"})

        Me.ComboBox1.Location = New System.Drawing.Point(437, 218)

        Me.ComboBox1.Name = "ComboBox1"

        Me.ComboBox1.Size = New System.Drawing.Size(51, 32)

        Me.ComboBox1.TabIndex = 13

        '

        'ComboBox2

        '

        Me.ComboBox2.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.ComboBox2.FormattingEnabled = True

        Me.ComboBox2.Items.AddRange(New Object() {"Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "November", "Desember"})

        Me.ComboBox2.Location = New System.Drawing.Point(494, 218)

        Me.ComboBox2.Name = "ComboBox2"

        Me.ComboBox2.Size = New System.Drawing.Size(148, 32)

        Me.ComboBox2.TabIndex = 14

        '

        'TextBox4

        '

        Me.TextBox4.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox4.Location = New System.Drawing.Point(648, 218)

        Me.TextBox4.Name = "TextBox4"

        Me.TextBox4.Size = New System.Drawing.Size(67, 31)

        Me.TextBox4.TabIndex = 15

        '

        'TextBox5

        '

        Me.TextBox5.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox5.Location = New System.Drawing.Point(327, 218)

        Me.TextBox5.Name = "TextBox5"

        Me.TextBox5.Size = New System.Drawing.Size(104, 31)

        Me.TextBox5.TabIndex = 16

        '

        'TextBox6

        '

        Me.TextBox6.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox6.Location = New System.Drawing.Point(327, 181)

        Me.TextBox6.Name = "TextBox6"

        Me.TextBox6.Size = New System.Drawing.Size(104, 31)

        Me.TextBox6.TabIndex = 17

        '

        'TextBox7

        '

        Me.TextBox7.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox7.Location = New System.Drawing.Point(327, 255)

        Me.TextBox7.Name = "TextBox7"

        Me.TextBox7.Size = New System.Drawing.Size(143, 31)

        Me.TextBox7.TabIndex = 18

        '

        'TextBox8

        '

        Me.TextBox8.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox8.Location = New System.Drawing.Point(327, 292)

        Me.TextBox8.Name = "TextBox8"

        Me.TextBox8.Size = New System.Drawing.Size(388, 31)

        Me.TextBox8.TabIndex = 19

        '

        'TextBox10

        '

        Me.TextBox10.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox10.Location = New System.Drawing.Point(327, 383)

        Me.TextBox10.Multiline = True

        Me.TextBox10.Name = "TextBox10"

        Me.TextBox10.Size = New System.Drawing.Size(388, 48)

        Me.TextBox10.TabIndex = 21

        '

        'ComboBox3

        '

        Me.ComboBox3.AllowDrop = True

        Me.ComboBox3.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.ComboBox3.FormattingEnabled = True

        Me.ComboBox3.Items.AddRange(New Object() {"2005", "2006", "2007", "2008", "2009", "2010", "2011", "2012"})

        Me.ComboBox3.Location = New System.Drawing.Point(327, 69)

        Me.ComboBox3.Name = "ComboBox3"

        Me.ComboBox3.Size = New System.Drawing.Size(51, 32)

        Me.ComboBox3.TabIndex = 22

        '

        'Button1

        '

        Me.Button1.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button1.Location = New System.Drawing.Point(599, 474)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(75, 23)

        Me.Button1.TabIndex = 23

        Me.Button1.Text = "Kembali"

        Me.Button1.UseVisualStyleBackColor = True

        '

        'Button2

        '

        Me.Button2.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button2.Location = New System.Drawing.Point(699, 474)

        Me.Button2.Name = "Button2"

        Me.Button2.Size = New System.Drawing.Size(75, 23)

        Me.Button2.TabIndex = 24

        Me.Button2.Text = "Lanjut"

        Me.Button2.UseVisualStyleBackColor = True

        '

        'TextBox1

        '

        Me.TextBox1.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox1.Location = New System.Drawing.Point(327, 329)

        Me.TextBox1.Multiline = True

        Me.TextBox1.Name = "TextBox1"

        Me.TextBox1.Size = New System.Drawing.Size(388, 48)

        Me.TextBox1.TabIndex = 25

        '

        'Label11

        '

        Me.Label11.AutoSize = True

        Me.Label11.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label11.ForeColor = System.Drawing.Color.Red

        Me.Label11.Location = New System.Drawing.Point(211, 110)

        Me.Label11.Name = "Label11"

        Me.Label11.Size = New System.Drawing.Size(21, 24)

        Me.Label11.TabIndex = 26

        Me.Label11.Text = "*"

        '

        'Label12

        '

        Me.Label12.AutoSize = True

        Me.Label12.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label12.ForeColor = System.Drawing.Color.Red

        Me.Label12.Location = New System.Drawing.Point(279, 221)

        Me.Label12.Name = "Label12"

        Me.Label12.Size = New System.Drawing.Size(21, 24)

        Me.Label12.TabIndex = 27

        Me.Label12.Text = "*"

        '

        'Label13

        '

        Me.Label13.AutoSize = True

        Me.Label13.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label13.ForeColor = System.Drawing.Color.Red

        Me.Label13.Location = New System.Drawing.Point(209, 258)

        Me.Label13.Name = "Label13"

        Me.Label13.Size = New System.Drawing.Size(21, 24)

        Me.Label13.TabIndex = 28

        Me.Label13.Text = "*"

        '

        'Label14

        '

        Me.Label14.AutoSize = True

        Me.Label14.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label14.ForeColor = System.Drawing.Color.Red

        Me.Label14.Location = New System.Drawing.Point(194, 332)

        Me.Label14.Name = "Label14"

        Me.Label14.Size = New System.Drawing.Size(21, 24)

        Me.Label14.TabIndex = 29

        Me.Label14.Text = "*"

        '

        'Label15

        '

        Me.Label15.AutoSize = True

        Me.Label15.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label15.ForeColor = System.Drawing.Color.Red

        Me.Label15.Location = New System.Drawing.Point(157, 295)

        Me.Label15.Name = "Label15"

        Me.Label15.Size = New System.Drawing.Size(21, 24)

        Me.Label15.TabIndex = 30

        Me.Label15.Text = "*"

        '

        'Label16

        '

        Me.Label16.AutoSize = True

        Me.Label16.Font = New System.Drawing.Font("Boopee", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label16.ForeColor = System.Drawing.Color.Red

        Me.Label16.Location = New System.Drawing.Point(47, 476)

        Me.Label16.Name = "Label16"

        Me.Label16.Size = New System.Drawing.Size(72, 18)

        Me.Label16.TabIndex = 31

        Me.Label16.Text = "* Harus Diisi"

        '

        'Button3

        '

        Me.Button3.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button3.Location = New System.Drawing.Point(494, 474)

        Me.Button3.Name = "Button3"

        Me.Button3.Size = New System.Drawing.Size(75, 23)

        Me.Button3.TabIndex = 32

        Me.Button3.Text = "Clear"

        Me.Button3.UseVisualStyleBackColor = True

        '

        'Form1

        '

        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

        Me.BackColor = System.Drawing.Color.Khaki

        Me.ClientSize = New System.Drawing.Size(786, 509)

        Me.Controls.Add(Me.Button3)

        Me.Controls.Add(Me.Label16)

        Me.Controls.Add(Me.Label15)

        Me.Controls.Add(Me.Label14)

        Me.Controls.Add(Me.Label13)

        Me.Controls.Add(Me.Label12)

        Me.Controls.Add(Me.Label11)

        Me.Controls.Add(Me.TextBox1)

        Me.Controls.Add(Me.Button2)

        Me.Controls.Add(Me.Button1)

        Me.Controls.Add(Me.ComboBox3)

        Me.Controls.Add(Me.TextBox10)

        Me.Controls.Add(Me.TextBox8)

        Me.Controls.Add(Me.TextBox7)

        Me.Controls.Add(Me.TextBox6)

        Me.Controls.Add(Me.TextBox5)

        Me.Controls.Add(Me.TextBox4)

        Me.Controls.Add(Me.ComboBox2)

        Me.Controls.Add(Me.ComboBox1)

        Me.Controls.Add(Me.TextBox3)

        Me.Controls.Add(Me.TextBox2)

        Me.Controls.Add(Me.Label10)

        Me.Controls.Add(Me.Label9)

        Me.Controls.Add(Me.Label8)

        Me.Controls.Add(Me.Label7)

        Me.Controls.Add(Me.Label6)

        Me.Controls.Add(Me.Label5)

        Me.Controls.Add(Me.Label4)

        Me.Controls.Add(Me.Label3)

        Me.Controls.Add(Label2)

        Me.Controls.Add(Me.Label1)

        Me.Name = "Form1"

        Me.Text = "Formulir Pendaftaran Miss Industri 2012"

        Me.ResumeLayout(False)

        Me.PerformLayout()

    End Sub

    Friend WithEvents Label1 As System.Windows.Forms.Label

    Friend WithEvents Label3 As System.Windows.Forms.Label

    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 Label7 As System.Windows.Forms.Label

    Friend WithEvents Label8 As System.Windows.Forms.Label

    Friend WithEvents Label9 As System.Windows.Forms.Label

    Friend WithEvents Label10 As System.Windows.Forms.Label

    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox

    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox

    Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox

    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

    End Sub

    Friend WithEvents TextBox6 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox7 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox8 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox10 As System.Windows.Forms.TextBox

    Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox

    Friend WithEvents Button1 As System.Windows.Forms.Button

    Friend WithEvents Button2 As System.Windows.Forms.Button

    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form4.Show()

        Me.Hide()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If TextBox5.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or TextBox4.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        If TextBox2.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        If TextBox4.Text = "" And TextBox5.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        If TextBox7.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        If TextBox8.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        If TextBox1.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        Form2.Show()

        Me.Hide()

    End Sub

    Friend WithEvents Label11 As System.Windows.Forms.Label

    Friend WithEvents Label12 As System.Windows.Forms.Label

    Friend WithEvents Label13 As System.Windows.Forms.Label

    Friend WithEvents Label14 As System.Windows.Forms.Label

    Friend WithEvents Label15 As System.Windows.Forms.Label

    Friend WithEvents Label16 As System.Windows.Forms.Label

    Friend WithEvents Button3 As System.Windows.Forms.Button

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ComboBox3.Text = ""

        TextBox1.Text = ""

        TextBox10.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

        ComboBox2.Text = ""

        ComboBox1.Text = ""

    End Sub

End Class

5. Setelah itu buat kembali form baru dengan nama form2 dan text masih tetap sama seperti sebelumnya. Dan juga label ikuti dengan gambar dibawah ini. Beserta text boxnya dan juga tombolnya agar bisa menghapus semua dan juga kembali serta lanjut ke form berikutnya bisa dilihat di listing

Berikut adalah listing dari form 2

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Partial Class Form2

    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)

        Try

            If disposing AndAlso components IsNot Nothing Then

                components.Dispose()

            End If

        Finally

            MyBase.Dispose(disposing)

        End Try

    End Sub

    'Required by the Windows Form Designer

    Private components As System.ComponentModel.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.Label1 = New System.Windows.Forms.Label()

        Me.Label2 = New System.Windows.Forms.Label()

        Me.Label3 = New System.Windows.Forms.Label()

        Me.Label4 = New System.Windows.Forms.Label()

        Me.Label5 = New System.Windows.Forms.Label()

        Me.Label6 = New System.Windows.Forms.Label()

        Me.Label7 = New System.Windows.Forms.Label()

        Me.Label8 = New System.Windows.Forms.Label()

        Me.Label9 = New System.Windows.Forms.Label()

        Me.Label10 = New System.Windows.Forms.Label()

        Me.RadioButton1 = New System.Windows.Forms.RadioButton()

        Me.Label12 = New System.Windows.Forms.Label()

        Me.RadioButton2 = New System.Windows.Forms.RadioButton()

        Me.RadioButton3 = New System.Windows.Forms.RadioButton()

        Me.TextBox1 = New System.Windows.Forms.TextBox()

        Me.Label11 = New System.Windows.Forms.Label()

        Me.TextBox2 = New System.Windows.Forms.TextBox()

        Me.Label13 = New System.Windows.Forms.Label()

        Me.TextBox3 = New System.Windows.Forms.TextBox()

        Me.TextBox4 = New System.Windows.Forms.TextBox()

        Me.TextBox5 = New System.Windows.Forms.TextBox()

        Me.TextBox6 = New System.Windows.Forms.TextBox()

        Me.TextBox7 = New System.Windows.Forms.TextBox()

        Me.Button2 = New System.Windows.Forms.Button()

        Me.Button1 = New System.Windows.Forms.Button()

        Me.RadioButton4 = New System.Windows.Forms.RadioButton()

        Me.RadioButton5 = New System.Windows.Forms.RadioButton()

        Me.RadioButton6 = New System.Windows.Forms.RadioButton()

        Me.GroupBox1 = New System.Windows.Forms.GroupBox()

        Me.GroupBox2 = New System.Windows.Forms.GroupBox()

        Me.Label14 = New System.Windows.Forms.Label()

        Me.Button3 = New System.Windows.Forms.Button()

        Me.GroupBox1.SuspendLayout()

        Me.GroupBox2.SuspendLayout()

        Me.SuspendLayout()

        '

        'Label1

        '

        Me.Label1.AutoSize = True

        Me.Label1.Font = New System.Drawing.Font("Boopee", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label1.Location = New System.Drawing.Point(224, 9)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(387, 36)

        Me.Label1.TabIndex = 1

        Me.Label1.Text = "Formulir Pendaftaran Miss Industri 2012"

        '

        'Label2

        '

        Me.Label2.AutoSize = True

        Me.Label2.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label2.Location = New System.Drawing.Point(145, 102)

        Me.Label2.Name = "Label2"

        Me.Label2.Size = New System.Drawing.Size(84, 20)

        Me.Label2.TabIndex = 2

        Me.Label2.Text = "Ukuran Kemeja"

        '

        'Label3

        '

        Me.Label3.AutoSize = True

        Me.Label3.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label3.Location = New System.Drawing.Point(145, 147)

        Me.Label3.Name = "Label3"

        Me.Label3.Size = New System.Drawing.Size(86, 20)

        Me.Label3.TabIndex = 3

        Me.Label3.Text = "Ukuran T-Shirt"

        '

        'Label4

        '

        Me.Label4.AutoSize = True

        Me.Label4.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label4.Location = New System.Drawing.Point(144, 189)

        Me.Label4.Name = "Label4"

        Me.Label4.Size = New System.Drawing.Size(75, 20)

        Me.Label4.TabIndex = 4

        Me.Label4.Text = "Tinggi Badan"

        '

        'Label5

        '

        Me.Label5.AutoSize = True

        Me.Label5.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label5.Location = New System.Drawing.Point(144, 223)

        Me.Label5.Name = "Label5"

        Me.Label5.Size = New System.Drawing.Size(70, 20)

        Me.Label5.TabIndex = 5

        Me.Label5.Text = "Berat Badan"

        '

        'Label6

        '

        Me.Label6.AutoSize = True

        Me.Label6.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label6.Location = New System.Drawing.Point(144, 257)

        Me.Label6.Name = "Label6"

        Me.Label6.Size = New System.Drawing.Size(123, 20)

        Me.Label6.TabIndex = 6

        Me.Label6.Text = "Ukuran Celana Panjang"

        '

        'Label7

        '

        Me.Label7.AutoSize = True

        Me.Label7.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label7.Location = New System.Drawing.Point(145, 291)

        Me.Label7.Name = "Label7"

        Me.Label7.Size = New System.Drawing.Size(83, 20)

        Me.Label7.TabIndex = 7

        Me.Label7.Text = "Ukuran Sepatu"

        '

        'Label8

        '

        Me.Label8.AutoSize = True

        Me.Label8.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label8.Location = New System.Drawing.Point(144, 325)

        Me.Label8.Name = "Label8"

        Me.Label8.Size = New System.Drawing.Size(68, 20)

        Me.Label8.TabIndex = 8

        Me.Label8.Text = "Ukuran Dada"

        '

        'Label9

        '

        Me.Label9.AutoSize = True

        Me.Label9.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label9.Location = New System.Drawing.Point(145, 359)

        Me.Label9.Name = "Label9"

        Me.Label9.Size = New System.Drawing.Size(86, 20)

        Me.Label9.TabIndex = 9

        Me.Label9.Text = "Ukuran Pinggul"

        '

        'Label10

        '

        Me.Label10.AutoSize = True

        Me.Label10.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label10.Location = New System.Drawing.Point(145, 393)

        Me.Label10.Name = "Label10"

        Me.Label10.Size = New System.Drawing.Size(96, 20)

        Me.Label10.TabIndex = 10

        Me.Label10.Text = "Ukuran Pinggang"

        '

        'RadioButton1

        '

        Me.RadioButton1.AutoSize = True

        Me.RadioButton1.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.RadioButton1.Location = New System.Drawing.Point(6, 10)

        Me.RadioButton1.Name = "RadioButton1"

        Me.RadioButton1.Size = New System.Drawing.Size(34, 24)

        Me.RadioButton1.TabIndex = 11

        Me.RadioButton1.TabStop = True

        Me.RadioButton1.Text = "S"

        Me.RadioButton1.UseVisualStyleBackColor = True

        '

        'Label12

        '

        Me.Label12.AutoSize = True

        Me.Label12.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label12.Location = New System.Drawing.Point(493, 322)

        Me.Label12.Name = "Label12"

        Me.Label12.Size = New System.Drawing.Size(0, 20)

        Me.Label12.TabIndex = 13

        '

        'RadioButton2

        '

        Me.RadioButton2.AutoSize = True

        Me.RadioButton2.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.RadioButton2.Location = New System.Drawing.Point(87, 10)

        Me.RadioButton2.Name = "RadioButton2"

        Me.RadioButton2.Size = New System.Drawing.Size(32, 24)

        Me.RadioButton2.TabIndex = 14

        Me.RadioButton2.TabStop = True

        Me.RadioButton2.Text = "L"

        Me.RadioButton2.UseVisualStyleBackColor = True

        '

        'RadioButton3

        '

        Me.RadioButton3.AutoSize = True

        Me.RadioButton3.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.RadioButton3.Location = New System.Drawing.Point(46, 10)

        Me.RadioButton3.Name = "RadioButton3"

        Me.RadioButton3.Size = New System.Drawing.Size(35, 24)

        Me.RadioButton3.TabIndex = 15

        Me.RadioButton3.TabStop = True

        Me.RadioButton3.Text = "M"

        Me.RadioButton3.UseVisualStyleBackColor = True

        '

        'TextBox1

        '

        Me.TextBox1.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox1.Location = New System.Drawing.Point(384, 186)

        Me.TextBox1.Name = "TextBox1"

        Me.TextBox1.Size = New System.Drawing.Size(227, 28)

        Me.TextBox1.TabIndex = 19

        '

        'Label11

        '

        Me.Label11.AutoSize = True

        Me.Label11.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label11.Location = New System.Drawing.Point(614, 189)

        Me.Label11.Name = "Label11"

        Me.Label11.Size = New System.Drawing.Size(23, 20)

        Me.Label11.TabIndex = 20

        Me.Label11.Text = "cm"

        '

        'TextBox2

        '

        Me.TextBox2.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox2.Location = New System.Drawing.Point(384, 220)

        Me.TextBox2.Name = "TextBox2"

        Me.TextBox2.Size = New System.Drawing.Size(227, 28)

        Me.TextBox2.TabIndex = 21

        '

        'Label13

        '

        Me.Label13.AutoSize = True

        Me.Label13.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label13.Location = New System.Drawing.Point(617, 223)

        Me.Label13.Name = "Label13"

        Me.Label13.Size = New System.Drawing.Size(20, 20)

        Me.Label13.TabIndex = 22

        Me.Label13.Text = "kg"

        '

        'TextBox3

        '

        Me.TextBox3.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox3.Location = New System.Drawing.Point(384, 254)

        Me.TextBox3.Name = "TextBox3"

        Me.TextBox3.Size = New System.Drawing.Size(227, 28)

        Me.TextBox3.TabIndex = 23

        '

        'TextBox4

        '

        Me.TextBox4.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox4.Location = New System.Drawing.Point(384, 288)

        Me.TextBox4.Name = "TextBox4"

        Me.TextBox4.Size = New System.Drawing.Size(227, 28)

        Me.TextBox4.TabIndex = 24

        '

        'TextBox5

        '

        Me.TextBox5.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox5.Location = New System.Drawing.Point(384, 322)

        Me.TextBox5.Name = "TextBox5"

        Me.TextBox5.Size = New System.Drawing.Size(227, 28)

        Me.TextBox5.TabIndex = 25

        '

        'TextBox6

        '

        Me.TextBox6.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox6.Location = New System.Drawing.Point(384, 356)

        Me.TextBox6.Name = "TextBox6"

        Me.TextBox6.Size = New System.Drawing.Size(227, 28)

        Me.TextBox6.TabIndex = 26

        '

        'TextBox7

        '

        Me.TextBox7.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox7.Location = New System.Drawing.Point(384, 390)

        Me.TextBox7.Name = "TextBox7"

        Me.TextBox7.Size = New System.Drawing.Size(227, 28)

        Me.TextBox7.TabIndex = 27

        '

        'Button2

        '

        Me.Button2.Font = New System.Drawing.Font("Boopee", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button2.Location = New System.Drawing.Point(700, 439)

        Me.Button2.Name = "Button2"

        Me.Button2.Size = New System.Drawing.Size(75, 31)

        Me.Button2.TabIndex = 29

        Me.Button2.Text = "Lanjut"

        Me.Button2.UseVisualStyleBackColor = True

        '

        'Button1

        '

        Me.Button1.Font = New System.Drawing.Font("Boopee", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button1.Location = New System.Drawing.Point(598, 439)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(75, 31)

        Me.Button1.TabIndex = 28

        Me.Button1.Text = "Kembali"

        Me.Button1.UseVisualStyleBackColor = True

        '

        'RadioButton4

        '

        Me.RadioButton4.AutoSize = True

        Me.RadioButton4.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.RadioButton4.Location = New System.Drawing.Point(46, 15)

        Me.RadioButton4.Name = "RadioButton4"

        Me.RadioButton4.Size = New System.Drawing.Size(35, 24)

        Me.RadioButton4.TabIndex = 32

        Me.RadioButton4.TabStop = True

        Me.RadioButton4.Text = "M"

        Me.RadioButton4.UseVisualStyleBackColor = True

        '

        'RadioButton5

        '

        Me.RadioButton5.AutoSize = True

        Me.RadioButton5.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.RadioButton5.Location = New System.Drawing.Point(87, 15)

        Me.RadioButton5.Name = "RadioButton5"

        Me.RadioButton5.Size = New System.Drawing.Size(32, 24)

        Me.RadioButton5.TabIndex = 31

        Me.RadioButton5.TabStop = True

        Me.RadioButton5.Text = "L"

        Me.RadioButton5.UseVisualStyleBackColor = True

        '

        'RadioButton6

        '

        Me.RadioButton6.AutoSize = True

        Me.RadioButton6.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.RadioButton6.Location = New System.Drawing.Point(6, 15)

        Me.RadioButton6.Name = "RadioButton6"

        Me.RadioButton6.Size = New System.Drawing.Size(34, 24)

        Me.RadioButton6.TabIndex = 30

        Me.RadioButton6.TabStop = True

        Me.RadioButton6.Text = "S"

        Me.RadioButton6.UseVisualStyleBackColor = True

        '

        'GroupBox1

        '

        Me.GroupBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None

        Me.GroupBox1.Controls.Add(Me.RadioButton2)

        Me.GroupBox1.Controls.Add(Me.RadioButton1)

        Me.GroupBox1.Controls.Add(Me.RadioButton3)

        Me.GroupBox1.Location = New System.Drawing.Point(384, 90)

        Me.GroupBox1.Name = "GroupBox1"

        Me.GroupBox1.Size = New System.Drawing.Size(124, 40)

        Me.GroupBox1.TabIndex = 33

        Me.GroupBox1.TabStop = False

        '

        'GroupBox2

        '

        Me.GroupBox2.Controls.Add(Me.RadioButton5)

        Me.GroupBox2.Controls.Add(Me.RadioButton6)

        Me.GroupBox2.Controls.Add(Me.RadioButton4)

        Me.GroupBox2.Location = New System.Drawing.Point(384, 130)

        Me.GroupBox2.Name = "GroupBox2"

        Me.GroupBox2.Size = New System.Drawing.Size(124, 45)

        Me.GroupBox2.TabIndex = 34

        Me.GroupBox2.TabStop = False

        '

        'Label14

        '

        Me.Label14.AutoSize = True

        Me.Label14.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label14.ForeColor = System.Drawing.Color.Red

        Me.Label14.Location = New System.Drawing.Point(380, 45)

        Me.Label14.Name = "Label14"

        Me.Label14.Size = New System.Drawing.Size(103, 20)

        Me.Label14.TabIndex = 35

        Me.Label14.Text = "Semua Harus Diisi"

        '

        'Button3

        '

        Me.Button3.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button3.Location = New System.Drawing.Point(497, 439)

        Me.Button3.Name = "Button3"

        Me.Button3.Size = New System.Drawing.Size(75, 31)

        Me.Button3.TabIndex = 36

        Me.Button3.Text = "Clear"

        Me.Button3.UseVisualStyleBackColor = True

        '

        'Form2

        '

        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

        Me.BackColor = System.Drawing.Color.LightGreen

        Me.ClientSize = New System.Drawing.Size(787, 482)

        Me.Controls.Add(Me.Button3)

        Me.Controls.Add(Me.Label14)

        Me.Controls.Add(Me.GroupBox2)

        Me.Controls.Add(Me.GroupBox1)

        Me.Controls.Add(Me.Button2)

        Me.Controls.Add(Me.Button1)

        Me.Controls.Add(Me.TextBox7)

        Me.Controls.Add(Me.TextBox6)

        Me.Controls.Add(Me.TextBox5)

        Me.Controls.Add(Me.TextBox4)

        Me.Controls.Add(Me.TextBox3)

        Me.Controls.Add(Me.Label13)

        Me.Controls.Add(Me.TextBox2)

        Me.Controls.Add(Me.Label11)

        Me.Controls.Add(Me.TextBox1)

        Me.Controls.Add(Me.Label12)

        Me.Controls.Add(Me.Label10)

        Me.Controls.Add(Me.Label9)

        Me.Controls.Add(Me.Label8)

        Me.Controls.Add(Me.Label7)

        Me.Controls.Add(Me.Label6)

        Me.Controls.Add(Me.Label5)

        Me.Controls.Add(Me.Label4)

        Me.Controls.Add(Me.Label3)

        Me.Controls.Add(Me.Label2)

        Me.Controls.Add(Me.Label1)

        Me.Name = "Form2"

        Me.Text = "Formulir Pendaftaran Miss Industri 2012"

        Me.GroupBox1.ResumeLayout(False)

        Me.GroupBox1.PerformLayout()

        Me.GroupBox2.ResumeLayout(False)

        Me.GroupBox2.PerformLayout()

        Me.ResumeLayout(False)

        Me.PerformLayout()

    End Sub

    Friend WithEvents Label1 As System.Windows.Forms.Label

    Friend WithEvents Label2 As System.Windows.Forms.Label

    Friend WithEvents Label3 As System.Windows.Forms.Label

    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 Label7 As System.Windows.Forms.Label

    Friend WithEvents Label8 As System.Windows.Forms.Label

    Friend WithEvents Label9 As System.Windows.Forms.Label

    Friend WithEvents Label10 As System.Windows.Forms.Label

    Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton

    Friend WithEvents Label12 As System.Windows.Forms.Label

    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 Label11 As System.Windows.Forms.Label

    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox

    Friend WithEvents Label13 As System.Windows.Forms.Label

    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox6 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox7 As System.Windows.Forms.TextBox

    Friend WithEvents Button2 As System.Windows.Forms.Button

    Friend WithEvents Button1 As System.Windows.Forms.Button

    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 GroupBox1 As System.Windows.Forms.GroupBox

    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form1.Show()

        Me.Hide()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If TextBox1.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If TextBox2.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If TextBox3.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If TextBox4.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If TextBox5.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If TextBox6.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If TextBox7.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If RadioButton1.Checked Or RadioButton2.Checked Or RadioButton3.Checked Then

            Form3.Show()

            Me.Hide()

        Else

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If RadioButton4.Checked Or RadioButton5.Checked Or RadioButton6.Checked Then

            Form3.Show()

            Me.Hide()

        Else

            MsgBox("Semua Harus Diisi")

            Return

        End If

        Form3.Show()

        Me.Hide()

    End Sub

    Friend WithEvents Label14 As System.Windows.Forms.Label

    Friend WithEvents Button3 As System.Windows.Forms.Button

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        RadioButton1.Checked = False

        RadioButton2.Checked = False

        RadioButton3.Checked = False

        RadioButton4.Checked = False

        RadioButton5.Checked = False

        RadioButton6.Checked = False

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

    End Sub

End Class

6. Setelah itu buat form3 dengan text sama seperti sebelumnya. Agar semua harus diisi gunakan required field. Dan cara cara required field dapat dilihat pada gambar listing berikut dibawah ini. Dan juga label, button, check box dapat diikuti seperti gambar dibawah ini atau bisadibuat dengan sekreatif mungkin

Berikut merupakan gambar listing dan pada tombol selesai gunakan msgbox

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Partial Class Form3

    Inherits System.Windows.Forms.Form3

    'Form overrides dispose to clean up the component list.

    <System.Diagnostics.DebuggerNonUserCode()> _

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)

        Try

            If disposing AndAlso components IsNot Nothing Then

                components.Dispose()

            End If

        Finally

            MyBase.Dispose(disposing)

        End Try

    End Sub

    'Required by the Windows Form Designer

    Private components As System.ComponentModel.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.Button2 = New System.Windows.Forms.Button()

        Me.Button1 = New System.Windows.Forms.Button()

        Me.Label1 = New System.Windows.Forms.Label()

        Me.Label2 = New System.Windows.Forms.Label()

        Me.Label3 = New System.Windows.Forms.Label()

        Me.Label4 = New System.Windows.Forms.Label()

        Me.Label5 = New System.Windows.Forms.Label()

        Me.Label7 = New System.Windows.Forms.Label()

        Me.CheckBox1 = New System.Windows.Forms.CheckBox()

        Me.CheckBox2 = New System.Windows.Forms.CheckBox()

        Me.CheckBox3 = New System.Windows.Forms.CheckBox()

        Me.CheckBox5 = New System.Windows.Forms.CheckBox()

        Me.TextBox2 = New System.Windows.Forms.TextBox()

        Me.TextBox1 = New System.Windows.Forms.TextBox()

        Me.TextBox3 = New System.Windows.Forms.TextBox()

        Me.TextBox4 = New System.Windows.Forms.TextBox()

        Me.TextBox5 = New System.Windows.Forms.TextBox()

        Me.Label13 = New System.Windows.Forms.Label()

        Me.Label6 = New System.Windows.Forms.Label()

        Me.Label8 = New System.Windows.Forms.Label()

        Me.Button3 = New System.Windows.Forms.Button()

        Me.SuspendLayout()

        '

        'Button2

        '

        Me.Button2.Font = New System.Drawing.Font("Boopee", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button2.Location = New System.Drawing.Point(703, 469)

        Me.Button2.Name = "Button2"

        Me.Button2.Size = New System.Drawing.Size(75, 23)

        Me.Button2.TabIndex = 26

        Me.Button2.Text = "Selesai"

        Me.Button2.UseVisualStyleBackColor = True

        '

        'Button1

        '

        Me.Button1.Font = New System.Drawing.Font("Boopee", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button1.Location = New System.Drawing.Point(601, 469)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(75, 23)

        Me.Button1.TabIndex = 25

        Me.Button1.Text = "Kembali"

        Me.Button1.UseVisualStyleBackColor = True

        '

        'Label1

        '

        Me.Label1.AutoSize = True

        Me.Label1.Font = New System.Drawing.Font("Boopee", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label1.Location = New System.Drawing.Point(207, 9)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(387, 36)

        Me.Label1.TabIndex = 27

        Me.Label1.Text = "Formulir Pendaftaran Miss Industri 2012"

        '

        'Label2

        '

        Me.Label2.AutoSize = True

        Me.Label2.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label2.Location = New System.Drawing.Point(131, 58)

        Me.Label2.Name = "Label2"

        Me.Label2.Size = New System.Drawing.Size(36, 20)

        Me.Label2.TabIndex = 28

        Me.Label2.Text = "Bakat"

        '

        'Label3

        '

        Me.Label3.AutoSize = True

        Me.Label3.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label3.Location = New System.Drawing.Point(131, 253)

        Me.Label3.Name = "Label3"

        Me.Label3.Size = New System.Drawing.Size(146, 20)

        Me.Label3.TabIndex = 29

        Me.Label3.Text = "Lomba Yang Pernah Diikuti"

        '

        'Label4

        '

        Me.Label4.AutoSize = True

        Me.Label4.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label4.Location = New System.Drawing.Point(131, 123)

        Me.Label4.Name = "Label4"

        Me.Label4.Size = New System.Drawing.Size(116, 20)

        Me.Label4.TabIndex = 30

        Me.Label4.Text = "Bahasa Yang Dikuasai"

        '

        'Label5

        '

        Me.Label5.AutoSize = True

        Me.Label5.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label5.Location = New System.Drawing.Point(131, 156)

        Me.Label5.Name = "Label5"

        Me.Label5.Size = New System.Drawing.Size(60, 20)

        Me.Label5.TabIndex = 31

        Me.Label5.Text = "Sertifikat"

        '

        'Label7

        '

        Me.Label7.AutoSize = True

        Me.Label7.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label7.Location = New System.Drawing.Point(131, 350)

        Me.Label7.Name = "Label7"

        Me.Label7.Size = New System.Drawing.Size(127, 20)

        Me.Label7.TabIndex = 33

        Me.Label7.Text = "Pengalaman Organisasi"

        '

        'CheckBox1

        '

        Me.CheckBox1.AutoSize = True

        Me.CheckBox1.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.CheckBox1.Location = New System.Drawing.Point(326, 57)

        Me.CheckBox1.Name = "CheckBox1"

        Me.CheckBox1.Size = New System.Drawing.Size(74, 24)

        Me.CheckBox1.TabIndex = 34

        Me.CheckBox1.Text = "Menyanyi"

        Me.CheckBox1.UseVisualStyleBackColor = True

        '

        'CheckBox2

        '

        Me.CheckBox2.AutoSize = True

        Me.CheckBox2.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.CheckBox2.Location = New System.Drawing.Point(406, 57)

        Me.CheckBox2.Name = "CheckBox2"

        Me.CheckBox2.Size = New System.Drawing.Size(61, 24)

        Me.CheckBox2.TabIndex = 35

        Me.CheckBox2.Text = "Menari"

        Me.CheckBox2.UseVisualStyleBackColor = True

        '

        'CheckBox3

        '

        Me.CheckBox3.AutoSize = True

        Me.CheckBox3.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.CheckBox3.Location = New System.Drawing.Point(473, 57)

        Me.CheckBox3.Name = "CheckBox3"

        Me.CheckBox3.Size = New System.Drawing.Size(75, 24)

        Me.CheckBox3.TabIndex = 36

        Me.CheckBox3.Text = "Bermusik"

        Me.CheckBox3.UseVisualStyleBackColor = True

        '

        'CheckBox5

        '

        Me.CheckBox5.AutoSize = True

        Me.CheckBox5.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.CheckBox5.Location = New System.Drawing.Point(554, 57)

        Me.CheckBox5.Name = "CheckBox5"

        Me.CheckBox5.Size = New System.Drawing.Size(64, 24)

        Me.CheckBox5.TabIndex = 38

        Me.CheckBox5.Text = "Lainnya"

        Me.CheckBox5.UseVisualStyleBackColor = True

        '

        'TextBox2

        '

        Me.TextBox2.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox2.Location = New System.Drawing.Point(326, 120)

        Me.TextBox2.Name = "TextBox2"

        Me.TextBox2.Size = New System.Drawing.Size(367, 27)

        Me.TextBox2.TabIndex = 40

        '

        'TextBox1

        '

        Me.TextBox1.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox1.Location = New System.Drawing.Point(545, 81)

        Me.TextBox1.Name = "TextBox1"

        Me.TextBox1.Size = New System.Drawing.Size(148, 27)

        Me.TextBox1.TabIndex = 41

        '

        'TextBox3

        '

        Me.TextBox3.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox3.Location = New System.Drawing.Point(326, 153)

        Me.TextBox3.Multiline = True

        Me.TextBox3.Name = "TextBox3"

        Me.TextBox3.Size = New System.Drawing.Size(367, 91)

        Me.TextBox3.TabIndex = 42

        '

        'TextBox4

        '

        Me.TextBox4.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox4.Location = New System.Drawing.Point(326, 250)

        Me.TextBox4.Multiline = True

        Me.TextBox4.Name = "TextBox4"

        Me.TextBox4.Size = New System.Drawing.Size(367, 91)

        Me.TextBox4.TabIndex = 43

        '

        'TextBox5

        '

        Me.TextBox5.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox5.Location = New System.Drawing.Point(326, 347)

        Me.TextBox5.Multiline = True

        Me.TextBox5.Name = "TextBox5"

        Me.TextBox5.Size = New System.Drawing.Size(367, 91)

        Me.TextBox5.TabIndex = 44

        '

        'Label13

        '

        Me.Label13.AutoSize = True

        Me.Label13.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label13.ForeColor = System.Drawing.Color.Red

        Me.Label13.Location = New System.Drawing.Point(173, 55)

        Me.Label13.Name = "Label13"

        Me.Label13.Size = New System.Drawing.Size(21, 24)

        Me.Label13.TabIndex = 45

        Me.Label13.Text = "*"

        '

        'Label6

        '

        Me.Label6.AutoSize = True

        Me.Label6.Font = New System.Drawing.Font("Boopee", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label6.ForeColor = System.Drawing.Color.Red

        Me.Label6.Location = New System.Drawing.Point(253, 120)

        Me.Label6.Name = "Label6"

        Me.Label6.Size = New System.Drawing.Size(21, 24)

        Me.Label6.TabIndex = 46

        Me.Label6.Text = "*"

        '

        'Label8

        '

        Me.Label8.AutoSize = True

        Me.Label8.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label8.ForeColor = System.Drawing.Color.Red

        Me.Label8.Location = New System.Drawing.Point(91, 467)

        Me.Label8.Name = "Label8"

        Me.Label8.Size = New System.Drawing.Size(79, 20)

        Me.Label8.TabIndex = 47

        Me.Label8.Text = "* Harus Diisi"

        '

        'Button3

        '

        Me.Button3.Font = New System.Drawing.Font("Boopee", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button3.Location = New System.Drawing.Point(493, 469)

        Me.Button3.Name = "Button3"

        Me.Button3.Size = New System.Drawing.Size(75, 23)

        Me.Button3.TabIndex = 48

        Me.Button3.Text = "Clear"

        Me.Button3.UseVisualStyleBackColor = True

        '

        'Form3

        '

        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

        Me.BackColor = System.Drawing.Color.DeepSkyBlue

        Me.ClientSize = New System.Drawing.Size(790, 504)

        Me.Controls.Add(Me.Button3)

        Me.Controls.Add(Me.Label8)

        Me.Controls.Add(Me.Label6)

        Me.Controls.Add(Me.Label13)

        Me.Controls.Add(Me.TextBox5)

        Me.Controls.Add(Me.TextBox4)

        Me.Controls.Add(Me.TextBox3)

        Me.Controls.Add(Me.TextBox1)

        Me.Controls.Add(Me.TextBox2)

        Me.Controls.Add(Me.CheckBox5)

        Me.Controls.Add(Me.CheckBox3)

        Me.Controls.Add(Me.CheckBox2)

        Me.Controls.Add(Me.CheckBox1)

        Me.Controls.Add(Me.Label7)

        Me.Controls.Add(Me.Label5)

        Me.Controls.Add(Me.Label4)

        Me.Controls.Add(Me.Label3)

        Me.Controls.Add(Me.Label2)

        Me.Controls.Add(Me.Label1)

        Me.Controls.Add(Me.Button2)

        Me.Controls.Add(Me.Button1)

        Me.Name = "Form3"

        Me.Text = "Formulir Pendaftaran Miss Industri 2012"

        Me.ResumeLayout(False)

        Me.PerformLayout()

    End Sub

    Friend WithEvents Button2 As System.Windows.Forms.Button

    Friend WithEvents Button1 As System.Windows.Forms.Button

    Friend WithEvents Label1 As System.Windows.Forms.Label

    Friend WithEvents Label2 As System.Windows.Forms.Label

    Friend WithEvents Label3 As System.Windows.Forms.Label

    Friend WithEvents Label4 As System.Windows.Forms.Label

    Friend WithEvents Label5 As System.Windows.Forms.Label

    Friend WithEvents Label7 As System.Windows.Forms.Label

    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox

    Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox

    Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox

    Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox

    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form2.Show()

        Me.Hide()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim testMsg As String

        testMsg = MsgBox("Yakin Sudah Lengkap?", vbYesNo + vbQuestion, "Peringatan!")

        If testMsg = vbNo Then

            Return

        ElseIf testMsg = vbYes Then

            Form5.Show()

            Me.Hide()

        End If

        If CheckBox1.Checked Or CheckBox2.Checked Or CheckBox3.Checked Then

            Form5.Show()

            Me.Hide()

        ElseIf CheckBox5.Checked = False Or TextBox1.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        If TextBox2.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

       

    End Sub

    Friend WithEvents Label13 As System.Windows.Forms.Label

    Friend WithEvents Label6 As System.Windows.Forms.Label

    Friend WithEvents Label8 As System.Windows.Forms.Label

    Friend WithEvents Button3 As System.Windows.Forms.Button

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        CheckBox1.Checked = False

        CheckBox2.Checked = False

        CheckBox3.Checked = False

        CheckBox5.Checked = False

    End Sub

End Class

7. Buatlah form baru lagi yaitu untuk penutupan dengan text masih sama seperti sebelumnya. Nama form5. Dan label bisa diikuti seperti gambar dibawah ini atau bisa dibuat dengan sekreatif mungkin. Dan button seperti dibawah

berikut merupakan listing dari form5.

Public Class Form5

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form4.Close()

    End Sub

End Class