tugas 2.6 tabel mewarnai

tugas 2.6

Private Sub chkgb_Click()
If chkgb.Value = 1 Then
lbl2.FontUnderline = True
Else
lbl2.FontUnderline = False
End If
End Sub

Private Sub chkm_Click()
If chkm.Value = 1 Then
lbl2.FontItalic = True
Else
lbl2.FontItalic = False
End If
End Sub

Private Sub chkt_Click()
If chkt.Value = 1 Then
lbl2.FontBold = True
Else
lbl2.FontBold = False
End If
End Sub

Private Sub opnb_Click()
lbl2.ForeColor = vbBlue
End Sub

Private Sub opnr_Click()
lbl2.ForeColor = vbRed
End
End Sub