Private Sub Command1_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub
Private Sub cmdBersih_Click()
Textjumlah1.SetFocus
Textjumlah1 = “”
Textjumlah2 = “”
Textjumlahhasil = “”
Textkurang1 = “”
Textkurang2 = “”
Textkuranghasil = “”
Textbagi1 = “”
Textbagi2 = “”
Textbagihasil = “”
Textkali1 = “”
Textkali2 = “”
Textkalihasil = “”
End Sub
Private Sub cmdHitung_Click()
Textjumlahhasil = Val(Textjumlah1) + Val(Textjumlah2)
Textkuranghasil = Val(Textkurang1) – Val(Textkurang2)
Textbagihasil = Val(Textbagi1) / Val(Textbagi2)
Textkalihasil = Val(Textkali1) * Val(Textkali2)
End Sub