[أبو خالد الشكري]

السلام عليكم يا جماعة الخير

خلاص أخيرًا توصلت إلى حل مشكلة إعادة تحجيم الخط 

وذلك باستخدام الأكواد التالية :

كود :

  Dim FontSize As Byte = Val(cmbFont.Text)
       txtCode.SelectAll()
       txtCode.SelectionFont = New Drawing.Font("", FontSize, Font.Style)

والكود شغال 100% وجميل جدا وسريع

شكرًا جزيلا لكم جميعًا على محاولاتكم نعي في التوصل إلى حل .

بارك الله فيكم .