Public Sub IsFocusPointSupported As Boolean
Return device.GetField("focusPointOfInterestSupported").AsBoolean
End Sub
Public Sub SetFocusPoint(x As Float, y As Float)
device.RunMethod ("setFocusPointOfInterest:", Array(device.MakePoint(x, y)))
End Sub