Private Sub wb_DocumentCompleted(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
     wb.DocumentCompleted
 
        Me.Size = wb.Document.Window.Size
 
        Dim Titel As String = wb.Document.Title
        If Titel.Length > 20 Then
            Titel = Titel.Substring(0, 17) + "..."
        End If
        Me.Text = Titel
    End Sub