İki tane COMBOBOX, Üç tane CHECKBOX ve Bir tane TEXTBOX nesnelerini eklemeniz yeterlidir.

Private Sub Check1_Click()
Text1.FontBold = True
Text1.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Text1.FontItalic = True
Text1.FontItalic = Check2.Value
End Sub
Private Sub Check3_Click()
Text1.FontUnderline = True
Text1.FontUnderline = Check3.Value
End Sub
Private Sub Combo1_click()
Text1.FontName = Combo1.Text
End Sub
Private Sub Combo2_Click()
Text1.FontSize = Combo2.Text
End Sub
Private Sub Form_Load()
Dim i
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next
For i = 8 To 100 Step 2
Combo2.AddItem i
Next

End Sub