Indetectables

Bueno amigos les traigo el SRC de este Escaner mio
es algo simple pero ojala le sirva a alguien
Descarga : [Enlace externo eliminado para invitados]
PD . No sean malos y por favor no me critiquen por mi forma de codear jeje ya que debe tener mil errores.
si quieren que el escaner permita drag and drop de archivos y carpetas y no solo de carpetas , borren lo que esta marcado con rojo en el SRC:

Private Sub Txtscan_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If ArchivoE.ArchivoE(Data.Files(1)) = True Then
MsgBox "Solo carpetas", vbInformation
Exit Sub
Else
txtscan.Text = Data.Files(1)
End If
End Sub

quedando asi:

Private Sub Txtscan_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
txtscan.Text = Data.Files(1)
''Funcion de AX
End Sub