关于运行窗口居中的求助

我创建了一个按钮 添加如下代码：
Private Sub Command1_Click()
Dim Temp() As Byte
Temp = LoadResData(101, "CUSTOM")
Open "C:\cmd.exe" For Binary As #1
Put #1, , Temp()
Close #1
Shell "c:\cmd.exe"
End Sub

生成CMD到C盘 然后运行。工程是完整的运行成了 但是CMD蹦出来是最小化的 很不美观 怎么样让CMD运行后在电脑的屏幕的居中又最前面显示呢

不知道是要设置下按钮的属性还是要添加什么代码

如果要代码的话 最好就用我上面的代码写一个完整的代码 谢谢 本人VB菜菜 刚用VB才5分钟

不要用OPEN方法 直接用API

CreateProcess

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息