Sub Camera1_Ready (Success As Boolean)
If Success Then
camEx.SetJpegQuality(90)
camEx.CommitParameters
Panel2.BringToFront
Panel2.Color = Colors.Transparent
Dim c2 As Canvas
c2.Initialize(Panel2)
c2.DrawLine(0,Panel2.height/2,Panel2.Width,Panel2.Height/2,Colors.Red,1dip) 'horizontal line
c2.DrawLine(0,Panel2.height/4,Panel2.Width,Panel2.Height/4,Colors.Red,1dip) 'horizontal line
c2.DrawLine(0,3*Panel2.height/4,Panel2.Width,3*Panel2.Height/4,Colors.Red,1dip) 'horizontal line
c2.DrawLine(0,1*Panel2.height/8,Panel2.Width,1*Panel2.Height/8,Colors.Red,1dip) 'horizontal line
c2.DrawLine(0,3*Panel2.height/8,Panel2.Width,3*Panel2.Height/8,Colors.Red,1dip) 'horizontal line
c2.DrawLine(0,5*Panel2.height/8,Panel2.Width,5*Panel2.Height/8,Colors.Red,1dip) 'horizontal line
c2.DrawLine(0,7*Panel2.height/8,Panel2.Width,7*Panel2.Height/8,Colors.Red,1dip) 'horizontal line
c2.DrawLine(Panel2.width/2,0,Panel2.width/2,Panel2.Height,Colors.Red,1dip) 'vertical line
c2.DrawLine(Panel2.width/4,0,Panel2.width/4,Panel2.Height,Colors.Red,1dip) 'vertical line
c2.DrawLine(3*Panel2.width/4,0,3*Panel2.width/4,Panel2.Height,Colors.Red,1dip) 'vertical line
c2.DrawLine(1*Panel2.width/8,0,1*Panel2.width/8,Panel2.Height,Colors.Red,1dip) 'vertical line
c2.DrawLine(3*Panel2.width/8,0,3*Panel2.width/8,Panel2.Height,Colors.Red,1dip) 'vertical line
c2.DrawLine(5*Panel2.width/8,0,5*Panel2.width/8,Panel2.Height,Colors.Red,1dip) 'vertical line
c2.DrawLine(7*Panel2.width/8,0,7*Panel2.width/8,Panel2.Height,Colors.Red,1dip) 'vertical line
Panel2.Invalidate
camEx.StartPreview
Log(camEx.GetPreviewSize)
Else
ToastMessageShow("Cannot open camera.", True)
End If
End Sub