aplikasi perhitungan tanpa keypress

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
Dim A, B, C, D, E, F As Double
Txtd.Text = Val(Txta.Text) + Val(Txtb.Text) - Val(Txtc.Text)
Txte.Text = Val(Txtd.Text) * (0.1)
Txtf.Text = Val(Txtd.Text) - Val(Txte.Text)
End Sub

Private Sub cmdulang_Click()
Txta = ""
Txtb = ""
Txtc = ""
Txtd = ""
Txte = ""
Txtf = ""
End Sub