这是一个例子，可以打开扫描仪，但是不能拍照，原因是在以下黄色部分代码执行时出现了错误，是什么原因？

Dim pic As WinForm.PictureBox = e.Form.Controls("PicView")
Dim pic2 As WinForm.PictureBox = e.Form.Controls("PicView2")
Dim cam As WinForm.Control = e.Form.Controls("CamView")
Dim box As WinForm.Control = e.Form.Controls("LineBox")
msgbox(1)
\'预览框尺寸
Dim x As Integer = cam.Left
Dim y As Integer = cam.Top
Dim w As Integer = cam.Width
Dim h As Integer = cam.Height
\'截图框尺寸
Dim x1 As Integer = box.Left
Dim y1 As Integer = box.Top
Dim w1 As Integer = box.Width
Dim h1 As Integer = box.Height
msgbox(2)
\'摄像头拍照
_Cap.GrapImg()
msgbox(5)
pic.Image = _Cap.GetBitmap()
msgbox(4)
\'摄像头分辨率
msgbox(pic.Image.Width)
Dim camw As Integer = pic.Image.Width
Dim camh As Integer = pic.Image.Height

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:摄像头拍照 (1).zip

_Cap.GrapImg()

pic.Image = _Cap.GetBitmap()

以上两句代码的原因，不知道该怎么修改？

这是例子中人窗口代码，希望实现先旋转再显示，代码怎么修改？

Dim pbx As WinForm.PictureBox
pbx = Forms("扫描").Controls("PictureBox1")
Dim bmp As New bitmap("C:\\Users\\niuhejun\\Documents\\Foxtable项目\\扫描仪\\自救合同-张森002.jpg")
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
pbx.Image = GetImage("C:\\Users\\niuhejun\\Documents\\Foxtable项目\\扫描仪\\自救合同-张森002.jpg")
pbx.SizeMode = ImageSizeMode.Zoom

添加按钮写入代码

Dim Proc As New Process
Proc.File = "拍照程序的路径和名称"
Proc.Start()
Proc.WaitForExit() \'等带拍照程序退出。

显示“软件已运行，正在激活”，这是为什么，该怎么做？