This is from Cruels.net
Private Sub Command1_Click()
WebBrowser1.Navigate "http://sl1.runescape.com/l1,p0,j1"
End Sub
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If (URL = "http://www.runescape.com/") Then Cancel = True
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.innerHTML = WebBrowser1.Document.All.Item("app").outerHTML
WebBrowser1.Width = Val(WebBrowser1.Document.All.Item("app").getAttribute("width")) + 4
WebBrowser1.Height = Val(WebBrowser1.Document.All.Item("app").getAttribute("height")) + 4
End Sub
I guess it works, but I tried converting it to C# and it didn't work for me, but u can try converting it to delphi or w/e ur programming to give it a go. I've been searching for this same thing also.