Sub imgTimer_Tick()
imgTimer.Enabled = False
Dim now As Long
now = DateTime.TimeParse(DateTime.time(DateTime.now)) + 1000
Dim now1 As Long
Do While now1 <= now OR HaveImage = True
now1 = DateTime.TimeParse(DateTime.time(DateTime.now))
'Log(HaveImage)
If xxx.Success = True Then
Exit
End If
Loop
'imgTimer.Enabled = True
End Sub