2.5 membuat font color dan font style

 2.5

Private Sub chku_Click()

If chku.Value = 1 Then

lbltext.FontUnderline = True

Else

lbltext.FontUnderline = False

End If

End Sub

Private Sub chkb_Click()

If chkb.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub chks_Click()

If chks.Value = 1 Then

lbltext.FontStrikethru = True

Else

lbltext.FontStrikethru = False

End If

End Sub

Private Sub chki_Click()

If chki.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub opnB_Click()

lbltext.ForeColor = vbBlue

End Sub

Private Sub opng_Click(Index As Integer)

lbltext.ForeColor = vbGreen

End Sub

Private Sub opnR_Click()

lbltext.ForeColor = vbRed

End Sub

Private Sub cmdquit_Click()

Unload Me

End Sub

Private Sub opny_Click(Index As Integer)

lbltext.ForeColor = vbYellow

End Sub