[AL_BRNS]

السلام عليكم

افتح مشروع جديد واظغط  Ctrl + T  ستخرج لك قائمة Components 

اختر من القائمة Microsoft Internet Controls

وقم باظافتها الي الفورم

وضع الكود التالي 

PHP كود :

Private Sub Command1_Click()
Set iDoc = WebBrowser1.Document
For Each element In iDoc.getElementsByTagName("ul")
If element.className = "mymenu" Then MsgBox element.innerText
Next
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://vb4arb.com/vb/"
End Sub 


بالتوفيق .