Private Const Destination As String = "C:\Documents and Settings\Administrador\Escritorio\"
' ACA ARRIBA PONES LA UBICACION A DONDE QUERES QUE TE COPIE LOS ARCHIVOS.
 
Private Sub Form_Load()
    Me.Caption = "Ejemplo para copiar multiples archivos por 79137913 con Drag and drop"
    Me.OLEDropMode = 1
    Me.Show
End Sub
 
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim j As Long
    If Data.GetFormat(vbCFFiles) = True Then
        If Not (GetAttr(Data.Files.Item(1)) And vbDirectory) Then
            For j = 1 To Data.Files.Count
                FileName = Mid$(Data.Files.Item(j), InStrRev(Data.Files.Item(j), "\") + 1, Len(Data.Files.Item(j)))
                FileCopy Data.Files.Item(j), Destination & FileName
            Next
        End If
    End If
End Sub
 

For x = 0 To List1.ListCount - 1
    List3.AddItem List1.List(x)
Next
For x = 0 To List2.ListCount - 1
    List3.AddItem List1.List(x)
Next

    Do
       respuesta = InputBox ("ESCRIBA MOTIVO MERMA", "MERMA")
       Select Case respuesta
           Case 51
               '...
           Case 52
               '...
           Case 53
               '...
           Case 54
               '...
           Case 70
               '...
           Case 71
               '...
           Case 72
               '...
           Case Else
               Exit Loop
       End Select
    Loop