Private mSecret As Boolean
 
Private Sub Class_Initialize()
    mSecret = False
End Sub
 
Public Property Get Secret() As String
    Secret = mSecret
End Property

Sub Main() 
  Dim o as new Class1
  Dim p as Long
  p = VarPtr(o)
  CopyMemory ???, ???, ???
End Sub