Private Sub Check1_Click()
If Form1.Check1.Value = vbChecked Then
Form1.Text1.Font.Bold = True
Else
Form1.Text1.Font.Bold = False
End If
End Sub
Private Sub Check2_Click()
If Form1.Check2.Value = vbChecked Then
Form1.Text1.Font.Italic = True
Else
Form1.Text1.Font.Italic = False
End If
End Sub
Private Sub Option1_Click()
If Form1.Option1.Value = True Then
Form1.Text1.Font.Name = "courier"
End If
End Sub
Private Sub Option2_Click()
If Form1.Option2.Value = True Then
Form1.Text1.Font.Name = "symbol"
End If
End Sub
Private Sub Option3_Click()
If Form1.Option3.Value = True Then
Form1.Text1.Font.Name = "tahoma"
End If
End Sub
Private Sub Option5_Click()
If Form1.Option5.Value = True Then
Form1.Text1.Font.Size = 10
End If
End Sub
Private Sub Option6_Click()
If Form1.Option6.Value = True Then
Form1.Text1.Font.Size = 14
End If
End Sub
Private Sub Option7_Click()
Documentul este oferit gratuit,
trebuie doar să te autentifici in contul tău.