Utilise les propriétés, elles sont faites pour cà :
Au lieu de :
Public TaVariable As String
Fait ceci :
private m_TaVariable As String
public property get TaVariable() As String
TaVariable = m_TaVariable
End Property
public property let TaVariable(mTaVariable)
if mTaVariable <> m_TaVariable Then
m_TaVariable = mTaVariable
Call LaFonctionEnCasDeChangementDeValeur
end if
end property