Private Sub cmdproses_Click()
Txtgk = Val(txtgapok) + Val(txttj) - Val(txtpt)
Txtpj = Val(Txtgk) * 0.25
Txtgd= Val(Txtgk) - Val(Txtpj)
End Sub
Private Sub cmdulang_Click()
txtgapok = ""
txttj = ""
txtpt = ""
Txtgk = ""
Txtpj = ""
Txtgd = ""
txtgapok.SetFocus
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub