Public Class frmFlowForm
    Private WithEvents Watcher As ClassClipboardWatcher = ClassClipboardWatcher.Singleton

    Public Event ClipboardChanged As EventHandler(Of IDataObject)

    Private Sub frmFlowForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AllowDrop = True
        ShowInTaskbar = False

        SetBitmap(My.Resources.CW_wartet_klein)
    End Sub

    Private Sub frmFlowForm_DragOver(sender As Object, e As DragEventArgs) Handles Me.DragOver
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            ' Handle file dragged from Windows
            e.Effect = DragDropEffects.Copy
            SetBitmap(My.Resources.CW_hatwas_klein)
        ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
            ' Handle a message dragged from Outlook
            e.Effect = DragDropEffects.Copy
            SetBitmap(My.Resources.CW_hatwas_klein)
        ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then
            ' Handle a message dragged from Thunderbird?
            e.Effect = DragDropEffects.Copy
            SetBitmap(My.Resources.CW_hatwas_klein)
        Else
            ' Otherwise, do not handle
            e.Effect = DragDropEffects.None
        End If
    End Sub

    Private Sub frmFlowForm_DragLeave(sender As Object, e As EventArgs) Handles Me.DragLeave
        SetBitmap(My.Resources.CW_wartet_klein)
    End Sub

    Private Sub Watcher_ClipboardChanged(sender As Object, e As IDataObject) Handles Watcher.ClipboardChanged
        RaiseEvent ClipboardChanged(sender, e)
    End Sub

    ''' <summary>
    ''' DragDrop Support
    ''' </summary>
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = &H84 Then
            m.Result = CType(2, IntPtr)
            Return
        End If

        MyBase.WndProc(m)
    End Sub
End Class