version 6.01 0 Form1 1 1 0 1 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 1 238 268 0 0 0 Sub designer addform(Form1,"Form1","",220,220,220)@ addbutton(form1,Button1,155,30,55,23,"Button1",212,208,200,0,0,0,True,True,9)@ addtable(form1,Table1,15,165,135,80,"",245,245,245,0,0,0,True,False,9)@ addlistbox(form1,ListBox1,15,55,135,85,"",255,255,255,0,0,0,True,True,0,9)@ addtextbox(form1,TextBox1,15,30,135,22,"",255,255,255,0,0,0,True,True,False,9)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. End Sub Sub App_Start form1.Show table1.AddCol(cString, "City",50) table1.AddRow("Bristol") table1.AddRow("London") table1.AddRow("Bath") table1.AddRow("Swindon") ListBoxLoad End Sub Sub ListBoxLoad listbox1.Clear For i = 0 To table1.RowCount -1 listbox1.Add(table1.Cell("City",i)) Next End Sub Sub Button1_Click table1.Filter("City like '" & textbox1.Text & "*'") ListboxLoad End Sub Sub ListBox1_SelectionChanged (Index, Value) textbox1.Text = Value End Sub