Private Sub cmdbersih_Click()
Txtnilai1.Text = “”
txtnilai2.Text = “”
txthasil.Text = “”
Txtnilai1.SetFocus
End Sub

Private Sub cmdhitung_Click()
txthasil.Text = Val(Txtnilai1.Text) * Val(txtnilai2.Text)
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub Txtnilai1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnilai2.SetFocus
End If
End Sub