'@Enumerable
Public Property Get Keys() As IUnknown
    Set Keys = DictionaryCopy.Keys
End Property

---------------------------
Microsoft Visual Basic for Applications
---------------------------
Compile error:

Bad interface for Implements: method uses type that is not supported by Visual Basic
---------------------------
OK   Help
---------------------------

Sub Next(celt As <Unsupported variant type>, rgvar, pceltFetched As <Unsupported variant type>)
    Member of stdole.IEnumVARIANT

Sub Skip(celt As <Unsupported variant type>)
    Member of stdole.IEnumVARIANT

HRESULT Next(
  ULONG   celt,
  VARIANT *rgVar,
  ULONG   *pCeltFetched
);

Sub AddUserformLabel(ByRef Location As Object, ByVal Name As String, Optional ByVal Caption As String = "", Optional ByVal FontName As String = "Calibri Light", Optional ByVal FontSize As Single = 11, Optional ByVal FontBold As Boolean = False, Optional ByVal FontItalic As Boolean = False, ...

 Dim lbl As MSForms.Label
    Set lbl = Location.Controls.Add("Forms.Label.1")

    With lbl
        .Name = Name
        .Caption = Caption
        .Font.Name = FontName
        .Font.Charset = 2
        .Font.Size = FontSize
        .Font.Bold = FontBold
        .Font.Italic = FontItalic

<ResourceDictionary>
    <ResourceDictionary.MergedDictionaries>
        <ResourceDictionary Source="../Styles/DefaultStyle.xaml" />
    </ResourceDictionary.MergedDictionaries>
</ResourceDictionary>

<ResourceDictionary xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
                    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
    <LinearGradientBrush x:Key="{x:Static SystemColors.HighlightBrushKey}" EndPoint="0,1" StartPoint="0,0">
        <GradientStop Color="{x:Static SystemColors.HighlightColor}" Offset="0"/>
        <GradientStop Color="{x:Static SystemColors.GradientActiveCaptionColor}" Offset="1"/>
    </LinearGradientBrush>
    <LinearGradientBrush x:Key="{x:Static SystemColors.ControlBrushKey}" EndPoint="0,1" StartPoint="0,0">