aplikasi perhitung gaji

Private Sub proses_Click()

txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)

txtpaj = Val(txtkot) * 0.1

Txtgadi = Val(txtkot) - Val(txtpaj)

End Sub

Private Sub batal_Click()

txtgapok = ""

txttun = ""

txtpot = ""

txtkot = ""

txtpaj = ""

Txtgadi = ""

txtgapok.SetFocus

End Sub

Private Sub keluar_Click()

Unload Me

end sub