TUGAS 2.6
Private Sub
chk1_Click()
lbl2.FontBold = chk1.Value
End Sub
Private Sub
chk2_Click()
lbl2.FontItalic =
chk1.Value
End Sub
Private Sub
cmd1_Click()
lbl2.Caption =
txt1.Text
End Sub
Private Sub
cmd2_Click()
End
End Sub
Private Sub
opt1_Click()
lbl2.ForeColor =
vbBlue
End Sub
Private Sub opt2_Click()
lbl2.ForeColor = vbRed
End Sub