Private Sub ChkBold_Click()
If ChkBold.Value = 1 Then
LblNama.FontBold = True
Else
LblNama.FontBold = False
End If
End Sub
Private Sub ChkItalic_Click()
If ChkItalic.Value = 1 Then
LblNama.FontItalic = True
Else
LblNama.FontItalic = False
End If
End Sub
Private Sub ChkStr_Click()
If ChkStr.Value = 1 Then
LblNama.FontStrikethru = True
Else
LblNama.FontStrikethru = False
End If
End Sub
Private Sub ChkUnder_Click()
If ChkUnder.Value = 1 Then
LblNama.FontUnderline = True
Else
LblNama.FontUnderline = False
End If
End Sub
Private Sub CmdExit_Click()
End
End Sub
Private Sub OptBlue_Click()
LblNama.ForeColor = vbBlue
End Sub
Private Sub OptGreen_Click()
LblNama.ForeColor = vbGreen
End Sub
Private Sub OptRed_Click()
LblNama.ForeColor = vbRed
End Sub
Private Sub OptYellow_Click()
LblNama.ForeColor = vbYellow
End Sub