[Top GreaT]

السلام عليكم

بعد ابداع الاخوان معك

فيه طريقه سهله لكن لابد ان تتأكد من ان الموقع رسمي ولن يتغير
ضع الأداة
Microsoft Internet Transfer Control
وضع
ListBox

ثم ضع الكود التالي في زر كومند

كود :

[align=left]
Dim W As String
Dim A() As String
Dim Q() As String

W = Inet1.OpenURL("http://www.goldpricedata.com")
A = Split(W, "<td>")
For X = 0 To UBound(A)
Q = Split(A(X), "</td>")
If Left(Q(0), 1) <> "<" Then List1.AddItem Left(Q(0), 18)
Next X
[/align]

طبعا بعد ضغط الزر انتظر قليلا وسوف ترا النتائج في الليست بوكس
وترجم الكود حسب احتياجك
بالتوفيق ,,,