' WebBrowser-Control flach darstellen
Private Sub webbbrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  On Error Resume Next
  With webbbrowser.Document
    .body.Style.Border = "None"
    .body.Scroll = "auto"
  End With
End Sub