第一个功能有两个办法实现，下面介绍其中一个：
先将Command1设置成控件数组（把Command1的Index属性设置为0）
代码如下：

Option Explicit

Dim num As Integer

Private Sub Command1_Click(Index As Integer)
If Index = 0 Then
  num = num + 1
  Load Command1(num)
  Command1(num).Move Command1(num - 1).Left, Command1(num - 1).Top + Command1(num - 1).Height + 240
  Command1(num).Caption = "Command" & num + 1
  Command1(num).Visible = True
End If
End Sub

第二个功能是什么意思？不明白

不会是类似“连连看”的东东？哈哈哈哈

就是想实现两个command之间用直线连接，只有两个command的时候我会连接，但是我这里要用到很多的command，怎么实现它们之间自由连接

你还是要把问题说清楚才好