Public Sub CambiaEstado(ByRef ObjTree As TreeView, Optional Ocupado As Boolean)
On Error Resume Next
Dim TmpNodo As Node

Set TmpNodo = ObjTree.SelectedItem

If Ocupado = True Then
ObjTree.Nodes.Add "O", tvwChild, "O" + Str(NRO_O), TmpNodo.Text
NRO_O = NRO_O + 1
    ObjTree.Nodes.Remove (TmpNodo.Index)
NRO_L = NRO_L - 1
ElseIf Ocupado = False Then
ObjTree.Nodes.Add "L", tvwChild, "L" + Str(NRO_L), TmpNodo.Text
NRO_L = NRO_L + 1
    ObjTree.Nodes.Remove (TmpNodo.Index)
End If

End Sub