Private Function IsUserform(ByRef Obj As Object) As Boolean

    If TypeOf Obj Is MSForms.UserForm Then
      IsUserform = True
    End If

End Function

Case Else

        If TypeOf ControlOrForm Is MSForms.UserForm Then
            Set Form = ControlOrForm
        End If

Private Function Dict(ParamArray KeyValue() As Variant) As Scripting.Dictionary

    'CHECK IF THERE IS EVEN PARAMETERS
    Dim arrayCount As Long
    arrayCount = UBound(KeyValue) - LBound(KeyValue) + 1

    If Not arrayCount Mod 2 = 0 Then
        Debug.Print "Function Dict() requires an even amount of key value arguments." _
        & " Only provided " & arrayCount
        Exit Function
    End If

If arrayCount Mod 2 <> 0 Then
        Err.Raise 5, TypeName(Me), "Invalid parameters: expecting key/value pairs, but received an odd number of arguments."
    End If

Public Enum EmittedEvent
    Click
    DoubleClick
    MouseMove
    MouseOut
    MouseOver
    MouseDown
    MouseUp
    KeyUp
    KeyDown
    Focus
    Blur
End Enum

Public Sub EmitEvent(ByRef Control As Object, ByVal EventType As EmittedEvent, ByRef EventParameters As Scripting.Dictionary)