Dim nTop As Long, nLeft As Long If Me.WebBrowser1.Document.compatMode <> "BackCompat" Then nTop = Me.WebBrowser1.Document.documentElement.scrollTop nLeft = Me.WebBrowser1.Document.documentElement.scrollLeft Else nTop = Me.WebBrowser1.Document.body.scrollTop nLeft = Me.WebBrowser1.Document.body.scrollLeft End If Debug.Print nTop, nLeft
nTop = Me.WebBrowser1.Document.documentElement.scrollTop
nLeft = Me.WebBrowser1.Document.documentElement.scrollLeft
Else nTop = Me.WebBrowser1.Document.body.scrollTop
nLeft = Me.WebBrowser1.Document.body.scrollLeft
End If
Debug.Print nTop, nLeft