PROGRAM 2.6 BP1
Private Sub
Chk1_Click()
lbl2.FontBold = Chk1.Value
End Sub
Private Sub Chk2_Click()
lbl2.FontItalic =
Chk2.Value
End Sub
Private Sub Command1_Click()
lbl2.Caption =
txt1
End Sub
Private Sub Command2_Click()
Unload me
End Sub
Private Sub Opt1_Click()
lbl2.ForeColor =
vbBlue
End Sub
Private Sub Opt2_Click()
lbl2.ForeColor =
vbRed
End Sub
Komentar
Posting Komentar