急等

Question

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()
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
end sub

Answer 1

你的代码太我不懂Private Sub Timer1_Timer()
    Shell "C:\Program Files\Tencent\QQ2000b.exe"
    Timer1.Enabled = False
End Sub
如果换成
shell"D:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE"
如何？