Visual Basic

<br />
Public Class Form1<br />
  Inherits System.Windows.Forms.Form<br />
  Implements IMessageFilter<br />
<br />
  Public Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal HDROP As IntPtr, ByVal UINT As Integer, ByVal lpStr As String, ByVal ch As Integer) As IntPtr<br />
  Public Declare Sub DragAcceptFiles Lib "shell32.dll" Alias "DragAcceptFiles" (ByVal hwnd As IntPtr, ByVal fAccept As Integer)<br />
  Private Declare Sub DragFinish Lib "Shell32.dll" (ByVal hdrop As IntPtr)<br />
  Public Declare Function SendMessageAsInt Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As IntPtr, ByVal lParam As Integer) As Long<br />
  Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr<br />
  Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr<br />
  Public Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As IntPtr, ByVal wCmd As Long) As IntPtr<br />
<br />
  Public Const WM_DROPFILES = &H233<br />
  Public Const GW_CHILD = 5<br />
<br />
  Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements IMessageFilter.PreFilterMessage<br />
<br />
    If m.Msg = WM_DROPFILES Then<br />
      HandleDroppedFiles(m.WParam)<br />
      Return True<br />
    End If<br />
    Return False<br />
  End Function<br />
<br />
  Public Sub HandleDroppedFiles(ByVal filepoint As IntPtr)<br />
    Dim hndl As IntPtr<br />
    Dim childhndl As IntPtr<br />
    Dim sendstat As Integer<br />
    hndl = FindWindow(vbNullString, "Motorola Sync v1.7")<br />
    If hndl.ToInt32 <> 0 Then<br />
      childhndl = GetWindow(hndl, GW_CHILD)<br />
      childhndl = FindWindowEx(hndl, childhndl, "SysListView32", "List1")<br />
<br />
      SendMessageAsInt(childhndl, WM_DROPFILES, filepoint, 0)<br />
    End If<br />
  End Sub<br />

Private Sub frmText_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing<br />
Dim blabla As New frmMain<br />
blabla.OpenWindows -= 1<br />
End Sub