lfEscapement 'Create a new font GetFont = CreateFontIndirect(lf) End Function Private Sub DrawText(hdc As Long, Text As String, X As Integer, Y As Integer, ...
確定! 回上一頁