timeout in vbscript-klasse

[Matze]

Hallo,

ich steh gerade ein wenig auf dem Schlauch und hoffe mir kann jemand helfen.
Ich habe hier eine VBScript-HTA bei der ich einige Arbeitsabläufe in Klassen kapseln möchte.
Das funktioniert auch eigentlich recht gut, nur habe ich ein Problem mit "setTimeout".

Und das Problem sieht nachvollziehbar so aus:

<Stammdatei, die die Klasse lädt>

dim ecls  
    set ecls = new clstest  
  
    ecls.test()  
  
    sub test()  
         msgbox "Hier bin ich falsch"  
    end sub

<Klassendatei>

class clstest  
  
   sub test()  
     msgbox "Hier bin ich richtig"  
     setTimeout "test()",1000  
   end sub  
  
end class

Eigentlich sollte alle Sekunde die sub "test" in der Klasse gestartet werden. Bei initialen Aufruf passiert das auch, aber beim 2. kommt die sub von oben. Es liegt also wohl am Scope - aber wie kann ich das ändern?

Vielen Dank
Matze