Рандомное перемещение объекта по форме с отскакиванием от бордюров

 While 1
            Threading.Thread.Sleep(100)
            Application.DoEvents()
            Button1.Location = New Point(New Random().Next(Height), New Random().Next(Width))
        End While

    Private dX As Integer = 1
    Private dY As Integer = 1
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim x As Integer = PictureBox1.Location.X
        Dim y As Integer = PictureBox1.Location.Y
 
        x = x + dX
        If x = 0 Or (x + PictureBox1.Width) = Me.ClientRectangle.Width Then dX = -dX
 
        y = y + dY
        If y = 0 Or (y + PictureBox1.Height) = Me.ClientRectangle.Height Then dY = -dY
 
        PictureBox1.Location = New Point(x, y)
    End Sub

    Private rand As New Random
 
    Private dX As Integer = 1
    Private dY As Integer = 1
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim x As Integer = PictureBox1.Location.X
        Dim y As Integer = PictureBox1.Location.Y
 
        '
        x = x + dX
        If x <= 0 Then
            x = 0
            dX = rand.Next(1, 6)
 
        ElseIf x + PictureBox1.Width >= Me.ClientRectangle.Width Then
            x = Me.ClientRectangle.Width - PictureBox1.Width
            dX = rand.Next(-5, 0)
 
        End If
 
        '
        y = y + dY
        If y <= 0 Then
            y = 0
            dY = rand.Next(1, 6)
 
        ElseIf y + PictureBox1.Height >= Me.ClientRectangle.Height Then
            y = Me.ClientRectangle.Height - PictureBox1.Height
            dY = rand.Next(-5, 0)
 
        End If
 
        '
        PictureBox1.Location = New Point(x, y)
    End Sub