Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim s As String = CStr(ListBox1.SelectedItem)
        If s <> "" Then
            TextBox2.Text = s
            ListBox1.Items.Remove(s)
        End If
End Sub