nd If
End Property
Public Property Let SelectedNodeIsBold(ByVal bState As Boolean)
Dim tVI As TVITEM
Dim hItem As Long
    hItem = SendMessageLong(tvwOpt.hwnd, TVM_GETNEXTITEM, TVGN_CARET, 0&amp;)
    If hItem &lt;&gt; 0 Then
        With tVI
            .hItem = hItem
            .mask = TVIF_STATE
            .stateMask = TVIS_BOLD
            SendMessage tvwOpt.hwnd, TVM_GETITEM, 0&amp;, tVI
            If ((tVI.state = TVIS_BOLD) &lt;&gt; bState) Then
                If (bState) Then
                   