Change the Highlight Color of the Listview Control

[Hassan Basri]

I think the problem is here, the color should be changed when the WM_DRAWITEM message is sent, however even when I click the Listview the message doesn't get sent.

Select Case Msg
    Case WM_COMMAND
        If lParam = m_LBHwnd Then
            LongInt2Int wParam, iHw, iLW
            Select Case (iHw)
            Case LBN_SELCANCEL
                lCurind = SendMessage(lParam, LB_GETCURSEL, 0, ByVal 0&)
            Case LBN_DBLCLK
            End Select
        End If
    Case WM_DRAWITEM
        If List_DrawItem(lParam) = 0 Then
            '\\ We have handled the painting, so dont pass on to
            '\\ default window procedure.
            SubclassParent = 0
            Exit Function
        End If
    Case Else
        SubclassParent = 0
End Select