How TO:应用特定字体文件字体[5]

        Console.WriteLine("默认字体显示ABCDEFGHIJKLMNOPQRSTUVWXYZ")
        Me.Label1.Text = gStrings
        '停顿两秒
        Me.Label1.Refresh()
        System.Threading.Thread.Sleep(2000)

        Console.WriteLine()
        Console.WriteLine("查看系统已安装的字样")
        Array.ForEach(FontFamily.Families, gInstance)

        '安装字体文件
        gPrivateFontCollection = New Drawing.Text.PrivateFontCollection
        gPrivateFontCollection.AddFontFile("..\..\Visualui.TTF")
        Console.WriteLine()
        Console.WriteLine("查看可安装的字样")
        Array.ForEach(gPrivateFontCollection.Families, gInstance)

        '安装字样