version 6.01 0 Form1 1 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 238 268 0 0 0 Sub designer addform(Form1,"Form1","",220,220,220)@ addcombo(form1,ComboBox2,135,80,60,22,"",255,255,255,0,0,0,True,True,0,9)@ addcombo(form1,ComboBox1,40,80,60,22,"",255,255,255,0,0,0,True,True,0,9)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. End Sub Sub App_Start Form1.Show InitComboboxes End Sub Sub ComboBox1_SelectionChanged (Index, Value) Dim i Select Index Case 0 ' value 1 Combobox2.Clear For i=1 To 10 Combobox2.Add(i) Next Case 1 ' value 2 Combobox2.Clear For i=1 To 10 Combobox2.Add(i+20) Next Combobox2.SelectedIndex=0 Case 2 ' value 3 Combobox2.Clear For i=1 To 10 Combobox2.Add(i+30) Next End Select End Sub Sub InitComboboxes Dim i Combobox1.Clear Combobox2.Clear For i=1 To 10 Combobox1.Add(i) Combobox2.Add(i+10) Next Combobox1.SelectedIndex=0 ' Combobox2.SelectedIndex=0 End Sub