Sub mnuFocusMode_Click
s = b.HexFromBytes(camera1.currentFrame)
Msgbox(s,"")
End Sub
Sub TI_Tick
Timer1.Enabled = False
Msgbox("camera1.Picture.Length","")
'Dim out1 As OutputStream
'out1.WriteBytes(camera1.Picture, 0, camera1.Picture.Length)
's = BytesToString(camera1.Picture, 0, camera1.Picture.Length, "UTF-8")
s = b.HexFromBytes(camera1.Picture)
Msgbox("s","")
End Sub