wow beaten to the post
VB Code:
  1. [Color=Blue]Private[/COLOR] [Color=Blue]Sub[/COLOR] Button1_Click([Color=Blue]ByVal[/COLOR] sender [Color=Blue]As[/COLOR] System.Object, [Color=Blue]ByVal[/COLOR] e [Color=Blue]As[/COLOR] System.EventArgs) [Color=Blue]Handles[/COLOR] Button1.Click

  2.         [Color=Blue]Dim[/COLOR] strDirectories [Color=Blue]As[/COLOR] [Color=Blue]String[/COLOR]() = IO.Directory.GetDirectories("C:\")

  3.         ListBox1.Items.AddRange(strDirectories)

  4.     [Color=Blue]End[/COLOR] [Color=Blue]Sub

  5.  
  6. [/COLOR]    [Color=Blue]Private[/COLOR] [Color=Blue]Sub[/COLOR] ListBox1_MouseUp([Color=Blue]ByVal[/COLOR] sender [Color=Blue]As[/COLOR] [Color=Blue]Object[/COLOR], [Color=Blue]ByVal[/COLOR] e [Color=Blue]As[/COLOR] System.Windows.Forms.MouseEventArgs) [Color=Blue]Handles[/COLOR] ListBox1.MouseUp

  7.         [Color=Blue]Try

  8. [/COLOR]            [Color=Blue]If[/COLOR] [Color=Blue]Not[/COLOR] ListBox1.SelectedIndex = -1 [Color=Blue]Then

  9. [/COLOR]                [Color=Blue]Dim[/COLOR] strFiles [Color=Blue]As[/COLOR] [Color=Blue]String[/COLOR]() = IO.Directory.GetFiles(ListBox1.SelectedItem)

  10.                 [Color=Blue]Dim[/COLOR] x [Color=Blue]As[/COLOR] [Color=Blue]Integer

  11. [/COLOR]                [Color=Blue]For[/COLOR] x = strFiles.GetLowerBound(0) [Color=Blue]To[/COLOR] strFiles.GetUpperBound(0)

  12.                     strFiles(x) = strFiles(x).Replace(ListBox1.SelectedItem, "")

  13.                 [Color=Blue]Next

  14. [/COLOR]                ListBox2.Items.Clear()

  15.                 ListBox2.Items.AddRange(strFiles)

  16.             [Color=Blue]End[/COLOR] [Color=Blue]If

  17. [/COLOR]        [Color=Blue]Catch[/COLOR] ex [Color=Blue]As[/COLOR] Exception

  18.             MessageBox.Show(ex.Message)

  19.         [Color=Blue]End[/COLOR] [Color=Blue]Try

  20. [/COLOR]    [Color=Blue]End[/COLOR] [Color=Blue]Sub[/COLOR]