e VB_Name = "frmMultiClientSubClassTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private m_c1 As cSubclass1
Private m_c2 As cSubclass2

Private Sub chkClass1_Click()
   If (chkClass1.Value = vbChecked) Then
      m_c1.Attach Me.hWnd
   Else
      m_c1.Detach
   End If
End Sub

Private Sub chkClass2_Click()
   If (chkClass2.Value = vbChecked) Then
      m_c2.Attach Me.hWnd
   Else
      m_c2.Detach
   