Memberi nama komponen Visual Basic 2010

Disini saya akan mengePost tentang Bagaimana cara membuat komponen antar muka pada Visual Basic..
Langsung aja liat deh..

1.  Label

Objek	Properti	Nilai
Form1	Name	frmLabel
	Text	Label
Label1	Name	lblMessage
	Text	Click Me
Button	Name	cmdExit
	Text	&Exit

Public Class frmContoh

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblMessage.Click

        lblMessage.Text = "HELLO WORLD"

    End Sub

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click

        Me.Close()

    End Sub

End Class

Objek	Properti	Nilai
Form1	Name	frmLabel
	Text	Label
Label1	Name	lblTeks
	Text	-

Public Class Label3

    Private Sub Label2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim tulisan As String

        tulisan = " Pemrograman VB"

        lblTeks.Text = tulisan

    End Sub

End Class           

Objek	Properti	Nilai
Form1	Name	frmLabel
	Text	Label
Label1	Name	Label1
	Text	-
Label2	Name	Label2
	Text	-

Public Class frmLabel3

    Private Sub frmLabel3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

        '---mendefinisikan variabel

        Dim teks1 As String

        Dim teks2 As String

        teks1 = "Ingat Program komputer"

        teks2 = "ingat visual basic 2008"

        Label1.Text = teks1

        Label2.Text = teks2

    End Sub

    Private Sub frmLabel3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

           End Sub

End Class

2. Button

Objek	Properti	Nilai
Form1	Name	frmButton
	Text	Button
Button1	Name	cmdOK
	Text	&OK
Button2	Name	cmdExit
	Text	&Exit

Public Class frmButton

    Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click

        End

    End Sub

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click

        cmdExit.Enabled = False

    End Sub

End Class

3. TextBox

Objek	Properti	Nilai
TextBox	Name	txtNama
	Text	-
Form1	Name	frmTextBox
	Text	TextBox

Public Class frmTextBox

    Private Sub txtNama_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txtNama.MouseClick

        txtNama.Text = "Agus Prasetyo"

    End Sub

End Class

4. CheckBox

Objek	Properti	Nilai
CheckBox	Name	chkBox
	Text	-
Form1	Name	frmCheckBoc
	Text	CheckBox

Public Class frmCheckBox

    Private Sub chkBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkBox.CheckedChanged

        chkBox.Text = "Makanan"

        chkBox.Checked = True

    End Sub

End Class

5. Radio Button

Objek	Properti	Nilai
Form1	Name	frmRadioButton
	Text	Radio Button
RadioBUtton	Name	OptPilihan
	Text	-

Public Class Form1

    Private Sub optPilihan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optPilihan.Click

        optPilihan.Text = "Minuman"

        optPilihan.Checked = False

        optPilihan.ForeColor = Color.Aquamarine

    End Sub

End Class

6. Drop-down List / ComboBox 

Objek	Properti	Nilai
Form1	Name	frmComboBox
	Text	ComboBox
Label1	Name	lblPembeli
	Text	Nama Pembeli
Label2	Name	lblJenis
	Text	Jenis Barang
Label3	Name	lblHarga
	Text	Harga Satuan
TextBox1	Name	txtPembeli
	Text	-
ComboBox	Name	cboJenis
	Text	-
	Item	TV, Parabola, Tape
TextBox2	Name	txtHarga
	Text	-
Button	Name	cmdKeluar
	Text	&Keluar

Public Class frmCombo

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboJenis.SelectedIndexChanged

        If cboJenis.SelectedIndex = 0 Then

            txtHarga.Text = 150000

        ElseIf cboJenis.SelectedIndex = 1 Then

            txtHarga.Text = 500000

        Else

            txtHarga.Text = 750000

        End If

    End Sub

    Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click

        End

    End Sub

End Class

7. List-Text

Objek	Properti	Nilai
Form1	Name	frmListtext
	Text	List-text
Label1	Name	lblPembeli
	Text	Nama Pembeli
Label2	Name	lblJenis
	Text	Jenis Barang
Label3	Name	lblHarga
	Text	Harga Satuan
TextBox1	Name	txtPembeli
	Text	-
ListBox	Name	lstJenis
	Text	-
	Item	TV, Parabola, Tape
TextBox2	Name	txtHarga
	Text	-
Button	Name	cmdExit
	Text	&Exit

Public Class frmListtext

    Private Sub lstBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstBarang.SelectedIndexChanged

        If lstBarang.SelectedIndex = 0 Then

            txtHarga.Text = 150000

        ElseIf lstBarang.SelectedIndex = 1 Then

            txtHarga.Text = 500000

        Else

            txtHarga.Text = 750000

        End If

    End Sub

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click

        End

    End Sub

End class

Now Try It Ok...