Solved! Go to Solution.
Public Property Visible() As Boolean Get Return Me.Geometry IsNot Nothing End Get Set(ByVal value As Boolean) If value Then Me.Geometry = mStoredGeometry Else If Me.Geometry IsNot Nothing Then mStoredGeometry = Me.Geometry Me.Geometry = Nothing End If End Set End Property
Public Property Visible() As Boolean Get Return Me.Geometry IsNot Nothing End Get Set(ByVal value As Boolean) If value Then Me.Geometry = mStoredGeometry Else If Me.Geometry IsNot Nothing Then mStoredGeometry = Me.Geometry Me.Geometry = Nothing End If End Set End Property