Public Sub GetPictureSize As CameraSize
r.target = parameters
r.target = r.RunMethod("getPictureSize")
Dim cs As CameraSize
cs.Width = r.GetField("width")' this property is not allowed in camera 2 library
cs.Height = r.GetField("height")' cs camerasize is not initialised from camera library
Return cs
End Sub