استخدام خط غير موجود في الجهاز

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
		Dim g As Graphics = e.Graphics

		Dim pointF As New PointF(10, 20)
		Dim fontName As String
		Dim pfc As New PrivateFontCollection
		pfc.AddFontFile("tekhead.ttf")
		pfc.AddFontFile("DELUSION.TTF")
		pfc.AddFontFile("HEMIHEAD.TTF")
	' غير اسم الفونت في السطر التالي الي ما تريد استخدامه
		pfc.AddFontFile("C:\WINNT\Fonts\Verdana.ttf")
		' Return all font families from the collection
		Dim fontFamilies As FontFamily() = pfc.Families
		Dim j As Integer

		While j < fontFamilies.Length
			fontName = fontFamilies(j).Name

			If fontFamilies(j).IsStyleAvailable(FontStyle.Italic) And fontFamilies(j).IsStyleAvailable(FontStyle.Bold) And fontFamilies(j).IsStyleAvailable(FontStyle.Underline) And fontFamilies(j).IsStyleAvailable(FontStyle.Strikeout) Then
				Dim newFont As New Font(fontName, 20, FontStyle.Italic Or FontStyle.Bold Or FontStyle.Underline, GraphicsUnit.Pixel)
				g.DrawString(fontName, newFont, New SolidBrush(Color.Red), pointF)
				pointF.Y += newFont.Height
			End If
		End While
		g.Dispose()
  End Sub