test/call/load_class/myclass.vbs

   1 Class MyClass\r
   2   Public  s\r
   3 \r
   4   Public Sub echo\r
   5     WScript.Echo "MyClass.echo (" & s & ")"\r
   6   End Sub\r
   7 \r
   8   Public Sub setA( arg1 )\r
   9     s = arg1\r
  10   End Sub\r
  11 End Class\r
  12 \r
  13 \r