listing program
Private Sub Command1_Click()
txtagk3.Text = Val(txtagk1.Text) * Val(txtagk2.Text)
End Sub
Private Sub Command2_Click()
txtagk1.SetFocus
txtagk1 = “”
txtagk2 = “”
txtagk3 = “”
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub txtagk1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtagk2.SetFocus
End If
End Sub