关于VB窗口置顶和百度搜索的声明

关于VB窗口置顶和百度搜索的声明
文件在这里：http://bbs.feiyuhu.com/attachment.php?aid=2042
里面是窗体和代码。就是没API声明，谁帮我弄下，把做好的EXE文件和代码发到hhh6666hhh@163.com 谢谢了，积分不多，100分（可以追加），谁做的好给谁 直接贴代码也行~~~~
1楼的代码我弄不上

'添加一个窗体，添加3个Command

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()

Command1.Caption = "窗口置顶"
Command2.Caption = "窗口正常"
Command3.Caption = "百度搜索"

End Sub

Private Sub Command1_Click()
' 窗口置前
Dim myval
myval = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
End Sub

Private Sub Command2_Click()
'窗口正常
Dim myval
myval = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
End Sub