tugas 4

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) + Val(txtn2)
End If
End Sub