OLEDropFile example for Visual Basic

This example sets the OLEDropAutoLoad property, based on the input from the MsgBox.

Private Sub LEAD1_OLEDropFile(ByVal pszName As String)
   ' 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
      LEAD1.OLEDropAutoLoad = True
   Else
      LEAD1.OLEDropAutoLoad = False
   End If
End Sub