ueryFile Lib "shell32.dll" Alias "DragQueryFileA"
 (ByVal hDrop As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As
 Long) As Long
Private Type POINTAPI
   x As Long
   y As Long
End Type
Private Type DROPFILES
   pFiles As Long
   pt As POINTAPI
   fNC As Long
   fWide As Long
End Type
Private Const MAX_PATH As Long = 260


Public Function AddFormat( _
        ByVal sName As String _
    ) As Long
' Adds a custom clipboard format and returns its
' ID if successful, otherwise returns 0.
Dim wFor