Private Sub _GenerateWebSiteThumbnailImage()
Dim m_WebBrowser As New WebBrowser()
m_WebBrowser.ScrollBarsEnabled = False
m_WebBrowser.Navigate(m_Url)
AddHandler m_WebBrowser.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf WebBrowser_DocumentCompleted)
While m_WebBrowser.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
End While
m_WebBrowser.Dispose()
End Sub
Private Sub WebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
Dim m_WebBrowser As WebBrowser = DirectCast(sender, WebBrowser)
m_WebBrowser.ClientSize = New Size(Me.m_BrowserWidth, Me.m_BrowserHeight)
m_WebBrowser.ScrollBarsEnabled = False
m_Bitmap = New Bitmap ...
Go to the complete details ...