' Global variables
Private mBase As Panel
Private mVisible As Boolean
Private mBaseColor As Int
mBase = base ' < --- in Sub DesignerCreateView
Public Sub setVisible(Visible As Boolean)
mVisible = Visible
sv.Visible = mVisible
End Sub
Public Sub getVisible As Boolean
Return mVisible
End Sub
Public Sub setColor(Color As Int)
mBaseColor = Color
mBase.Color = mBaseColor
End Sub
Public Sub getColor As Int
Return mBaseColor
End Sub