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
If ComboBox1.SelectedIndex = "Yellow" Then
Table1.BringToFront
End If
PanelTB.BringToFront
End Sub
Sub Button2_Click
End Sub