'Add items from an arraylist to listbox




Sub Page_Load(sender As Object, e As EventArgs)
     If Not IsPostBack
          Dim arrState As New ArrayList()
          arrState.Add("Ohio")
          arrState.Add("Michigan")
          arrState.Add("Wisconsin")
          arrState.Add("Indiana")
          lstStates.DataSource = arrState
          lstStates.DataBind()
     End If
End Sub

Sub mySub(sender As Object, e As EventArgs)
     If lstStates.SelectedIndex > -1
          lblMsg.Text = "You selected: " + lstStates.SelectedItem.Text
     Else
          lblMsg.Text = "Didn't like any state?"
     End If
End Sub