Custom Control = Value to be executed twice..?

[some1uk03]

Hello,

Getting a bit of a headache here because having debugged my soft for hours, i realise i get the Value property get executed twice.

Public Property Get Value() As CheckBoxConstants
     Value = m_Value
End Property
 
Public Property Let Value(ByVal NewValue As CheckBoxConstants)
If Enabled = True Then
       m_Value = NewValue
       Check1.Value = m_Value   'Problem is here ¦ Exec No:1
       RaiseEvent Click              'And here Exec No: 2
        PropertyChanged "Value"
End If
 
End Property

Basically in order to get the checkbox showing ticked, i do check1.value = m_value and then RaiseEvent and that should be it in theory.
But this then has RiaseEvent Click followed after it, which triggers the Value property again, resulting in 2 executions.

I need to figure out a way to do a single execution only.