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

Question

如图，想再输几行这样的复选框，怎么写代码呀？具体输入几行由用户的输入决定~各位大牛们帮帮忙吧：）

Answer 1

啊怎么不能显示外链- -
Private Sub Command2_Click()
        For j = 1 To Form2.numMetric2
            Load Check1(j)
            Check1(j).Caption = "C" & CStr(j)
            Check1(j).Left = Check1(j - 1).Left + 700
            Check1(j).Top = Check1(0).Top
            Check1(j).Visible = True
            Command2.Enabled = False
        Next
End Sub现在我的代码是这样的，想让check1这个复选框再显示几行，显示的行数由输入的数目决定？该怎么写呢~

Answer 2

改变Height值，它会自动换行的。

Answer 3

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