Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
比如结构Point
Type POINT
x As Long
y As Long
End Type
Public Const WM_SHOWWINDOW = &H18
这些可以通过ApiView来做
不过你的先设置好的程序启动为Sub Main
project->(your projectname properties) ->general->startup 设置为Sub main
然后开一个模块编写全局的
HANDLE hInstance;
Sub main()
{
wndclass wcls;
registerwindow()...
......................