version 6.30 0 Form1 1 2 0 2 0 0 2 0 2 0 0 2 0 0 0 0 2 0 0 5 238 268 0 0 0 Sub designer addform(Form1,"Form1","",220,220,220)@ addpanel(form1,Panel1,0,0,240,270,220,220,220,True,True)@ addbutton(panel1,Button2,130,225,75,23,"Button2",212,208,200,0,0,0,True,True,9)@ addcombo(panel1,ComboBox1,5,20,90,22,"",255,255,255,0,0,0,True,True,0,9)@ addbutton(panel1,Button1,5,225,75,23,"Button1",212,208,200,0,0,0,True,True,9)@ addtextbox(panel1,TextBox2,5,160,75,22,"TextBox1",255,255,255,0,0,0,True,True,False,9)@ addtextbox(panel1,TextBox1,5,105,75,22,"TextBox1",255,255,255,0,0,0,True,True,False,9)@ addpanel(form1,PanelTB,0,0,240,270,220,220,220,True,True)@ addtable(paneltb,Table5,5,5,230,260,"",245,245,245,0,0,0,True,True,9)@ addtable(paneltb,Table4,5,5,230,260,"",245,245,245,0,0,0,True,True,9)@ addtable(paneltb,Table3,5,5,230,260,"",245,245,245,0,0,0,True,True,9)@ addtable(paneltb,Table2,5,5,230,260,"",245,245,245,0,0,0,True,True,9)@ addtable(paneltb,Table1,5,5,230,260,"",245,245,245,0,0,0,True,True,9)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. End Sub Sub App_Start Form1.Show table1.AddCol(cNumber,"Yellow",50,false) Table1.AddCol (cString, "PPH", 50) Table1.AddCol (cString, "RPM", 50) table2.AddCol(cNumber,"Brown",50,false) Table2.AddCol (cString, "PPH", 50) Table2.AddCol (cString, "RPM", 50) table3.AddCol(cNumber,"Red",50,false) Table3.AddCol (cString, "PPH", 50) Table3.AddCol (cString, "RPM", 50) table4.AddCol(cNumber,"Green",50,false) Table4.AddCol (cString, "PPH", 50) Table4.AddCol (cString, "RPM", 50) table5.AddCol(cNumber,"Black",50,false) Table5.AddCol (cString, "PPH", 50) Table5.AddCol (cString, "RPM", 50) combobox1.Add("Yellow") combobox1.Add("Brown") combobox1.Add("Red") combobox1.Add("Green") combobox1.Add("Black") End Sub Sub Button1_Click Select ComboBox1.Item(ComboBox1.SelectedIndex) Case "Yellow" Table1.BringToFront Case "Brown" Table2.BringToFront Case "Red" Table3.BringToFront Case "Green" Table4.BringToFront Case "Black" Table5.BringToFront End Select PanelTB.BringToFront End Sub Sub Button2_Click i=ComboBox1.SelectedIndex+1 Control("Table"&i,Table).BringToFront PanelTB.BringToFront End Sub