osed = True
Option Explicit

Private m_hWnd As Long
Private Const WM_DESTROY = &amp;H2&amp;

Implements ISubclass

Public Sub Attach(ByVal hwnd As Long)
   Detach
   m_hWnd = hwnd
   mTitleBarMod.AttachTitleBarMod hwnd
   AttachMessage Me, m_hWnd, WM_DESTROY
End Sub

Public Sub Detach()
   If Not m_hWnd = 0 Then
      DetachMessage Me, m_hWnd, WM_DESTROY
      mTitleBarMod.DetachTitleBarMod m_hWnd
      m_hWnd = 0
   End If
End Sub

Private Property Let ISubClass_MsgResponse(ByVal RHS As SSubTimer.EMsgRespo