Disable/Remove Scroll Bars in Webcontrol in Excel Using vba

[sanits591]

Hi,

I am using the following code, for navigating to the website through web control and a listbox on a userform, but the problem is, this code does not work for removing the scroll bars:

Requesting for help on this.

Private Sub lstResults_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim strURL As String
    If lstResults.ListIndex <> -1 Then

        strURL = Worksheets("tmpSearch").Range("A" & lstResults.ListIndex + 2).Hyperlinks(1).Address
        WebBrowser1.Navigate strURL
    Do
        DoEvents
    Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE
    
    Me.WebBrowser1.Document.body.doscroll = "no"
  
'for scrolling down to the lower portion of the webpage
WebBrowser1.Document.parentWindow.Scroll 0, 4000
    
    
    End If


End Sub

 

[sanits591]

Request for help on this.