Quel est don mon erreur ?
Public iVar1 as boolean
Public class accueil Dim iVar1 as boolean
Public class accueil Public iVar1 as boolean
Public class accueil Private m_iVar1 as boolean Public readonly property MaVar() as boolean Get Return m_iVar1 End Get End Property Public sub init() m_iVar1 = True end sub
Public class FormTest Public sub initFrm() dim ac as new accueil msgbox ac.MaVar end sub