Движение геометрического объекта по заданной траектории - Visual Basic .NET

Формулировка задачи:

Как можно преобразовать нижний код так, чтобы круг двигался по заданной траектории, а не по диагонали? Заранее спасибо.

Public Class Form2
        Dim a, b As Integer
        Dim j As Integer
 
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
            Dim col() As  _
    Color = {Color.Red, Color.Orange, Color.Yellow, _
    Color.Green, Color.DarkBlue, Color.Blue, Color.Violet}
            Dim Graph As Graphics = PictureBox1.CreateGraphics
            PictureBox1.Refresh()
        Graph.DrawEllipse(New Pen(col(j), 3), _
a * 10, b * 10, 50, 50)
            a = a + 1
            b = b + 1
            j = j + 1
            If j > 6 Then j = 0
        If (a * 10 + 50 > PictureBox1.Width) Or _
            (b * 10 + 50 > PictureBox1.Height) Then
            Button1.Enabled = False
        End If
        End Sub

Private Sub Задание1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Задание1ToolStripMenuItem.Click
        a = 0
        b = 0
        j = 0
        Form2.Show()
 
    End Sub

Решение задачи: «Движение геометрического объекта по заданной траектории»

textual
                            Листинг программы 
                        

                            Public Class MoveHelper
    Public Sub New(rect As Rectangle)
        Me.Rect = rect
        X = rect.X
        Y = rect.Y
    End Sub
    Public Property X As Integer
    Public Property Y As Integer
    Public Property Rect As Rectangle
 
    Public Sub MoveNext()
        Dim dir = 1 ' 1-left, 2-down, 3-right, 4-up
        If Y = Rect.Y AndAlso X < Rect.X + Rect.Width Then dir = 1
        If X = Rect.X + Rect.Width AndAlso Y < Rect.Y + Rect.Height Then dir = 2
        If Y = Rect.Y + Rect.Height AndAlso X > Rect.X Then dir = 3
        If X = Rect.X AndAlso Y > Rect.Y Then dir = 4
        Select Case dir
            Case 1
                X += 1
            Case 2
                Y += 1
            Case 3
                X -= 1
            Case 4
                Y -= 1
        End Select
    End Sub
End Class
                        