Txtdis = Val(Txtha) * 0.25
Txtakhir = Val(Txtha) - Val(Txtdis)
End Sub
Private Sub cmdulang_Click()
Txtha = ""
Txtdis = ""
Txtakhir = ""
Txtha.SetFocus
End Sub
Private Sub cmdquit_Click()
Unload Me
End Sub
Share this
Related Posts
TUGAS BP VB 2.7
Private Sub cbonpm_Click()
Dim nama, jurusan, Hm As String
Select Case cbonpm.Text
TUGAS BP VB 2.6
Private Sub chkb_Click()
lbl2.FontBold = chkb.Value
End Sub
Private Sub chki_Cli
TUGAS BP VB 2.8
Private Sub cbonpm_Click()
Dim nama, jurusan, Hm As String
Select Case cbonpm.Te
TUGAS BP VB 2.5
Private Sub Chkb_Click()
If Chkb.Value = 1 Then
lblteks.FontBold = True
Else
lblt
:)
:(
hihi
:-)
:D
=D
:-d
;(
;-(
@-)
:P
:o
:>)
(o)
:p
:-?
(p)
:-s
(m)
8-)
:-t
:-b
b-(
:-#
=p~
$-)
(y)
(f)
x-)
(k)
(h)
cheer