Dim ColorDef As Long
Dim SelectedItemIndex

Private Sub trvДеревоГрупп_GotFocus()
    If Not IsEmpty(SelectedItemIndex) Then
        With trvДеревоГрупп.Nodes(SelectedItemIndex)
            .BackColor = ColorDef
            .Selected = True
        End With
    End If
End Sub

Private Sub trvДеревоГрупп_LostFocus()
    If Not (trvДеревоГрупп.SelectedItem Is Nothing) Then
        ColorDef = trvДеревоГрупп.SelectedItem.BackColor
        SelectedItemIndex = trvДеревоГрупп.SelectedItem.Index
        trvДеревоГрупп.SelectedItem.BackColor = vbRed
        Set trvДеревоГрупп.SelectedItem = Nothing
    End If
End Sub