Yazı Tipi Uygulaması

Private Sub Check4_Click()
If Check4.Value = 1 Then
Check5.Value = 0
Text1.ForeColor = RGB(255, 0, 0)
End If
End Sub

Private Sub Check5_Click()
If Check5.Value = 1 Then
Check4.Value = 0
Text1.ForeColor = RGB(0, 255, 0)
End If
End Sub

Private Sub Check6_Click()
If Check4.Value = 1 Then
Check5.Value = 0
Text1.ForeColor = RGB(255, 0, 255)
End If
End Sub

Private Sub Command1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
If Check3.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub

Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Text1.FontSize = Text1.FontSize - 5
End Sub
Private Sub Command4_Click()
Text1.FontSize = Text1.FontSize + 5
End Sub