Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
If fBusyExpand Then Exit Sub
fBusyExpand = True
If Node.ForeColor = vbGrayText Then
Node.Expanded = False
Else
Node.Expanded = True
End If
fBusyExpand = True
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 124