RubberBanding Drawing in VB.NET on Win8/10

[DTeCH]

Hey dudes :)

Ok, First thing first... I have not tried this on Win8, so just an assumption at the moment.

The Following code works on XP(SP3), Vista, & Win7 so far, but after giving my app to a friend who was suckered into Win10 because of the "Free" deal, says it's no longer working. The Applicatiuon runs, but doesnt work, & throws No Errors whatsoever.

RubberBanding Code:

    Private _RubberBandingOn As Boolean = False
    Private _Start As New Point
    Private _Stop As New Point
    Private _Now As New Point
    Private _rRectangle As New Rectangle

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        PictureBox2.Visible = False

        Me._RubberBandingOn = Not _RubberBandingOn

        If Me._RubberBandingOn Then

            If _Start = Nothing Then _Start = New Point

            _Start.X = e.X
            _Start.Y = e.Y
            _Now.X = e.X
            _Now.Y = e.Y

        End If

        Me.Invalidate()
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If Me._RubberBandingOn Then
            If _Now = Nothing Then _Now = New Point

            Me._Now.X = e.X
            Me._Now.Y = e.Y
            Me.Invalidate()
        End If
        Me.Cursor = Cursors.Cross
        Me.ToolTip1.SetToolTip(Me, e.X.ToString & ", " & e.Y.ToString)
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

        Me._RubberBandingOn = Not Me._RubberBandingOn

        If Not Me._RubberBandingOn Then

            If _Stop = Nothing Then _Stop = New Point

            _Stop.X = e.X
            _Stop.Y = e.Y

            Me.Invalidate()

            If _rRectangle.Width > 20 AndAlso _rRectangle.Height > 20 Then

                PictureBox2.Location = _rRectangle.Location
                PictureBox2.Size = _rRectangle.Size
                PictureBox2.Visible = True

            Else
                GC.Collect()
            End If
        End If
    End Sub

Can someone here shed some light on what could be wrong, or about any removals, or deprecation of code from Microsoft, or GDI+/GDI changes, or whatever that could have caused this? Maybe Win8/10 has a brand new way of drawing that I'm not aware of?

Any help is awesome as usual.
Thanks.

DTeCH