checkbox ların style özelliklerini graphical yapmayı unutmayın By

Private Sub Check1_Click Text1. FontBold = Check1. Value End Sub Private Sub Check2_Click Text1. FontItalic = Check2. Value End Sub Private Sub Check3_Click Text1. FontUnderline = Check3. Value End Sub Private Sub Combo1_Click Text1. FontSize = Val(Combo1. Text) End Sub Private Sub Combo2_Click Text1. FontName = Combo2. Text End Sub Private Sub Form_Activate For X = 8 To 50 Combo1. AddItem X Next For X = 0 To Screen. FontCount - 1 Combo2. AddItem Screen. Fonts Next End Sub

paylaşım için tşk ama açıklama yapmamışsın kardeş 3 adet --checkbox 2 adet --combobox 1 adet --textbox By

haa birde text box'ın text değerini boş bırakın