این سورس چرا ارور میده ؟

[elimiz]

سلام دوستان
سورس زیر یک فید خوان هست
اما موقع اجرا این اررور رو میده. عکسش رو گذاشتم براتون

79878

سورس :Private rss As New MSXML2.DOMDocument
Private myItem
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

rss.async = False

rss.Load ("http://8roody.blogfa.com/rss.aspx")

List1.Clear

Me.Refresh

Set myItem = rss.getElementsByTagName("item")



For I = 0 To myItem.length - 1

List1.AddItem myItem(I).getElementsByTagName("title").Item(0).firstChild.nodeValue

Next I


End Sub


Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"

End Sub

Private Sub Label1_Click(Index As Integer)
WebBrowser1.Navigate2 Label1(1).Caption
End Sub

Private Sub List1_DblClick()
WebBrowser1.Navigate "about:blank"
DoEvents
Sleep 100
WebBrowser1.Document.Write myItem(List1.ListIndex).getElementsByTagName("description").Item(0).firstChild.nodeValue
Label1(0) = myItem(List1.ListIndex).getElementsByTagName("pubDate").Item(0).firstChild.nodeValue

Label1(1) = myItem(List1.ListIndex).getElementsByTagName("link").Item(0).firstChild.nodeValue


End Sub



دانلود پروژه 79879

[elimiz]

این لاین اررور میده
و نمیتونه بیشتر از یک متن رو نمایش بده

List1.AddItem myItem(I).getElementsByTagName("title").Item(0).fi rstChild.nodeValue

[elimiz]

کسی نیست جواب بده ؟