كيف اقوم بعرض اسماء جميع الخطوط الموجودة في الحاسب

استخدم الاداة FontDialog وليكن اسم الاداءة FontDialog1

ثم اكتب الامر

FontDialog1.ShowDialog()

السلام عليكم

طريق العرض بداخل اداة ال ComboBox

	ComboBox1.Items.Clear()
		For Each ff As FontFamily In System.Drawing.FontFamily.Families
			If ff.IsStyleAvailable(FontStyle.Regular) = True Then
				ComboBox1.Items.Add(ff.Name)
			End If
		Next
		ComboBox1.SelectedIndex = 0

الله الله الله عليك يا اخ وليد

والله هذا ما كنت اريده بالتحديد

وفقك الله على سرعة استجابتك وردك

اسال الله ان يزيدك علما وفهما وييسر لك طريق الهدى والصلاح انه سميع الدعاء

الاخ وليد

هل يمكن ان تشرح لي باختصار اسطر الشفرة لكي تكون لدي فهم وعلم بها

وفقك الله لكل خير