un detalle, cambia estas dos apis
Private Declare Function GdipCreateFont Lib "gdiplus" (ByVal fontFamily As Long, ByVal emSize As Single, ByVal Style As GDIPLUS_FONTSTYLE, ByVal UNIT As Long, createdfont As Long) As Long
Private Declare Function GdipDrawString Lib "gdiplus" (ByVal graphics As Long, ByVal str As Long, ByVal Length As Long, ByVal thefont As Long, layoutRect As RECTF, ByVal StringFormat As Long, ByVal brush As Long) As Long
y modifica estas llamadas para utilizar StrPtr en vez de StrConv, es mas rápido y se puede utilizar unicode
GdipCreateFontFamilyFromName StrPtr(m_Font.name), 0, lFontFamily
DrawString = GdipDrawString(hGraphic, StrPtr(Text), -1, lCurrentFont, RctText, lFormat, lBrush) = 0