vb Private Sub Command1-Click()

显然不是你自己的代码!
查了 MSDN,shell 的 第二个参数
Shell 常数
可在代码中的任何地方使用下列常数代替实际值：
常数 值 描述
vbHide 0 窗口是隐藏的,并且焦点被传递给隐藏窗口.
vbNormalFocus 1 窗口拥有焦点,并且恢复到原来的大小与位置.
vbMinimizedFocus 2 窗口缩小为图符并拥有焦点.
vbMaximizedFocus 3 窗口最大化并拥有焦点.
vbNormalNoFocus 4 窗口被恢复到最近一次的大小与位置.当前活动窗口仍为活动窗口.
vbMinimizeNoFocus 6 窗口缩小为图符.当前活动窗口仍为活动窗口.