codice:
Private Sub Form_Load()
    txt_curDir = "C:\Documenti\adrix\FTB"
End Sub

Private Sub cmd_visualizza_Click()
    Dim dir_corrente As String
    Dim ptr_file1 As String
    dir_corrente = txt_curDir.Text & "\*"
    If dir_corrente <> "" Then
        ListBox.Clear
        ptr_file1 = Dir$(dir_corrente)
        While ptr_file1 <> ""
            ListBox.AddItem ptr_file1
            ptr_file1 = Dir$
        Wend
    Else
        txt_curDir = "inseire un percorso es: ""C:\Documenti"""
    End If
End Sub

Private Sub ListBox_Click()
    Dim ptr_file1, ptr_file2 As String
    ptr_file1 = ListBox.Text
    ptr_file2 = Replace(ptr_file1, Right$(ptr_file1, 4), "")
    FileCopy txt_curDir.Text & "\" & ptr_file1, "C:\DOCUMENTI\ADRIX\" & ptr_file1
    Text1.Text = txt_curDir.Text & "\" & ptr_file1
    Text2.Text = "C:\DOCUMENTI\ADRIX\" & ptr_file1
    txt_newDir.Text = ptr_file2
End Sub
UNICO PROBLEMA:

Se cerchi di copiare nella directory ADRIX
un file .BMP avente lo stesso nome di un file già presente
in ADRIX ti genera errore!!!

potresti concatenare una variabile "contatore"
ad ogni file che copi nella directory principale ADRIX
rendendo così univoco il nome dei file .BMP