Cargar TxT en List Box Vb.NeT

[_Bj0rD_]

Hola kisiera saber como cargar un txt en forma de lista

hola
mira
corre
omar

y que lis pase a un list box en vb.net pero al darle click al boton load que pida buscar el txt en tu pc

alguien que me pueda facilitar la informacion ya que yo no encuentro mucho acerca de .net

[_Bj0rD_]

ese es el codigo que tengo pero no lo mete al listbox

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ofD As New OpenFileDialog
        If ofD.ShowDialog() = DialogResult.OK Then
            Dim sr As New System.IO.StreamReader(ofD.FileName, System.Text.Encoding.Default, True)
            LstBox.Text = sr.ReadToEnd()
            sr.Close()
        End If
    End Sub

[_Bj0rD_]

Miren ya me salio tenia un problema y lo resolvi metiendolo a un richtextbox pero ahora como cambio el boton agregar pero en vez de que sea al list box que lo mande a richtextbox????

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text <> "" Then
            LstBox.Items.Add(TextBox1.Text)
            Label1.Text = LstBox.Items.Count & " elemento(s)"
            TextBox1.Text = ""
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ofD As New OpenFileDialog
        If ofD.ShowDialog() = DialogResult.OK Then
            RichTextBox1.LoadFile(ofd.FileName, RichTextBoxStreamType.PlainText)
        End If
    End Sub