For i = 1 To 5
    赋值 "InputBox"&i,"Text","你好"&i	
Next
赋值 "CheckBox1", "Value", "1"
完成
Sub 赋值(控件名, 属性, 赋值内容)
    Dim i
    脚本ID = GetMacroID()
    程序路径 = GetExeDir()&"uservar.ini"
    For i =初始数字 To 结束数字
        Call Plugin.File.WriteINI(脚本ID, "Form1."&控件名&"."&属性,赋值内容,程序路径)   	
    Next
End Sub
Sub 完成()
    Form1.LoadSetting
End Sub