s Boolean

Private WithEvents m_cMouseTrack As cMouseTrack
Attribute m_cMouseTrack.VB_VarHelpID = -1

Private m_bEnabled As Boolean

Public Event Click()

Public Property Get Top() As Long
   Top = m_tR.Top
End Property
Public Property Let Top(ByVal value As Long)
   m_tR.Top = value
End Property
Public Property Get Left() As Long
   Left = m_tR.Left
End Property
Public Property Let Left(ByVal value As Long)
   m_tR.Left = value
End Property
Public Property Get Width() As Long
   Width = m_cAlphaLogo.Width
