Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        If e.X > Button1.Width - 5 And e.X < Button1.Width + 5 Then
            Cursor = Cursors.SizeWE
        Else
            Cursor = Cursors.Default
        End If
    End Sub