[aljzazy]

كود :

Public Class Form1
   Dim ClickCount As Integer = 0
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       If Not ClickCount = 5 Then

           ClickCount += 1

       Else

           ClickCount = 1

       End If

       Select Case ClickCount

           Case Is = 1

               Label1.ForeColor = Color.Orange

           Case Is = 2

               Label1.ForeColor = Color.Red

           Case Is = 3

               Label1.ForeColor = Color.Blue

           Case Is = 4

               Label1.ForeColor = Color.Yellow
       End Select
   End Sub
End Class