Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown

        Dim PosMouseAlClick As Integer = MousePosition.X
        Dim Spostamento As Integer
        Dim LarghezzaDiPartenza As Integer = Button1.Width

        If Cursor = Cursors.SizeWE Then

            Do While MouseButtons = MouseButtons.Left
                Spostamento = MousePosition.X - PosMouseAlClick
                Button1.Width = LarghezzaDiPartenza + Spostamento
                Application.DoEvents()
            Loop

        End If

    End Sub