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

        Dim mFontFamily As FontFamily = New FontFamily("Visualui", gPrivateFontCollection)

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

        '应用字体
        Dim mFont As New Font(mFontFamily, Me.Label1.Font.Size)
        Me.Label1.Font = mFont