大家帮忙看这个程序,我看不太明白!!!!!!!

Public Sub My_DrawText(ByRef LogObj As PictureBox, Start_x As Single, Start_y As Single, My_Text As String, My_Angle As Long, My_Size As Integer)
    Dim My_FontName As String
    Dim font As LOGFONT
    Dim hOldFont As Long, hFont As Long
    
    My_FontName = "Times New Roman"
     
    RtlMoveMemory font.lfFaceName(0), _
                   ByVal CStr(My_FontName), _
                   LenB(StrConv(My_FontName, vbFromUnicode)) + 1
                   
    font.lfHeight = (My_Size * -20) / Screen.TwipsPerPixelY
    'font.lfWidth = (Val(txtWidth) * -20) / Screen.TwipsPerPixelY
    font.lfEscapement = My_Angle * 10
    'font.lfWeight = IIf(chkBold, 700, 400)
    'font.lfItalic = chkItalic
    'font.lfUnderline = chkUnderline
    'font.lfStrikeOut = chkStrikeThrough
    font.lfCharSet = DEFAULT_CHARSET
     
    hFont = CreateFontIndirect(font)
    hOldFont = SelectObject(LogObj.hDC, hFont)
     
    LogObj.CurrentX = Start_x
    LogObj.CurrentY = Start_y
    LogObj.Print My_Text
          
    SelectObject LogObj.hDC, hOldFont
    DeleteObject hFontEnd Sub