VB Code:
Private StArray() As String
Private StTempArray() As String
Private Sub Form_Load()
Dim i As Long
For i = 1 To 40
ReDim Preserve StArray(i)
StArray(i) = CStr(i * 2)
List1.AddItem CStr(i)
Next
End Sub
Private Sub subSearch(pVal As Boolean)
Dim i As Long
If List1.ListIndex = -1 Then Exit Sub
'3rd parameter determines matches or no matches
StTempArray = Filter(StArray, List1.List(List1.ListIndex), pVal)
List2.Clear
For i = 0 To UBound(StTempArray)
List2.AddItem StTempArray(i)
Next
Erase StTempArray
End Sub
Private Sub Command1_Click()
subSearch True
End Sub
Private Sub Command2_Click()
subSearch False
End Sub