vb Private Sub Command1_Click()Private Sub Command1_Click()On Error Resume NextShell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.baidu.com" ys 5【重点是ys 】

vb Private Sub Command1_Click()Private Sub Command1_Click()On Error Resume NextShell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.baidu.com" ys 5【重点是ys 】
vb Private Sub Command1_Click()
Private Sub Command1_Click()
On Error Resume Next
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.baidu.com"
ys 5【重点是ys 】

vb Private Sub Command1_Click()Private Sub Command1_Click()On Error Resume NextShell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.baidu.com" ys 5【重点是ys 】
显然不是你自己的代码!
查了 MSDN,shell 的 第二个参数
Shell 常数
可在代码中的任何地方使用下列常数代替实际值：
常数 值 描述
vbHide 0 窗口是隐藏的,并且焦点被传递给隐藏窗口.
vbNormalFocus 1 窗口拥有焦点,并且恢复到原来的大小与位置.
vbMinimizedFocus 2 窗口缩小为图符并拥有焦点.
vbMaximizedFocus 3 窗口最大化并拥有焦点.
vbNormalNoFocus 4 窗口被恢复到最近一次的大小与位置.当前活动窗口仍为活动窗口.
vbMinimizeNoFocus 6 窗口缩小为图符.当前活动窗口仍为活动窗口.