Public Sub Form_Open() Dim hComboBox As ComboBox Dim aList As String[] = ["Pippo", "Pluto", "Paperino", "Topolino", "Minni"] hComboBox = Me["ComboBox1"] hComboBox.List = aListEnd