Working with control arrays in VB3 was frustrating, but with VB4 youcan pass a control array as an argument to a function. Simply specify theparameter type as Variant:
Private Sub Command1_Click(Index As Integer) GetControls Command1()End SubPublic Sub GetControls(CArray As Variant) Dim C As Control For Each C In CArray MsgBox C.Index NextEnd Sub
Also, VB4’s control arrays have LBound, Ubound, and Count properties:
If Command1.Count < Command1.Ubound - _ Command1.Lbound + 1 Then _ Msgbox "Array not contiguous"