End Property
Public Property Let TrackSelect(ByVal bState As Boolean)
    m_bTrackSelect = bState
    TreeViewTrackSelect tvwOpt, m_bTrackSelect
    PropertyChanged "TrackSelect"
End Property

Private Sub TreeViewTrackSelect( _
        ByRef tvwThis As TreeView, _
        Optional ByVal bState = True _
    )
Dim lStyle As Long
Dim hWndTvw As Long
    hWndTvw = tvwThis.hwnd
    lStyle = GetWindowLong(hWndTvw, GWL_STYLE)
    If (bState) Then
        lStyle = lStyle Or TVS_TRACKSELECT
    Else
        lStyle =