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

view plaincopy to clipboardprint?
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）运行程序。