我点击打开按钮时VB没有反应，再点一次VB就会提示错误。具体见下图：





源代码：
Private Sub netbook_Click()
Open "C:\WINDOWS\NOTEPAD.EXE" For Random As 2
End Sub

哦，哈。谢谢你啦！

再次感谢2楼的同志！我找你的方法做了以后虽然错误提示没有啦，但是所要求的笔记本那些程序还是打不开啊！

shell的那个windowsstly的那个属性我还是不太会用！麻烦可以给举个例子吗？还有就是我弄得工程每次运行都是一点点大，怎么才能让他在运行的时候变为全屏呢？

问题已近解决了！谢谢各位！