数组高手来帮忙！

Question

建立有1个成员的命令按钮数组Command1。程序运行时，如果单击设计时绘制的命令按钮且窗体的宽度还可以容纳新的按钮，将动态地为Command1数组添加一个元素，并设置新元素的Caption值为“我是克隆品”，容纳不下则显示消息框“禁止继续克隆！”。如果单击克隆的命令按钮，则不会创建新的命令按钮，并在对话框中显示“请不要用克隆品克隆”。

Answer 1

Private Sub Command1_Click(Index As Integer)
If Index > 0 Then
MsgBox "请不要用克隆品克隆"
Exit Sub
Else
If Index = 0 Then
If Command1(Command1.Count - 1).Left + 2 * Command1(0).Width <= Me.Width Then
Load Command1(Command1.Count)
Command1(Command1.Count - 1).Visible = True
Command1(Command1.Count - 1).Left = Command1(Command1.Count - 2).Left + Command1(Command1.Count - 2).Width
Command1(Command1.Count - 1).Caption = "我是克隆品"
Else
MsgBox "禁止继续克隆！"
Exit Sub
End If
End If
End If
End Sub

Answer 2

northwolves(狼行天下) ( ) 信誉：125 写的不错，不错。完全可以满足楼主了，不过楼主好像不需要考虑高度，也就是下一列是否可以容纳吧。