Ë­ÄÜ°ïÎÒ°ÑVB´úÂëת³ÉC#лл!!

Imports System.Text
Imports System.Drawing
Imports System.Drawing.Imaging
Public Class FontConvertBmp
    Private m_FontName As String  '×ÖÌåÃû×Ö 
    Private m_FontSize As Integer  '×ÖÌå´óС 
    Private m_String As String    'ÐèÒª´òÓ¡µÄÎı¾ 
    Private m_FontBold As Boolean    '×ÖÌåÑùʽ 
    Private m_X As Integer, m_Y As Integer  '´òӡʱºòµÄX,Y×ø±ê 
    Private m_XZoom As Integer, m_YZoom As Integer  '´òӡʱºòµÄX,Y·½ÏòµÄ·Å´ó±¶Êý×î´óÖ»ÄÜΪ10±¶ 
    Private List1 As List(Of Char), List2 As List(Of Integer)  'ѹËõ´úÂ뼯ºÏ 
    Private S As String
    Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As IntPtr) As Integer
    Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As IntPtr) As IntPtr
    Public Property XZoom() As Integer
        Get
            Return m_XZoom
        End Get
        Set(ByVal value As Integer)
            If value > 0 AndAlso value <= 10 Then
                m_XZoo