打开、关闭摄像头实例源码(Visual Basic 6)