Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) HtmlDocument htmlDoc = WebBrowser1.Document.Window.Frames["main"].DocumentEnd Sub