nse)
   '
End Property

Private Property Get ISubClass_MsgResponse() As SSubTimer.EMsgResponse
   ISubClass_MsgResponse = emrPreprocess
End Property

Private Function ISubClass_WindowProc(ByVal hwnd As Long, ByVal iMsg As Long,
 ByVal wParam As Long, ByVal lParam As Long) As Long
   Select Case iMsg
   Case WM_DESTROY
      Detach
   End Select
End Function

Private Sub UserControl_InitProperties()
   '
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
   '
End Sub

Private Sub UserCon