以下のような簡単なプログラムを組んでみたのですが、上手くいきません
内容は、ボタンを押すとリストボックスの内容をクリアし、更新する、と言ったものです
エラーコードは
System.IndexOutOfRangeException: インデックスが配列の境界外です。（以下略
と出ます．．．

Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub List_Update()
Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To 5
ListBox1.Items.Add(CStr(i))
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
List_Update()
End Sub

Private Sub ListBox1_SelectedItem(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles ListBox1.MouseDown
Dim s As String
s = ListBox1.SelectedItem
End Sub

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