set Elo = CreateObject("ELO.professional")

a=Elo.TreeWalk(1, Elo.GetEntryID(-1), 32, "ChangeDocStatus")
msgbox "Beendet!"