请大家进来帮帮忙了，我解决不了

[s_delhpi]

1。请问怎么动态生成slider，label，和frame？
2。我先定义了一个结构
type self_type
name as string
end
Dim SelfData_Array() As Self_Type
当我用
ArrayNum=10
ReDim Preserve SelfData_Array(ArrayNum) As Self_Type1
总是报“未定义变量”，请问怎么解决，谢谢

[Jameszht]

1.set lbl=controls.add("VB.LABEL","label1")
lbl.visible=true
lbl.left=1000
生成一個label1
2.用public type sele_type

[lovingkiss]

2、
Dim ArrayNum as Long
ArrayNum=10
你没有声明ArrayNum