Case Is

[nes@]

Здравствуйте! немогли бы вы помочь с программой на Visual Basic, у меня возникли разногласия с преподавателем, он говорит, что не верно составлена, проверте пожалуйста, она элементарная
Private Sub Command1_Click()
Static s As Integer
s = s + 1
If s > 4 Then s = 1
Select Case s
Case Is = 1
Label1.ForeColor = RGB(255, 0, 0)
Case Is = 2
Label1.ForeColor = RGB(0, 0, 255)
Case Is = 3
Label1.ForeColor = RGB(0, 255, 0)
Case Is = 4
Label1.ForeColor = RGB(255, 0, 255)
End Select
End Sub

подскажите пожалуйста поточнее зачем необх. Case Is