Sub Camera1_Ready (Success As Boolean)
If Success Then
camEx.SetPreviewSize(640, 480)
camEx.SetJpegQuality(90)
camEx.SetPreviewFpsRange(7000,7000)
Log("CurrentPreviewFpsRange ________")
Dim MinMax(2) As Int
camEx.GetPreviewFpsRange(MinMax)
Log($"Min = ${MinMax(0)}"$) 'gives 7000
Log($"Max = ${MinMax(1)}"$) 'gives 7000
camEx.CommitParameters 'Error setting parameters message when wrong.
camEx.StartPreview
Else
ToastMessageShow("Cannot open camera.", True)
End If
End Sub