OLEDropFile example for Visual Basic

This example displays the name of the file that was dropped, and then loads it.

Private Sub LEADRasterView1_OleDropFile(ByVal pszName As String)
    Dim RasterIO As New LEADRasterIO
    
    ' when a file is dropped, bring up a dialog box and ask the user
    ' whether to load the file or not
    If MsgBox(pszName, vbYesNo) = vbYes Then
        RasterIO.Load LEADRasterView1.Raster, pszName, 0, 1, 1
    Else
        MsgBox "File Not Loaded!"
    End If
End Sub