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