#Region "DragDrop"
 
    Private Sub frmBetrachter_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        Dim Dateien() As String = CType(e.Data.GetData(DataFormats.FileDrop), _
        String())
        Ausgeben(Dateien)
    End Sub
    Private Sub frmBetrachter_DragEnter(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.DragEventArgs) _
    Handles Me.DragEnter
        If My.Computer.Keyboard.CtrlKeyDown And e.AllowedEffect And _
          DragDropEffects.Copy = DragDropEffects.Copy Then
            e.Effect = DragDropEffects.Copy
        ElseIf (e.AllowedEffect And DragDropEffects.Move = _
          DragDropEffects.Move) Then
            e.Effect = DragDropEffects.Move
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub
#End Region
 
#Region "Clipboard"