简单的CallByName

Dim hLib As Long
Dim addrProc As Long

hLib=LoadLibrary("user32.dll")
If hLib Then
  addrProc=GetProcAddress(hLib,"MessageBoxA")
  If addrProc Then
    Dim text() As Byte
    Dim title() As Byte
    text=StrConv("text" & chr(0),vbFromUnicode)
    title=StrConv("title" & chr(0),vbFromUnicode)
  Call CallWindowProc(addrProc,Me.hwnd,varptr(text(0)),varptr(title(0)),0&)
  End If
End If