aplikasi perhitungan menggunakan keypress

Private Sub cmdkeluar_Click()
End
End Sub




Private Sub cmdproses_Click()
Txtgk = Val(Txtgp) + Val(Txttj) - Val(Txtpt)
Txtpj = Val(Txtgk) * 0.1
txtgd = Val(Txtgk) - Val(Txtpj)
End Sub

Private Sub cmdulang_Click()
Txtgp = ""
Txttj = ""
Txtpt = ""
Txtgk = ""
Txtpj = ""
Txtgp = ""
End Sub



Private Sub Txtgp_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
Txttj.SetFocus
End If
End Sub


Private Sub Txtpt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtgk = Val(Txtgp) + Val(Txttj) - Val(Txtpt)
Txtpj = Val(Txtgk) * 0.1
txtgd = Val(Txtgk) - Val(Txtpj)
End If
End Sub

Private Sub Txttj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtpt.SetFocus
End If
End Sub