how to count no of weblist on the page

[sudhirzpatil]

Hi I am trying to count total no of weblist on the web page.
But i am geting error.
The script i have is

Code:

Systemutil.Run"IExplore","http://www.google.co.in"
wait(1)
Dim obj_DescChk
Set obj_DescChk=Description.Create
obj_DescChk("html tag").value="select"
obj_DescChk("ClassName").value="weblist"
Browser("title:=Google").Page("title:=Google").link("innerhtml:=Preferences").Click
Dim AllChkBoxes
Set AllChkBoxes=Browser("title:=Preferences").Page("title:=Preferences").ChildObjects(obj_DescChk)
msgbox AllChkBoxes.count

Can anybody correct the error