Declare Function 函数名 Lib "Dll名" Alias "函数别名" (参数) 返回值
或者:
Declare Function 函数名 Lib "Dll名" (参数) 返回值
例子:
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextA Lib "user32" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
注:如果声明中有 Alias "别名" 则可以将函数名可以任意声明,(但别名必须和Dll里函数名和字母大小写格式一样),如果声明中没有别名,则函数名必须和Dll里的函数名称字母大小写一样格式。还有静态链接库的函数调用约定必须是StdCall约定。因为VB只支持这个约定调用。