Endless Looping with Font.Colors in Visual Basic 2010

[annie8508]

I'm trying to make is so that a Name located in lblName...will be continually changing the color of the Font Letter in the same order when I click the Form1

So click Form1

The Name will be Red, Click again Name will be in White, Click again Name will be Blue , click again Name will be Purple, click again the Name will be Orange, and the process startes all over again..Color is the same...

What am i doing wrong here...? should I have have

 For Num > 4 Then Num = 0 
        Me.lblName = MyColors(Num)

Here is the code...hopefull y somebody can help

I feel like there's something else missing like
Font.Color or something...

Public Class Form1
    Dim MyColors(4) As Color 'Global
    Dim Num As Integer 'Global, automatically initialized to 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
            System.EventArgs) Handles MyBase.Load
        MyColors(0) = Color.Red
        MyColors(1) = Color.White
        MyColors(2) = Color.Blue
        MyColors(3) = Color.Purple
        MyColors(4)= Color.Orange
    End Sub 'Form1_Load

    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As  _
            System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        Num =( Num + 1) Mod 5
         IF Num > 4 Then Num = 0 
        Me.lblName = MyColors(Num)
      
    End Sub 'Form1_MouseClick
End Class

[Monomachus]

Try this.

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As  _
            System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        Num = (Num + 1) Mod 5
        If Num > 4 Then Num = 0
        Me.lblName.ForeColor = MyColors(Num)

    End Sub 'Form1_MouseClick