Tugas 2.3

Private Sub cmdproses_Click()
txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)
txtpaj = Val(txtkot) * 0.1
txtgadi = Val(txtkot) - Val(txtpaj)
End Sub

Private Sub cmdulang_Click()
txtgapok = ""
txttun = ""
txtpot = ""
txtkot = ""
txtpaj = ""
txtgadi = ""
txtgapok.SetFocus
End Sub


Private Sub cmdkeluar_Click()
Unload Me
End Sub