私有聲明函數SetWindowPos Lib " user 32 "(ByVal hwnd As Long，ByVal hWndInsertAfter As Long，_
ByVal x壹樣長，ByVal y壹樣長，ByVal cx壹樣長，ByVal cy壹樣長，ByVal wFlags壹樣長)
私有聲明函數FindWindow Lib "user32 "別名" FindWindowA" (ByVal lpClassName為字符串，ByVal lpWindowName為字符串)為Long
私有子命令1_Click()
貝殼App。路徑與路徑。" \\1.exe "，vbNormalFocus '打開當前目錄中的1.exe文件。
獲取妳打開的程序的窗體句柄。
Toshow = FindWindow(vbNullString，"數字詞典生成")'數字詞典生成是您打開的程序的標題，請自行修改。
Const w = 300 '設置應用程序顯示的寬度。
Const h = 200 '設置應用程序的顯示高度。
Left = 100 '距屏幕左側的距離
Top = 100 '距屏幕頂部的距離
SetWindowPos toshow，0，左，上，寬，高，0
末端接頭
對了，常量top和left要改成top1和left1，否則會和表單的屬性重復。