Dim b As String() = {"Gennaio", "Febbraio", "Marzo", "Aprile", "Maggio", "Giugno", "Luglio", "Agosto", "Settembre", "Ottobre", "Novembre", "Dicembre"} ComboBox4.Items.AddRange(b) ComboBox4.SelectedIndex = 0 ComboBox4.DataBindings.Add("Text", AppaltiBindingSource, "InizioScadenzario") |