rosistmikpringsewu

Private Sub Cmdkeluar_Click() End End Sub Private Sub Cmdproses_Click() txtgk = Val(Txtgp) + Val(txttj) - Val(txtpt) txtpj = Val(txtgk) * 0.1 txtgd = Val(txtgk) - Val(txtpj) End Sub Private Sub Cmdulang_Click() Txtgp = "" txttj = "" txtpt = "" txtgk = "" txtpj = "" txtgd = "" Txtgp.SetFocus End Sub Private Sub Txtgp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttj.SetFocus End If End Sub Private Sub txtpt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtgk = Val(Txtgp) + Val(txttj) - Val(txtpt) txtpj = Val(txtgk) * 0.1 txtgd = Val(txtgk) - Val(txtpj) End If End Sub Private Sub txttj_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtpt.SetFocus End If End Sub