[عيد مبارك]

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

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

كود :

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