電腦購物天堂

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Width = 500
        Me.Height = 500
        WebBrowser1.Navigate("http://msdn.microsoft.com/zh-tw/default.aspx")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        With WebBrowser1.Document.Body
            .ScrollLeft = .ScrollRectangle.Size.Width
            .ScrollTop = .ScrollRectangle.Size.Height
        End With
    End Sub