Sub Camera1_Ready (Success As Boolean)
Dim previewSizes() As CameraSize = camEx.GetSupportedPreviewSizes
Dim current As CameraSize = camEx.GetPreviewSize
For i = 0 To previewSizes.Length - 1
If previewSizes(i).Width = current.Width And previewSizes(i).Height = current.Height Then Exit
Next
Dim ps As CameraSize = previewSizes((i + 1) Mod previewSizes.Length)
camEx.SetpreviewSize(ps.Width, ps.Height)
camEx.CommitParameters
If Success Then
camEx.JpegQuality=90
camEx.CommitParameters
camEx.StartPreview
FocusSupported = False
If api >= 14 Then
If camEx.GetMaxNumFocusAreas <> 0 Then FocusSupported = True
End If
Else
ToastMessageShow("Cannot open camera.", True)
End If
End Sub