Combo Box and List Box

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CMX_KODE.Items.Add("SI")
        CMX_KODE.Items.Add("TI")
        CMX_KODE.Items.Add("KA")
    End Sub

    Private Sub CMX_KODE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMX_KODE.SelectedIndexChanged
        'Cara 1 menggunakan Selected Index
        If CMX_KODE.SelectedIndex = 0 Then
            LBL_JURUSAN.Text = "Sistem Informasi"
        ElseIf CMX_KODE.SelectedIndex = 1 Then
            LBL_JURUSAN.Text = "Tehnik Informatika"
        ElseIf CMX_KODE.SelectedIndex = 2 Then
            LBL_JURUSAN.Text = "Komputerisasi Akuntansi"

            'Cara 2 Menggunakan .text
            If CMX_KODE.Text = "SI" Then
                LBL_JURUSAN.Text = "Sistem Informasi"
            ElseIf CMX_KODE.Text = "TI" Then
                LBL_JURUSAN.Text = "Teknik Informatika"
            ElseIf CMX_KODE.Text = "KA" Then
                LBL_JURUSAN.Text = "Komputerisasi Akuntansi"
            End If
        End If
    End Sub

    Private Sub BTN_TAMBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_TAMBAH.Click
        LST_NAMA.Items.Add(TXT_TAMBAH.Text)
        TXT_TAMBAH.Text = ""
    End Sub

    Private Sub BTN_HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_HAPUS.Click
        LST_NAMA.Items.Remove(TXT_KURANG.Text)
        TXT_KURANG.Text = ""
    End Sub

    Private Sub BTN_HAPUS2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_HAPUS2.Click
        LST_NAMA.Items.RemoveAt(LST_NAMA.SelectedIndex)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        LST_NAMA.Items.Clear()
    End Sub
End Class

Design Tampilan

SEMOGA BERMANFAAT

---