[الشاكي لله]

تفضل هذا الكود للفورم1 كاملا محول للفيجوال بيسك

كود :

Public Partial Class Form1
   Inherits Form

   Private webBrowserForm As Form = DirectCast(Nothing, Form)

   Public Sub New()
       InitializeComponent()
       Form1.CheckForIllegalCrossThreadCalls = False
       CreateWebBroser()
   End Sub

   Private Sub CreateWebBroser()
       Dim th As Thread = New Thread(Sub()
                                         'انشاء كائن الفورم يجب ان يكون هنا
                                         webBrowserForm = New Form()
                                         webBrowserForm.StartPosition = FormStartPosition.Manual
                                         webBrowserForm.FormBorderStyle = FormBorderStyle.None
                                         webBrowserForm.ShowInTaskbar = False
                                         CalculateWebBrowserFormLocationAndSize()
                                         webBrowserForm.Owner = Me
                                         webBrowserForm.Controls.Add(New WebBrowser() With {
                                             .Url = New Uri("https://upload.wikimedia.org/wikipedia/commons/2/2c/Rotating_earth_%28large%29.gif"),
                                             .Dock = DockStyle.Fill
                                         })

                                         'اظهار الفورم
                                         Application.Run(webBrowserForm)
                                     End Sub)
       th.SetApartmentState(ApartmentState.STA)
       th.IsBackground = True
       th.Start()
   End Sub

   Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
       Call New Form2().ShowDialog()
   End Sub

   Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As EventArgs)
       CalculateWebBrowserFormLocationAndSize()
   End Sub

   Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As EventArgs)
       CalculateWebBrowserFormLocationAndSize()
   End Sub


   Private Sub CalculateWebBrowserFormLocationAndSize()
       If webBrowserForm Is Nothing Then Return

       If webBrowserForm.InvokeRequired Then
           webBrowserForm.Invoke(New Action(AddressOf CalculateWebBrowserFormLocationAndSize))
       Else
           webBrowserForm.Location = PointToScreen(panel1.Location)
           webBrowserForm.Size = panel1.Size
       End If
   End Sub
End Class

تمت الاستعانة ب panel1 هو بانل فاضي مهمته يكون الplaceholder للمكان المفترض يطلع فيه الفورم الي فيه الويب براوزرد


المثال علمته على السريع لذلك لك حرية التصرف في عمل تحسينات له
..
موفقين