ean
Dim i As Long
   For i = 0 To 2
      If lHWnd = chkTest(i).hwnd Then
         Set ctl = chkTest(i)
         FindControl = True
         Exit Function
      ElseIf lHWnd = optButton(i).hwnd Then
         Set ctl = optButton(i)
         FindControl = True
         Exit Function
      End If
   Next i
End Function

Private Property Get IOwnerDrawButton_ButtonContainerhWnd() As Long
   IOwnerDrawButton_ButtonContainerhWnd = Me.hwnd
End Property

Private Property Get IOwnerDrawButton_DoOwnerDraw(ByVal lHWnd