VB6 -- Disable Scroll Bars in Webbrowser

[jmsrickland]

Option Explicit

Private Const READYSTATE_COMPLETE As Long = 4


Private Sub Form_Load()
 WebBrowser1.Navigate "www.google.com"
  Do While WebBrowser1.Busy: DoEvents: Loop
  Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE: DoEvents: Loop
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 WebBrowser1.Document.body.Scroll = "no"
 WebBrowser1.Document.body.Style.overflow = "hidden"

End Sub