
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)
Select Case x
Case "TS" : Nama.Text = "Toshiba"
Case...