PERKALIAN DUA BILANGAN

Private Sub CMDBERSIH_Click()
Txt1.Text = “”
Txt2.Text = “”
Txt3.Text = “”
End Sub

Private Sub CMDHITUNG_Click()
Txt3.Text = Val(Txt1.Text) * Val(Txt2.Text)
End Sub

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub Form_Activate()
Txt1.SetFocus
End Sub

Private Sub Txt1_KeyPress(KeyAscii As Integer)
If keyascli = 13 Then
Txt2.SetFocus
End If
End Sub