第1个回答 2019-02-09
但是也得先画第一个控件啊。画一个Option1,把他的Index设置为0.再建一个Command1用于添加其他的.
代码如下。
==========
Private
Sub
Command1_Click()
Load
Option1(Option1.UBound
+
1)
Option1(Option1.UBound).Visible
=
True
Option1(Option1.UBound).Move
Option1(0).Left,
Option1(Option1.UBound
-
1).Top
+
Option1(0).Height
End
Sub