Private Sub chkb_Click()
lbl2.FontBold = chkb.Value
End Sub
Private Sub chki_Click()
lbl2.FontItalic = chkb.Value
End Sub
Private Sub cmdok_Click()
lbl2.Caption = txt1.Text
End Sub
Private Sub cmdselesai_Click()
End
End Sub
Private Sub Opt1_Click()
lbl2.ForeColor = vbBlue
End Sub
Private Sub Opt2_Click()
lbl2.ForeColor = vbRed
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.3
Private Sub cmdproses_Click()
Txtgk = Val(txtgapok) + Val(txttj) - Val(txtpt)
Txtp
TUGAS BP VB 2.1
Private Sub cmdhitung_Click()
Txtdis = Val(Txtha) * 0.25
Txtakhir = 
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