GUI Program to Demonstrate Filter Function

Private Sub Command1_Click()
Dim a(9) As String
Dim s() As String
Dim i As Integer
For i = 0 To List1.ListCount - 1
a(i) = List1.List(i)
Next i
s = Filter(a, "visual basic 6", True)
For i = 0 To UBound(s)
List2.AddItem (s(i))
Next i
s = Filter(a, "visual basic 6", False)
For i = 0 To UBound(s)
List3.AddItem (s(i))
Next i
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub form_load()
List1.AddItem ("java")
List1.AddItem ("visual basic 6")
List1.AddItem ("visual basic 5")
List1.AddItem ("c++")
List1.AddItem ("visual basic 6")
List1.AddItem ("visual basic 5")
List1.AddItem ("visual c++")
List1.AddItem ("visual basic 6")
End Sub