API and Uniform Planar Load in contour

[luiscr]

I'm trying to define a Uniform Planar Load in contour using API.
The code below is working but I'm still missing how can I define the option "Automatic panel selection in the contour plane".
Any help will be appreciated.

Dim robapp As IRobotApplication
Set robapp = New RobotApplication
Dim cas As IRobotCase
Set cas = robapp.Project.Structure.Cases.Get(1)
Dim smpl_cas As IRobotSimpleCase
Set smpl_cas = cas
Dim rec As IRobotLoadRecord
NovaCarga = smpl_cas.Records.New(I_LRT_IN_CONTOUR)
Set rec = smpl_cas.Records.Get(NovaCarga)

rec.SetValue 0, PX
rec.SetValue 1, PY
rec.SetValue 2, PZ
rec.SetValue 12, 0 'Not projected load
rec.SetValue 13, 3 'Number of points in contour
rec.SetValue 14, 28
rec.SetValue 15, 0 'Global Coord. system
rec.SetContourPoint 1, X1, Y1, Z1
rec.SetContourPoint 2, X2, Y2, Z2
rec.SetContourPoint 3, X3, Y3, Z3

[luiscr]

Problem solved adding this line:

rec.SetValue -1, 1