'dragging and dropping from
'a filelist box to an image box.
'start a new project and add a drive, a dir, a file list, and an image
'set the Drive1.DragIcon to the one you want to use for "from list"
'set the Dir1.DragIcon to the one you want for "over the image" 


Sub Dir1_change()

    File1.Path = Dir1.Path
    
End Sub

Sub Drive1_change()

    Dir.Path = Drive1.Path
    
End Sub


Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    File1.DragIcon = Drive1.DragIcon
    File1.Drag
    
End Sub

Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)

    Dim rCode As Long
    
    FileExt = UCase(Right$(File1.filename, 3)) ' get the file type
   
    If Mid(File1.Path, Len(File1.Path)) = "\" Then ' build the full path
        DropFileName = UCase(File1.Path & File1.filename)
     Else
        DropFileName = UCase(File1.Path & "\" & File1.filename)
    End If
      
    image1.Picture = LoadPicture("") 'clear the image
    
    Select Case FileExt 'figure out what to do with the file
        
        Case "TXT"
            rCode = Shell("Notepad " & DropFileName, 1)
            
        Case "BMP", "WMF", "RLE", "ICO"
            image1.Picture = LoadPicture(DropFileName)
            
        Case "EXE"
            rCode = Shell(DropFileName, 1)
            
        Case "HLP"
            rCode = Shell("WinHelp " & DropFileName, 1)
            
        Case Else
            msg = "Try one of these file types:"
            msg = vbLf & msg & vbLf & vbLf & "     .txt, .bmp, .exe, .hlp"
            MsgBox msg
            
    End Select
    
End Sub


Sub Image1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

    Select Case State
    
        Case 0
            File1.DragIcon = Dir1.DragIcon 'use dir1.DragIcon for the from
            
        Case 1
            File1.DragIcon = Drive1.DragIcon 'use drive1.DragIcon for the to
            
    End Select

End Sub