Private Sub WebBrowser1_DocumentCompleted() Handles WebBrowser1.DocumentCompleted Me.Text = Application.ProductName & "-" & WebBrowser1.DocumentTitle End Sub