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
Expand|Select|Wrap|Line Numbers
- For Num > 4 Then Num = 0
- Me.lblName = MyColors(Num)
I feel like there's something else missing like
Font.Color or something...
Expand|Select|Wrap|Line Numbers
- 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