C# と VB.NET の質問掲示板

開発環境：VB2008

フォームに画像ファイルをドラッグ＆ドロップしてそれを読み込むようなことをやっており、
これ自体はうまく動作しているのですが、気になることがあります。
以下の例のように、フォームのDragDropイベントで、ドラッグしたファイルを読み込む際に、
ダイアログ表示等を行って処理をしているのですが、このダイアログが開いている間、
マウスポインタをドラッグしたファイルのある場所（例えばデスクトップ上やエクスプローラ上）に持っていくと、
マウスポインタの表示がドラッグ中のマーク（ドロップを許可する「+」マーク）になってしまいます。
（DragDropイベントプロシージャを抜ければ、この「+」マークはなくなります。）

このため、ドラッグしたデータの中身を受け取ったら、すぐさまドラッグ中の状態を解除して、マウスポインタの
ドラッグ中の表示を元に戻したいのですが、どのようにすればいいのでしょうか？
どこかでドラッグ終了の処理を入れる必要があるのでしょうか？
アドバイスの程、よろしくお願い申し上げます。

念のため、ソースを以下に記載します。

    Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim astrFiles As String() = CType(ido.GetData(DataFormats.FileDrop), String())
            If astrFiles.Length > 0 Then
                Dim strFile As String = astrFiles(0)
                'ここにファイルの処理が入る（ダイアログ表示等）
                '以下略


            End If
        End If
    End Sub

以上、よろしくお願い申し上げます。

■No63281 (ブータン さん) に返信

ドロップ時に時間がかかるときBeginInvokeでDragDropをすぐ終了し
処理を遅延実行させる例

    Private m_dragTarget As String = Nothing
    Private SyncInvoke As IAsyncResult
    Private Sub Label1_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles Label1.DragDrop
        If Not e.Data.GetDataPresent("FileName") Then Exit Sub
        m_dragTarget = CType(e.Data.GetData("FileName"), String())(0)
        SyncInvoke = Label1.BeginInvoke(New Action(AddressOf DragDropMain))
    End Sub

    Private Sub DragDropMain()
        Dim dlgFile As New OpenFileDialog()

        If dlgFile.ShowDialog = Windows.Forms.DialogResult.OK Then
            Label1.Text = m_dragTarget
            Label2.Text = dlgFile.FileName
        End If
        m_dragTarget = Nothing
    End Sub

    Private Sub Label1_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles Label1.DragEnter
        If e.Data.GetDataPresent("FileName") Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub