kalkulator menggunakan keypress

Private Sub cmdbatal_Click()

txtn1 = ""

txtn2 = ""

txtn3 = ""

txtn4 = ""

txtn5 = ""

txtn6 = ""

txtn7 = ""

txtn8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtn1.SetFocus

End Sub

Private Sub cmdhitung_Click()

txttotal1 = Val(txtn1) + Val(txtn5)

txttotal2 = Val(txtn2) / Val(txtn6)

txttotal3 = Val(txtn3) - Val(txtn7)

txttotal4 = Val(txtn4) * Val(txtn8)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtn1 = ""

txtn2 = ""

txtn3 = ""

txtn4 = ""

txtn5 = ""

txtn6 = ""

txtn7 = ""

txtn8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtn1.SetFocus

End Sub

Private Sub txtn6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn7.SetFocus

End If

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

txtn3.SetFocus

End If

End Sub

Private Sub txtn3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn4.SetFocus

End If

End Sub

Private Sub txtn4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn5.SetFocus

End If

End Sub

Private Sub txtn5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn6.SetFocus

End If

End Sub

Private Sub txtn7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn8.SetFocus

End If

End Sub

Private Sub txtn8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotal1 = Val(txtn1) + Val(txtn5)

txttotal2 = Val(txtn2) / Val(txtn6)

txttotal3 = Val(txtn3) - Val(txtn7)

txttotal4 = Val(txtn4) * Val(txtn8)

End If

End Sub