vb操作网页时提示对象不支持的属性或方法

VB code

Private Sub Command1_Click()Web1.Navigate "http://llllllllllllll"Sleep (5)Set doc = Web1.Document[color=#FF0000] For i = 0 To doc.All.Lenght - 1[/color] '提示对象不支持的属性或方法   If i.innerText = "aa" Then       Text1.Text = doc.All(i + 1).innerText       Exit For    End IfNext iEnd Sub

在线等，谢谢！

[解决办法]
显然是doc.All对象没有Lenght属性