Tugas 2.5

Tugas 2.5
Membuat Font Color dan Font Style

Source Code :

Private Sub chkBold_Click()
If chkBold.Value = 1 Then
lblTeks.FontBold = True
Else
lblTeks.FontBold = False
End If
End Sub

Private Sub chkItalic_Click()
If chkItalic.Value = 1 Then
lblTeks.FontItalic = True
Else
lblTeks.FontItalic = False
End If
End Sub

Private Sub chkStrikeout_Click()
If chkStrikeout.Value = 1 Then
lblTeks.FontStrikethru = True
Else
lblTeks.FontStrikethru = False
End If
End Sub

Private Sub chkUnderline_Click()
If chkUnderline.Value = 1 Then
lblTeks.FontUnderline = True
Else
lblTeks.FontUnderline = False
End If
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub optBlue_Click()
lblTeks.ForeColor = vbBlue
End Sub

Private Sub optGreen_Click()
lblTeks.ForeColor = vbGreen
End Sub

Private Sub optRed_Click()
lblTeks.ForeColor = vbRed
End Sub

Private Sub optYellow_Click()
lblTeks.ForeColor = vbYellow
End Sub