an
Attribute SelectedNodeIsBold.VB_Description = "Gets/sets whether the selected
 item should be shown in bold font."
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
            SelectedNodeIsBold = (tVI.state = TVIS_BOLD)
        End With
    E