[عبد الهادي بهاب]

وعليكم السلام

اكتب اسماءهم في مصفوفة ثم قم بالمرور عليهم بحلفة For كالتالي

كود :

Dim fonts = {"egyptian.ttf", "egyptian.ttf", "egyptian.ttf"}
For Each f As String In fonts
   privateFonts.AddFontFile(Application.StartupPath & "\" & f)
Next

لكن الخطوط في ملف السورس 
كما انه غير الممكن ان اضع عدد كبير من الخطوط يديويا
شكرا