Visual Basic.NET - Toolstrip scrollbarr

'procedimiento para llenar el toolstript.

Sub LlenaBotonera()

    On Error Resume Next

    'Creo un Adapter

    Dim objConn As String = CONECTAGLOBAL

    Dim objAdapter As New MySqlDataAdapter("select IdProducto,DescripcionProducto,AccesoRapidoProducto from productos where AccesoRapidoProducto=true order by DescripcionProducto", objConn)

    'Creo un DataSet

    Dim objDataSet As New DataSet

    'Lleno el DataSet con la Tabla

    objAdapter.Fill(objDataSet, "productos")

    'De esta forma recorres

    For m = 0 To objDataSet.Tables(0).Rows.Count - 1

        'Create button

        Dim Btn As New ToolStripButton

        With Btn

            'Set properties

            .Name = objDataSet.Tables(0).Rows(m).Item(0)

            .ToolTipText = objDataSet.Tables(0).Rows(m).Item(1)

            .AutoSize = False

            .Height = 100

            .Width = 100

            .Tag = objDataSet.Tables(0).Rows(m).Item(0)

            .BackgroundImageLayout = ImageLayout.Stretch

            .BackgroundImage = System.Drawing.Image.FromFile("Z:\MiBDBD\Fotos\NoFoto.jpg")

            .BackgroundImage = System.Drawing.Image.FromFile("Z:\MiBD\Fotos\" & objDataSet.Tables(0).Rows(m).Item(0) & ".jpg")

            .DisplayStyle = ToolStripItemDisplayStyle.Image

        End With

        'add boton

        Botonera.Items.Add(Btn)

    Next

End Sub