Bei formload buttonklick

[sunny-boy3]

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

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

Private Sub blabla()
ListBox1.Items.Add("Remote Desktop Passwörter ")
r = New IO.StreamReader("C:\remoted.txt")
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
End Sub

Schon versucht?

Ja jetzt gerade geht aber anscheinend auch nicht!!!
Muß doch irgendwie zu verwircklichen sein