version 5.50 0 Form1 1 1 0 1 0 2 0 0 0 0 0 0 0 0 0 0 1 0 0 0 238 268 0 0 0 Sub designer addform(Form1,"Form1","",220,220,220)@ addlabel(form1,Label2,125,135,45,25,"",220,220,220,0,0,0,True,True,9)@ addarraylist(form1,ArrayList1,95,95,80,25)@ addbutton(form1,Reset,20,100,50,23,"Reset",212,208,200,0,0,0,True,True,9)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. End Sub Sub App_Start Form1.Show ArrayList1.Add(1) ArrayList1.Add(2) ArrayList1.Add(3) ArrayList1.Add(4) ArrayList1.Add(5) AddAssignCombobox End Sub Sub AddAssignCombobox AddComboBox ("Form1", "ComboBox1", 10, 10, 120, 30) For i= 0 To ArrayList1.Count-1 ComboBox1.Add(ArrayList1.item(i)) Next i End Sub Sub ComboBox1_SelectionChanged (Index, Value) Label2.Text = ArrayList1.Item(Index) End Sub Sub Reset_Click ComboBox1.dispose AddAssignCombobox Label2.Text="" End Sub