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")
rancangan_table()
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(Kode.Text, 2)
If x = "TS" Then
Merk.Text = "Toshiba"
x = Microsoft.VisualBasic.Right(Kode.Text, 3)
If x = "001" Then
Nama.Text = "Flashdisk 4GB"