Tugas 4_4

Txttotal = ""
Txtn1.SetFocus
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtn2.SetFocus
End If

End Sub

Private Sub Txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttotal = Val(Txtn1) + (Txtn2)
End If
End Sub