TUGAS PEMROGRAMAN 2.1

Private Sub Txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtn2.SetFocus

End If

End Sub

Private Sub Cmdhitung_Click()

Txthasil = Val(Txtn1) * Val(Txtn2)

End Sub

Private Sub Cmdbersih_Click()

Txtn1.SetFocus

Txtn1 = ""

Txtn2 = ""

Txthasil = ""

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub