Option Explicit
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 20
Load Command1(i)
Next i
Unload Command1(2)
Unload Command1(4)
Unload Command1(20)
End Sub
Private Sub Command1_Click(Index As Integer)
Dim cmd1 As Object, x As String
For Each cmd1 In Command1
x = x & cmd1.Index & ","
Next
x = "," & x
Dim F As Boolean, i As Integer
For i = 0 To Command1.UBound + 1
F = InStr(x, "," & i & ",")
If Not F Then Debug.Print "数组控件中索引"; i & "元素不存在"
Next
End Sub