version 6.01 0 Form1 1 0 0 1 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 238 268 0 0 0 Sub designer addform(Form1,"Form1","",220,220,220)@ addtextbox(form1,TextBox1,5,190,105,22,"TextBox1",255,255,255,0,0,0,True,True,False,9)@ addlistbox(form1,ListBox1,125,20,110,160,"",255,255,255,0,0,0,True,True,0,9)@ addcombo(form1,ComboBox1,5,20,100,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 PopolaCombo PopolaListBox End Sub Sub PopolaCombo combobox1.Clear For i=1 To 100 combobox1.Add("Valore " & i) Next i 'seleziono il valore 45 combobox1.SelectedIndex=44:' i valori cominciano da 0 zero End Sub Sub PopolaListBox listbox1.Clear For i=1 To 100 listbox1.Add("Riga " & i) Next i 'seleziono il valore 45 listbox1.SelectedIndex=44:' i valori cominciano da 0 zero End Sub Sub ListBox1_SelectionChanged (Index, Value) ComboBox1.SelectedIndex=index End Sub Sub ComboBox1_SelectionChanged (Index, Value) If Listbox1.Count>index Then Listbox1.SelectedIndex=index End If textbox1.Text=Value End Sub