Sub sbZoom_ValueChanged (Value As Int, UserChanged As Boolean)
If UserChanged = False Or camEx.IsZoomSupported = False Then Return
camEx.Zoom = Value / 100 * camEx.GetMaxZoom
camEx.CommitParameters
Log("Zoom Supported: " & camEx.IsZoomSupported)
Log("Zoom Max :" & camEx.GetMaxZoom)
Log("Zoom SB Value : " & Value)
Log("Zoom Value : " & camEx.Zoom)
End Sub