hs.SetDeviceStatus error

[TechnoJunkie]

Could someone please put me out my misery.....I get

<TABLE cellSpacing=2 cellPadding=0 width="100%" border=0><TBODY><TR><TD class=LOGType0 align=left colSpan=3>Error 1 </TD><TD class=LOGEntry0 align=left colSpan=8>Running script Status test.vb :method not found </TD></TR></TBODY></TABLE>

Where am I going wrong with this?

dim virt_device as string
sub main()
virt_device ="x7"
hs.SetDevicestatus (virt_device,2)
End Sub

Thanks

Andy

[Rupp]

You need this as you sub definition.
Sub Main(parm as object)

[rmasonjr]

you also need to remove the space between the hs.setDeviceStatus and the open parens...

[TechnoJunkie]

DOh! Thanks guys

Talk about looking but not seeing