Option Explicit

Implements ISubclass

Private Const WM_COMMAND = &H111
Private Const CBN_DROPDOWN = 7
Private Const CBN_CLOSEUP = 8
Private Declare Function GetDlgCtrlID Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
   AttachMessage Me, Combo1.Container.hwnd, WM_COMMAND
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   DetachMessage Me, Combo1.Container.hwnd, WM_COMMAND
End Sub

Private Property Let ISubclass_MsgResponse(ByVal RHS As SSubTimer.EMsgResponse)
   '
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
   Dim lID As Long
   Dim iCode As Long
   Select Case iMsg
   Case WM_COMMAND
      If lParam <> 0 Then
         iCode = (wParam And &HFFFF0000) \ &H10000
         ' the id of controls created by VB is the index
         ' of the control in the form's control array plus 1
         lID = wParam And &HFFFF&
         If TypeOf Controls(lID - 1) Is ComboBox Then
            Select Case iCode
            Case CBN_DROPDOWN
               Label1.Caption = Controls(lID - 1).Name & " Drop Down"
            Case CBN_CLOSEUP
               Label1.Caption = Controls(lID - 1).Name & " Close Up"
            End Select
         End If
      End If
   End Select
End Function