inserimento in textbox dati listbox

[riccardosole]

Ecco il codice modificato:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

ListBox1.Items.Add("marco") 
ListBox1.Items.Add("luigi") 
ListBox1.Items.Add("mario") 
ListBox1.Items.Add("pippo") 
ListBox1.Items.Add("ciccio") 
TextBox1.Text = ListBox1.SelectedItems(0).ToString() 

End Sub 
End Class

Mi da questo tipo di errore:

indice oltre i limiti della matrice!!!