Private Sub ChKBOLD_Click()
If chkBOLD.Value = 1 Then
lblteks.FontBold = True
elase
lblteks.FontBold = False
End If
End Sub

Private Sub ChkItalic_Click()
If chkITALIC.Value = 1 Then
lblteks.FontItalic = Ture
elase
lblteks.FontItalic = False
End If
End Sub

Private Sub Chkstrikethru_Click()
If chkstrikethru.Value = 1 Then
lblteks.FontStrikethru = True
elase
lblteks.FontStrikethru = False
End If
End Sub

Private Sub Chkunderline_Click()
If chkunderline.Value = 1 Then
lblteks.FontUnderline = True
elase
lblteks.FontUnderline = False
End If
End Sub

Private Sub Command1_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