مشكلة تغير الخط في Control tab في النموذج

[gavan]

مرحبا بكم , صادفت مشكلة تغير الخط او عدم تطبيق الخط في Tab control النموذج المرفق يحتوي على ملف اكسس و الخط المطلوب التغير اليه , هل بالامكان حل المشكلة , وشكرا لكم

112.rar

[ابوخليل]

عين الخط عند تحميل النموذج او في حدث الحالي للنموذج هكذا

Private Sub Form_Current()
Me.TabCtl0.FontName = "Zanest _ Dyar Bakr"
End Sub

 

[gavan]

مبدع دائما يا ابو خليل الغالي، تحياتي لك 🌹🌹