SCROLL CONTROL USER POUR DÉROULER LES CONTROLES ET ENREGISTRER LES COORDONNÉES.

Public Class Form1
    Dim Exemple As New Surf '(réserve mémoire dessin page Webb en option)
    Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
        Text = "Mon Site rouille"
        'Tous les controls de l'exemple dand la fenêtre
        For Each C As Control In Exemple.Controls : Controls.Add(C) : Next
        Exemple.init() '(le Site et sa position en option)
    End Sub
End Class


Public Class Surf
    Inherits Form
    Dim Fly As New WebBrowser
    Dim Scroller As New Scroll(Fly)
    Friend Sub New(Optional ByVal Largeur As Single = 1200, _
                  Optional ByVal Hauteur As Single = 1200)
        Text = "Surf"
        Fly.SetBounds(0, 0, Largeur, Hauteur) 'Taille de la Page webb
        Fly.ScrollBarsEnabled = False
        Controls.Add(Scroller)
    End Sub
    Friend Sub init(Optional ByVal Site As String = "http://www.vbfrance.com/", _
                    Optional ByVal XOffset As Single = 870, _
                    Optional ByVal YOffset As Single = 200)
        Fly.Navigate(Site)
        Scroller.init(XOffset, YOffset)
    End Sub
End Class


Public Class Scroll
    Inherits UserControl
    Dim Outil As Control
    Dim Planche As New Panel
    Dim WithEvents VBar As New VScrollBar
    Dim WithEvents HBar As New HScrollBar
    Dim Cas As Byte = 0

    Friend Sub Emboite()
        Dim épaisseur As Single = VBar.Width 'épaisseur standard des barres (Largeur= BL)
        Dim Largeur As Single = Width 'init Largeur de la planche et de la barre horizontale
        Dim Hauteur As Single = Height 'init Hauteur de la planche et de la barre verticale
        Dim U As ScrollBars = ScrollBars.None

        If Largeur < Outil.Height Then
            Largeur = Largeur - épaisseur
            U = ScrollBars.Horizontal
            Cas = 2
        End If
        If Hauteur < Outil.Width Then
            Hauteur = Hauteur - épaisseur
            Cas = Cas + 1
            If Cas = 3 Then U = ScrollBars.Both _
            Else U = ScrollBars.Vertical
        End If

        'Cas par cas 
        If Cas = 2 Or Cas = 3 Then
            VBar.SetBounds(Largeur, 0, épaisseur, Hauteur)
            VBar.Minimum = 0
            VBar.Maximum = Outil.ClientRectangle.Height - Hauteur + VBar.LargeChange - 1
            VBar.SmallChange = Hauteur / 5
        Else
        End If
        If Cas = 1 Or Cas = 3 Then
            HBar.SetBounds(0, Hauteur, Largeur, épaisseur)
            HBar.Minimum = 0
            HBar.Maximum = Outil.ClientRectangle.Width - Largeur + HBar.LargeChange - 1
            HBar.SmallChange = Hauteur / 5
        End If
        Planche.SetBounds(0, 0, Largeur, Hauteur)
    End Sub

    Friend Sub New(ByVal O As Control)
        Outil = O
        Dock = DockStyle.Fill
        Controls.Add(Planche)
        Controls.Add(VBar)
        Controls.Add(HBar)
    End Sub

    Friend Sub init(Optional ByVal dx As Integer = System.Math.E, _
                        Optional ByVal dy As Integer = System.Math.E)

        If dx <> System.Math.E Then
            If dy = System.Math.E Then dy = Outil.Location.Y
            Outil.SetBounds(-dx, -dy, Outil.Width, Outil.Height)
            HBar.Value = dx
            VBar.Value = dy
        End If

        Planche.Controls.Add(Outil) 'épingle l'outil sur la planche
        Emboite()
    End Sub

    Private Sub HBar_Scroll(ByVal eventSender As System.Object, _
             ByVal eventArgs As System.Windows.Forms.ScrollEventArgs) _
             Handles HBar.Scroll
        Outil.Left = -eventArgs.NewValue
    End Sub
    Private Sub VBar_Scroll(ByVal eventSender As System.Object, _
                 ByVal eventArgs As System.Windows.Forms.ScrollEventArgs) _
                 Handles VBar.Scroll
        Outil.Top = -eventArgs.NewValue
    End Sub

    Private Sub frmScroll_Resize(ByVal eventSender As System.Object, _
     ByVal eventArgs As System.EventArgs) Handles Me.Resize
        Emboite()
    End Sub

End Class