Private Sub Check1_Click()
'yazımızın kalın veya değil seçeneğini yapıyoruz
If Check1.Value Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub

Private Sub Check2_Click()
'yazımızın italik veya değil seçeneğini yapıyoruz
If Check2.Value Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub

Private Sub Check3_Click()
'Yazımızın altı çizigili ve ya değil seçeneğiniz yapıyoruz
If Check3.Value Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub

Private Sub Combo1_Click()
'Yazımızın Fontunu belirliyoruz
Text1.Font = Combo1.Text
End Sub

Private Sub Combo2_Click()
'Yazımızın Büyüklüğü yani puntosunu belirliyoruz
Text1.FontSize = Combo2.Text
End Sub


Private Sub Combo3_Click()
Dim YaziRengi
'Combo3 Yazımızın rengi için sorgulamaları yapıyoruz
If Combo3.Text = "Beyaz" Then YaziRengi = vbWhite
If Combo3.Text = "Kırmızı" Then YaziRengi = vbRed
If Combo3.Text = "Mavi" Then YaziRengi = vbBlue
If Combo3.Text = "Sarı" Then YaziRengi = vbYellow
If Combo3.Text = "Siyah" Then YaziRengi = vbBlack
Text1.ForeColor = YaziRengi
End Sub


Private Sub Combo4_Click()
Dim ArkaPlanRengi
'Combo4 Yazımızın Arka plan rengi için sorgulamaları yapıyoruz
If Combo4.Text = "Beyaz" Then ArkaPlanRengi = vbWhite
If Combo4.Text = "Kırmızı" Then ArkaPlanRengi = vbRed
If Combo4.Text = "Mavi" Then ArkaPlanRengi = vbBlue
If Combo4.Text = "Sarı" Then ArkaPlanRengi = vbYellow
If Combo4.Text = "Siyah" Then ArkaPlanRengi = vbBlack
Text1.BackColor = ArkaPlanRengi
End Sub

Private Sub Form_Load()
'Program ilk çalıştığında yazımız sağa doğru yaslı olacağın option1 seçili olması lazım
Option1.Value = True
Text1.Alignment = 0 '0 Sağa Yasla, 1 Sola Yasla, 2 Ortala
'Bu şekilde yazımızı ilk sağa doğru yaslanmış olacak istersek sola doğru yasla
'yapabiliriz bu sefer option2.Value=True yapmamız lazım

'Combo1 Yazı Fontu için kullanacaz. Tanımını yapalım
Dim i As Long
For i& = 0& To Screen.FontCount - 1&
Combo1.AddItem Screen.Fonts(i&)
Next i
Combo1.Text = ""
Combo1.SelText = "MS Sans Serif"
Text1.Font = Combo1.Text
'Tüm fontlarımız Combo1 seçneğimize aktarmış oluyoruz

'Yazının Büyüklüğü için Punto belirlemek için Combo2 yi ayarlıyoruz.
For k = 1 To 99
If k > 50 Then k = k + 4
If k = 100 Then k = k - 1
Combo2.AddItem k
Next
Combo2.Text = ""
Combo2.SelText = "12"
Text1.FontSize = Combo2.Text
'Yazı Puntolarımızıda belirledik

'Yazı Rengi için combo3 ayarlama yapıyoruz
Combo3.Text = ""
Combo3.AddItem "Beyaz"
Combo3.AddItem "Kırmızı"
Combo3.AddItem "Mavi"
Combo3.AddItem "Sarı"
Combo3.AddItem "Siyah"
Combo3.SelText = "Siyah"
'Yazı için renkleri de tanımladık

'Combo4 Yazımızın Arka plan rengi için tanımlayacaz
Combo4.Text = ""
Combo4.AddItem "Beyaz"
Combo4.AddItem "Kırmız"
Combo4.AddItem "Mavi"
Combo4.AddItem "Sarı"
Combo4.AddItem "Siyah"
Combo4.SelText = "Beyaz"
'Yazımızın arka planı için renkleri de tanımladık
End Sub

Private Sub Option1_Click()
'yazımızın sağa yaslı olmasını sağlıyoruz
If Option1.Value = True Then
Text1.Alignment = 0
End If
End Sub

Private Sub Option2_Click()
'yazımızın sola yaslı olmasını sağlıyoruz
If Option2.Value = True Then
Text1.Alignment = 1
End If
End Sub

Private Sub Option3_Click()
'yazımızın ortalı olmasını sağlıyoruz
If Option3.Value = True Then
Text1.Alignment = 2
End If
End Sub