#VB
'rem Modified may/19/2022 by CNC4PC

exec.AddStatusmessage("Parameters: P<Auto_Set_Point>")

if Pvar IsNot Nothing then
 if Pvar = 1 then
   AS3.Switchbutton(true, 21001)
     exec.Writekey("CNC4PC_THC-3", "Auto_Set_Point_Button", "True")
    
 else
   AS3.Switchbutton(false, 21001)
    exec.Writekey("CNC4PC_THC-3", "Auto_Set_Point_Button", "False")
     
end if
end if







