相关代码：
timer1  我设的是10，我想实现的效果是光标一移动到image1，等2s然后image1消失，image5出现。
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
delay = time
While (c = 1)                   ”c是标志，初始值=1
If (time = delay + 300) Then
c = 0
End If
Wend
c = 1
Image1.Visible = False
Image5.Visible = True
End Sub

Private Sub Timer1_Timer()
time = time + 1
End Sub
求大神解救？为什么卡死？或者用什么方法实现我想要的功能！！