Tugas 2.5

Private Sub chkb_Click()

If chkb.Value = 1 Then

lbl1.fontbold = True

Else

lbl1.FontStrikethru = False

End If

End Sub

Private Sub chki_Click()

If chki.Value = 1 Then

lbl1.FontItalic = True

Else

lbl1.FontItalic = False

End If

End Sub

Private Sub chks_Click()

If chks.Value = 1 Then

lbl1.FontStrikethru = True

Else

lbl1.Fontstikrthru = False

End If

End Sub

Private Sub Chku_Click()

If chks.Value = 1 Then

lbl1.FontUnderline = True

Else

lbl1.FontUnderline = False

End If

End Sub

Private Sub exit_Click()

Unload Me

End Sub

Private Sub opnb_Click()

lbl1.ForeColor = vbBlu

End Sub

Private Sub opng_Click()

lbl1.ForeColor = vbGreen

End Sub

Private Sub opnr_Click()

lbl1.ForeColor = vbRed

End Sub

Private Sub opny_Click()

lbl1.ForeColor = vbYellow

End Sub