Tschuldigung, hier nochmals formatiert    
 
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