Sub Camera22_Preview (PreviewPic() As Byte)
Dim jpeg() As Byte = camera22.PreviewImageToJpeg(PreviewPic, 20)
Dim In As InputStream
In.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
Dim bmp As Bitmap
bmp.Initialize2(In)
In.Close
camera2panel.SetBackgroundImage(bmp)
camera1panel.SetBackgroundImage(bmp)
End Sub