Ko Ma BSI

Option Explicit

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Select Case Text1.Text

Case "001"

Text2.Text = "spotect"

Text3.Text = 750000

Case "002"

Text2.Text = "Nike"

Text3.Text = 1000000

Case "003"

Text2.Text = "Adidas"

Text3.Text = 1500000

Case Else

Text2.Text = "tidak ada"

Text3.Text = 0

End Select

End If

End Sub