(1)启动API浏览器通过该浏览器复制“SetWindowPos”声明语句(2)启动Visual Basic新建个标准EXE工程(3)使用“工程”|“添加模块”菜单项添加个新模块文件(4)打开模块代码窗口将“SetWindowPos”声明语句粘贴进去(5)打开Form1窗体代码窗口编写如下

view plaincopy to clipboardpr?
Private Sub Form_Load

retnum = SetWindowPos(Me.hwnd, -1, 600, 200, 100, 100, &H40)

If retnum = 0 Then

MsgBox "顶层窗口设置失败！", vbOKOnly + vbExclamation

End If

End Sub

Private Sub Form_Load

retnum = SetWindowPos(Me.hwnd, -1, 600, 200, 100, 100, &H40)

If retnum = 0 Then

MsgBox "顶层窗口设置失败！", vbOKOnly + vbExclamation

End If

End Sub

(6)运行