this sub did the trick

B4X:

```
Sub setminpicturesize
Dim x,y As Int
Dim x2 As Int=1000000
Dim y2 As Int=1000000
Dim pictureSizes() As CameraSize = camEx.GetSupportedPicturesSizes
For i = 0 To pictureSizes.Length - 1
x=pictureSizes(i).Width
y=pictureSizes(i).Height
If x2>x Then
x2=x
y2=y
End If
Next
camEx.SetPictureSize(x2,y2)
'ToastMessageShow(x2 & "/" & y2, False)
camEx.CommitParameters
End Sub
```

** above x2 and y2 initial value equal million, because there is no camera width or height equal million*