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 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Myhwnd = FindWindow(vbNullString, "计算器") '得到计算器的句柄
SetWindowPos Myhwnd, -1, 400, 100, Me.Width \ 15, Me.Height \ 15, &H400 '设置计算器的大小和位置
End Sub
Private Sub Form_Load()
Shell "calc.exe", vbNormalNoFocus '打开计算器
End Sub
方法二：
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) 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 Command1_Click()
Dim WindowHandle As Long
WindowHandle = FindWindow(vbNullString, "QQ2009") 'QQ2009 改为你的窗体的标题
SetWindowPos WindowHandle, -1, 0, 0, 2000, 2000, &H40
'2000,2000 是你要设置窗口的大小
End Sub