version 6.01 0 Form1 1 5 0 1 0 0 0 0 2 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,Button5,190,95,25,20,"I",212,208,200,0,0,0,True,True,9)@ addbutton(form1,Button4,160,95,25,20,"A",212,208,200,0,0,0,True,True,9)@ addbutton(form1,Button3,190,70,25,20,"R",212,208,200,0,0,0,True,True,9)@ addbutton(form1,Button2,160,70,25,20,"B",212,208,200,0,0,0,True,True,9)@ 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 Sub Button2_Click textbox1.Text=textbox1.Text&"B" Button1_Click End Sub Sub Button3_Click textbox1.Text=textbox1.Text&"R" Button1_Click End Sub Sub Button4_Click textbox1.Text=textbox1.Text&"A" Button1_Click End Sub Sub Button5_Click textbox1.Text=textbox1.Text&"I" Button1_Click End Sub