[bakriano30@yahoo.com]

(18-07-19, 02:20 AM)سامي محمد كتب : هذا اختصار للكود السابق

 أضف زر و ادات بكتشربكس فقط

وضع هذا الكود في الزر

كود :

 Dim W As String = New WebClient().DownloadString("https://www.google.com/search?tbm=isch&q=" & TextBox1.Text)
        PictureBox1.LoadAsync(Regex.Match(W, """(https://encrypted-tbn0.gstatic.com/images[^""]+?)""", RegexOptions.IgnoreCase).Groups(1).Value)

وان كان هناك اي شي غير مفهوم

ولكن اريد البحث من خلال تكست بوكس اخي الفاضل وشاكر لك اهتمامك