Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Add items to ListBox

Sub ShowDialog()     With UserForm1.ListBox1         .MultiSelect = fmMultiSelectSingle         .RowSource = ""         .AddItem "January"         .AddItem "February"         .AddItem "March"         .AddItem "April"         .AddItem "May"         .AddItem "June"         .AddItem "July"         .AddItem "August"         .AddItem "September"         .AddItem "October"         .AddItem "November"         .AddItem "December"     End With     UserForm1.Show End Sub