Move selected files from Listbox

See more:

VB

Hi all, I am a newbee and trying to write my first script. I successfully populated list of files from Folders in list boxes, but I want to move selected files from one folder to another using listbox selection. Please help me. Thanks
This script only adds to list, but not really moves inside folders.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        i = ListBox1.SelectedItems.Count - 1
        Do While i >= 0

            ListBox2.Items.Add(ListBox1.SelectedItems.Item(i))

            ListBox1.Items.Remove(ListBox1.SelectedItems.Item(i))

            i = i - 1

        Loop
    End Sub

<pre lang="vb">