'@ModuleDescription("Standard module to step through")
'Module1
Option Explicit

Public Sub MVCEExampleForCyril()
    Dim interfaceSourceArea As Range
    Set interfaceSourceArea = Sheet1.Range("C3").Resize(2, 2)
    interfaceSourceArea.Formula = "=""R""&ROW()&""C""&COLUMN()"
    Dim cyrilObjectAsInterface As ICyrilClass
    Set cyrilObjectAsInterface = CyrilClass.Create(interfaceSourceArea)

    Debug.Print cyrilObjectAsInterface.Dimension
    Debug.Print cyrilObjectAsInterface.ValueFromTopRightBackingField

'@Interface
'@Folder("Abstraction")
'@ModuleDescription("Interface allowing Read-only access")
'ICyrilClass
Option Explicit

Public Property Get Dimension() As Variant
End Property

Public Property Get ValueFromTopRightBackingField() As Variant
End Property

Public Property Get ValueFromBottomLeftBackingField() As Variant
End Property

Public Property Get ValueFromBottomRightBackingField() As Variant
End Property

'@PredeclaredId
'@Folder("Concretion")
'@ModuleDescription("Example to help Cyril understand class usage")
'CyrilClass
Option Explicit

Implements ICyrilClass

Private Type THelper
    BackingField As Range
End Type

Private this As THelper

Public Sub AssignSourceArea(ByVal value As Range)
    Const InvalidInput As Long = 5
    Const Source As String = "SourceArea"

    If value.Areas.Count > 1 Then
        Err.Raise InvalidInput, Source, "Non-contigous range provided."
    End If

    If value.Rows.Count <> 2 Or value.Columns.Count <> 2 Then

'@TestModule
'@Folder("Tests")
'TestCyrilClass
Option Explicit
Option Private Module

Private Assert As Object
Private Fakes As Object

'@ModuleInitialize
Private Sub ModuleInitialize()
    'this method runs once per module.
    Set Assert = CreateObject("Rubberduck.AssertClass")
    Set Fakes = CreateObject("Rubberduck.FakesProvider")
End Sub

'@ModuleCleanup
Private Sub ModuleCleanup()
    'this method runs once per module.
    Set Assert = Nothing
    Set Fakes = Nothing
End Sub

'@TestInitialize

Private myForm As Form_Form1

Public Sub OpenMe()
  Set myForm = New Form_Form1
  myForm.Visible = True
End Sub

Public Sub CloseMe()
  Set myForm = Nothing
End Sub