实时错误53 文件未找到

Question

代码如下 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Integer
For a = 3 To 5 Step 1
Shell "IEXPLORE.EXE" & "http;//www.baidu.com"
Next
End Sub form   mousemove 
Borderstyle 0-none
 

Answer 1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Dim a As Integer 
For a = 3 To 5 Step 1 
Shell "IEXPLORE.EXE      " & "http;//www.baidu.com" 
Next 
End Sub 

Answer 2

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http;//www.baidu.com"

Answer 3

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a%
For a = 3 To 5
Shell "C:\Program Files\TheWorld 2.0\TheWorld.exe " & "http://www.baidu.com"
Next
End Sub
打开速度还是蛮快的噢（我用的是世界之窗浏览器  呵呵）