' Create a numeric by script variable
Dim var1 As CalcVar
var1.Read("NumByScript")
var1.Shortcut = "NumByScript"
var1.Type = 1
var1.Script = "??i1. Gender??"
var1.Save()

' Create a closed with X script
Dim var2 As CalcVar
var2.Read("ClosedByScript")
var2.Shortcut = "ClosedByScript"
var2.Type = 2
var2.Clear()

Dim var2_1 As CalcVarResponse
var2_1.Caption = "M"
var2_1.Script = "??i1. Gender?? Has 1"
var2.Add(var2_1)

Dim var2_2 As CalcVarResponse
var2_2.Caption = "F"
var2_2.Script = "??i1. Gender?? Has 2"
var2.Add(var2_2)
var2.Save()

' Create a closed with one single script
Dim var3 As CalcVar
var3.Read("ClosedBySingleScript")
var3.Shortcut = "ClosedBySingleScript"
var3.Type = 3
var3.Script = "??i1. Gender??"
var3.Clear()

Dim var3_1 As CalcVarResponse
var3_1.Caption = "M"
var3.Add(var3_1)

Dim var3_2 As CalcVarResponse
var3_2.Caption = "F"
var3.Add(var3_2)
'var3.Save()
Dim Res = var3.Save()
If Not(Res.Success) Then
  Debug.Trace("Cannot create variable: " + Res.ErrorMessage  + " (" + var3.Shortcut + ")")
Endif