منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

هل من الممكن حل هذا الكود 
        Dim fontArialBoldPath As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Fonts), "arialbd.ttf")

الصور في المرفقات

اما ان تقوم عند كل جزء يحتوى على



لتقوم بتعديلها لتصبح



أو ببداية فورم فى الاكواد فى اول سطر بالبداية تقوم باضافة التالى

اشكرك استاذي الكريم ومنكم نستفيد