tyle = GetWindowLong(tvwOpt.hwnd, GWL_STYLE)
    FullRowSelect = ((lStyle And TVS_FULLROWSELECT) = TVS_FULLROWSELECT)
End Property
Public Property Let FullRowSelect(ByVal bState As Boolean)
Dim lStyle As Long
    lStyle = GetWindowLong(tvwOpt.hwnd, GWL_STYLE)
    If (bState) Then
        lStyle = lStyle Or TVS_FULLROWSELECT
    Else
        lStyle = lStyle And Not TVS_FULLROWSELECT
    End If
    SetWindowLong tvwOpt.hwnd, GWL_STYLE, lStyle
    
    PropertyChanged "FullRowSelect"
End Property
Public Proper