请帮我找出这段VB循环中的错误

我是VB初学者，我的程式是单击窗体以不同的颜色输出字符串“欢迎使用Visual Basic”。
第一次单击时以红色显示；第二次单击时以绿色显示；第三次单击时以蓝色显示；第四次单击时清除窗体上的信息；第五次又重新以红色显示

但是现在有个问题,循环是会出现了 但是在点击第一下会先跳出蓝色字，点第二下会消失，第三下后才进入循环~ 请帮帮我~

Dim Flag As Integer
Private Sub Form_Click()

Select Case Flag
Case 1
Form1.ForeColor = RGB(255, 0, 0)
Print "辣茩妏蚚 Visual Basic!"
Flag = Flag + 1

Case 2
Form1.ForeColor = RGB(0, 255, 0)
Print "辣茩妏蚚 Visual Basic!"
Flag = Flag + 1

Case 3
Form1.ForeColor = RGB(0, 0, 255)
Print "辣茩妏蚚 Visual Basic!"
Flag = Flag + 1

Case Else
Cls
Flag = 1

End Select

End Sub

Private Sub Form_Load()

Flag = 1
Form1.ForeColor = vbRed
Flag = 2
Form1.ForeColor = vbGreen
Flag = 3
Form1.ForeColor = vbBlue

End Sub

各位高人帮帮忙！请帮我找出这段网页代码的错误 请帮我找出这2句话中的3个错误，懂英语的来..... 帮我看看这段VB代码错误 帮忙找出下面程序段中的错误 请找出文章中的错误 请帮我看看这段vb的程序 请帮我看看这段vb代码 请VB高手帮我看看这段代码 请大家帮我解释一下这段代码（VB） 帮帮我吧..请帮我找出错误!