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