[elgokr]

وعليكم السلام ورحمة الله وبركاته

عليك استخدام الكود كالتالى

كود :

   Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       My.Computer.Clipboard.Clear()
       My.Computer.Clipboard.SetText(Path.PHOTO_1.Text)
       Await WebBrowser2.Document.GetElementById("File1").InvokeMember("click")
       Dim hwnd2 As IntPtr = FindWindow(Nothing, "Choose File to Upload")
       If hwnd2 = IntPtr.Zero = False Then
           System.Windows.Forms.SendKeys.SendWait("^%(b)")
       End If
   End Sub

لاحظ كلمة Await قبل كلمة WebBrowser2

وكلذلك كلمة Async فى سطر كود الحدث قبل كلمة Sub

تحياتى لك

وتمنياتى لك التوفيق