Private Sub Me_DragDrop(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        frmMain.NeueDatenEinlesen(e)
    End Sub
    Private Sub Me_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
        Const CtrlMask As Byte = 8
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) OrElse _
          e.Data.GetDataPresent("System.Windows.Forms.ListViewItem()") Then
            If (e.KeyState And CtrlMask) = CtrlMask Then
                e.Effect = DragDropEffects.Copy
            Else
                e.Effect = DragDropEffects.Move
            End If
        Else
            Debug.Print("elvVorschau_DragEnter: kann nicht initialisiert" & _
              "werden!")
        End If
    End Sub
 
Friend Overloads Function NeueDatenEinlesen(ByVal e As _
  System.Windows.Forms.DragEventArgs) As Boolean
        Try                        
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then 'Explorer                
                    m_CreateWaveList(e)
                    If Me.WaveList.Count > 0 Then
                        Me.ConvertWave()
                        Return True
                    End If
 
                    Return False
            ElseIf e.Data.GetDataPresent("System.Windows.Forms.ListViewItem()") _
              Then 'lvFiles
                '.......
            End If
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
 
Public Sub ConvertWave()
        If mIsRunning Then Exit Sub
 
        Dim Temp As String = ""
        Try
            If Not IsNothing(Me.WaveList) OrElse Me.WaveList.Count < 1 Then _
              frmConvert.ShowDialog(_WindowVorschau.elvVorschau)
        Catch ex As Exception
            InfoMeldung(Me.Name & "-" & _
              System.Reflection.MethodBase.GetCurrentMethod.Name & ": " & _
              ex.Message)
        End Try
    End Sub