tWindowLong(tvwOpt.hwnd, GWL_STYLE)
    If (bState) Then
        lStyle = lStyle Or TVS_SINGLEEXPAND
    Else
        lStyle = lStyle And Not TVS_SINGLEEXPAND
    End If
    SetWindowLong tvwOpt.hwnd, GWL_STYLE, lStyle
    
    PropertyChanged "SingleClickExpand"
    
End Property

Public Property Get FullRowSelect() As Boolean
Attribute FullRowSelect.VB_Description = "Gets/sets whether the selection
 extends to the right of the control (true) or highlights the text only
 (false)."
Dim lStyle As Long
    lS