public void DragOver(IDropInfo dropInfo)
        {
            if (!(dropInfo.Data is CodeExplorerReferenceViewModel reference))
            {
                dropInfo.Effects = DragDropEffects.None;
                return;
            }

            if (dropInfo.TargetItem is CodeExplorerReferenceFolderViewModel references)
            {
                dropInfo.Effects = reference.Parent == references ? DragDropEffects.Move : DragDropEffects.Copy;
                return;
            }

          dd:DragDrop.IsDragSource="True"
          dd:DragDrop.IsDropTarget="True"
          dd:DragDrop.DragHandler="{Binding}"
          dd:DragDrop.DropHandler="{Binding}"

        if (pair.OpeningChar == '(' &&
            e.Character == pair.OpeningChar &&
            !result.CaretLine.EndsWith($"{pair.OpeningChar}{pair.ClosingChar}"))
        {
            // VBE eats it. bail out but still swallow the keypress, since we've already re-prettified.
            e.Handled = true;
            result = null;
            return false;
        }

// VBE eats it. bail out but still swallow the keypress, since we've already re-prettified.

        [Test]
        public void GivenOpeningParenthesisOnOtherwiseNonEmptyLine_ReturnsFalseAndSwallowsKeypress()
        {
            var input = '(';
            var original = "foo = DateSerial(Year|)".ToCodeString();
            var rePrettified = "foo = DateSerial(Year(|))".ToCodeString();
            var info = new SelfClosingPairTestInfo(original, input, rePrettified);

            Assert.IsFalse(Run(info));
            Assert.IsTrue(info.Args.Handled);
        }

<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
  <PropertyGroup>
    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
    <ProjectGuid>{D8846F70-644E-45A4-8CC7-A46E4EB269A1}</ProjectGuid>

<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
  <PropertyGroup>
    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
    <ProjectGuid>{D8846F70-644E-45A4-8CC7-A46E4EB269A1}</ProjectGuid>

<Compile Include="UI\Splash.cs">
  <SubType>Form</SubType>
</Compile>
<Compile Include="UI\Splash.Designer.cs">
  <AutoGen>true</AutoGen>
  <DependentUpon>UI\Splash.cs</DependentUpon>
</Compile>
<EmbeddedResource Include="UI\Splash.resx">
  <DependentUpon>Splash.cs</DependentUpon>
</EmbeddedResource>

Public Function Unique(ByVal inputVector As Range) As Variant

    With CreateObject("Scripting.Dictionary")

        Dim idx As Long
        For idx = LBound(inputVector) To UBound(inputVector)
            If Not .Exists(inputVector(idx, 1).Value) Then
                .Add inputVector(idx, 1).Value, vbNullString
            End If
        Next

        Unique = Application.WorksheetFunction.Transpose(.Keys)
    End With

End Function