ник: Аноним
Видимо, в данном случае, в событии NodeCheck нельзя менять свойство элемента Checked,
так как иначе бы это привело к рекурсивному вызову события,
(именно изменение свойства приводит к возникновению события.)
Можно отследить мышку и на событие MouseUp для этого нода сбрасывать птицу.
Dim idx as Integer
Private Sub mTvw_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
If idx > 0 Then mTvw.Nodes(idx).Checked = False
End Sub
Private Sub mTvw_NodeCheck(ByVal Node As MSComctlLib.Node)
If Node.Key = "r_0" Then
idx = Node.Index
Else
idx = -1
End If
End Sub
Хотя нажатие кнопок клавиатуры тоже нужно отследить