kuis online

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" : Merk.Text = "Toshiba"

            Case "VG" : Merk.Text = "V-Gen"

        End Select

        x = Microsoft.VisualBasic.Right(kode.Text, 3)

        Select Case x

            Case "001" : Nama.Text = "flashdisk 4Gb"

            Case "002" : Nama.Text = "flashdisk 2 Gb"

        End Select

    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

End Class