Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox2.Text)
        ListBox1.TopIndex = ListBox1.Items.Count - 1
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        Dim firstitem As Boolean = True
        For Each i As String In ListBox1.Items
            If (firstitem) Then
                TextBox1.Text = i
                firstitem = False
            Else
                TextBox1.Text = TextBox1.Text + " --> " + i
            End If
        Next
    End Sub

    Private Sub TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox2.KeyDown
        If e.KeyCode = Keys.Enter Then
            ListBox1.Items.Add(TextBox2.Text)
            ListBox1.TopIndex = ListBox1.Items.Count - 1
        End If
    End Sub
End Class