动态装载复选框控件，求例程，

Question

dim chk as Control
Set chk = Controls.Add("vb.CheckBox", "chkName")

Answer 1

动态改变其 Top 属性
例:
chk.Top=变量

Answer 2

dim intCycle as integerfor intcycle=1 to 10
    Set chk = Controls.Add("vb.CheckBox", "chkName" & intcycle)
    chk.left=100
    chk.Top=100*intcycle
    chk.visible=True
next

Answer 3

dim chk as control
dim intcycle as integerfor intcycle=1 to 10
    Set chk = Controls.Add("vb.CheckBox", "chkName" & intcycle)
    chk.left=100
    chk.Top=100*intcycle
    chk.visible=True
next

Answer 4

dim chk as control
dim intcycle as integerfor intcycle=1 to 10
    Set chk = Controls.Add("vb.CheckBox", "chkName" & intcycle)
    chk.left=100
    chk.Top=500*intcycle
    chk.visible=True
next