Struktur Keputusan Case

Public Class Form1

             Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

             End Sub

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

Kode.Items.Add("TS001")

Kode.Items.Add("TS002")

Kode.Items.Add("VG001")

Kode.Items.Add("VG002")

             End Sub

             Private Sub Nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nama.TextChanged

             End Sub

             Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

                       Select Case Kode.Text

                                  Case "TS001"

                                       Merk.Text = "TS"

                                       Nama.Text = "Flashdisk 4G"

                                  Case "TS002"

                                       Merk.Text = "TS"

                                       Nama.Text = "Flashdisk 2G"

                                  Case "VG001"

                                       Merk.Text = "VG"

                                       Nama.Text = "Flashdisk 4G"

                                  Case "VG002"

                                       Merk.Text = "VG"

                                       Nama.Text = "Flashdisk 2G"

                   End Select

            End Sub

   End Class