VB 获取 GetLastError 的错误信息

Option Explicit

Private Declare Function FormatMessage Lib "kernel32.dll" Alias "FormatMessageA" ( ByVal dwFlags As Long , lpSource As Any, ByVal dwMessageId As Long , ByVal dwLanguageId As Long , ByVal lpBuffer As String , ByVal nSize As Long , Arguments As Long ) As Long
Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Const FORMAT_MESSAGE_IGNORE_InsertS = &H200

Public Function GetLastDllErr( ByVal lErr As Long ) As String
Dim sReturn As String
sReturn = String$ ( 256 , 32 )
FormatMessage FORMAT_MESSAGE_FROM_SYSTEM or _
FORMAT_MESSAGE_IGNORE_InsertS, 0 &, lErr, _
0 &, sReturn, Len(sReturn), ByVal 0
sReturn = Trim(sReturn)
GetLastDllErr = sReturn
End Function