控件可以复制成属性一样的吗

Question

我如果给一个控件设置好了属性,形状,大小等等,动态生成控件只能是默认属性啊,可以生成一出来就和源控件一莫一样(除了名字)的控件吗

Answer 1

可以用load方法动态增加控件
比如这样，先在窗体上放一个label1，把他的index属性设为0，再设置他的tag属性为“aaa”，你会看到新增加的label1的tag属性都是“aaa”。
代码如下：
Private Sub Command1_Click()
Load Label1(Label1.UBound + 1)
Label1(Label1.UBound).Top = Label1(Label1.UBound - 1).Top + 300
Label1(Label1.UBound).Visible = True
MsgBox Label1(Label1.UBound).Tag
End Sub