كود للفيجوال بيسك لتغيير خطوط التيكست
المضافه على الفورم
هذا كود للفوم لود
كود PHP:
Private Sub Form_Load()
كود PHP:
Dim counter As Integer
For counter = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(counter)
Next
End Sub
و هذا كود لليست كليك كود PHP:
Private Sub List1_Click()
كود PHP:
Static tempheight As Single
If tempheight = 0 Then tempheight = List1.Height
List1.Font.Name = Text1.List(List1.ListIndex)
List1.Height = tempheight
End Sub
ارجوا ان تستفيدوا من الاكواد و ان شاء كل يوم راح نضع كود
تحياتي الاحسائي
كود فيجوال بيسك رهيب..... 
كود جميل فعلاً أخي، ولكنك لم تذكر ما الأشياء التي توضع في الفورم 
العرض العادي
