كتابه النص الموجود فى صفحه انترنت الى تيكست بوكس

جرب أخوي الكود التالي:

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.google.com"
Do
DoEvents
If WebBrowser1.Busy = False Then Exit Do
Loop
Text1.Text = WebBrowser1.Document.All(0).outertext
End Sub

وبالتوفيق..

الف شكر اخى Al-jameel وبارك الله فيك ووفك الله لما تحب وترضى

هو ده المطلوب

العفو عزيزي وربنا يوفق الجميع..