Vb.net Listbox Veri Aktarma

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

        ListBox1.Items.Add("AD" & " = " & TextBox1.Text & "  " & "|||" & " Soyad " & " = " & TextBox2.Text)

        TextBox1.Text = ""

        TextBox2.Text = ""



    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ListBox1.Items.Remove(ListBox1.SelectedItem)

    End Sub



    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ListBox1.Items.Clear()



    End Sub