[求助]急。。。在线等~怎么显示这些控件呀。。。



如图，想再输几行这样的复选框，怎么写代码呀？

具体输入几行由用户的输入决定~

各位大牛们帮帮忙吧：）

[解决办法]

VB code

Private Sub Command1_Click()    For j = 1 To 15        Load Check1(j)        If j Mod 4 = 0 Then           Check1(j).Top = Check1(j - 1).Top + 350           Check1(j).Left = Check1(0).Left       Else           Check1(j).Top = Check1(j - 1).Top           Check1(j).Left = Check1(j - 1).Left + 700        End If        Check1(j).Caption = "C" & CStr(j)        Check1(j).Visible = True        Next  End Sub