Sub btnFlash_Click
'Dim f() As Float = camEx.GetFocusDistances '<<<<<<<<<<<<<<<< USELESS ?
'Log(f(0) & ", " & f(1) & ", " & f(2)) ' <<<<<<<<<<<<<<<<< USELESS ?
Dim flashModes As List = camEx.GetSupportedFlashModes
If flashModes.IsInitialized = False Then
ToastMessageShow("Flash not supported.", False)
Return
End If
Dim flash As String = flashModes.Get((flashModes.IndexOf(camEx.GetFlashMode) + 1) Mod flashModes.Size)
camEx.SetFlashMode(flash)
ToastMessageShow(flash, False)
camEx.CommitParameters
End Sub