[Resolvido]Executando um loop no timer, parando após o numero determinado

Amigos.. tenho 59 registros em uma pasta...

Ao carregar o form chamo um evento no timer, preciso que ao ir do registo 1 ao 31 encerre o loop. Como fazer?




If Me.txtPhase = "LUA MINGUANTE" Then

Do Until inti = 31 Or fExitLoop
DoEvents

inti = inti + 1
'..............................
pi_Gifo = Application.CurrentProject.Path & "\jpg\" & inti & ".jpg"
Me.ctlImgLua.Picture = pi_Gifo
'...............................

Me.lb_MsgAguarde.Caption = "Por favor, aguarde: processando... " & inti & " Imagens(s) registrada(s)"
Loop

fInLoop = False
frm.lblEscape.Visible = False
frm.lb_MsgAguarde.Caption = "Concluído em: " & inti & " Imagens(s) registrada(s)"
End If
TrataErro:
If err.Number = 2220 Then
MsgBox "XXXXX"
Else
Resu


Grsto pela ajuda

Novidades por aqui?

Grato

Será assim

If Me.txtPhase = "LUA MINGUANTE" Then

For inti = 1 To 31
DoEvents

'..............................
pi_Gifo = Application.CurrentProject.Path & "\jpg\" & inti & ".jpg"
Me.ctlImgLua.Picture = pi_Gifo
'...............................

Me.lb_MsgAguarde.Caption = "Por favor, aguarde: processando... " & inti & " Imagens(s) registrada(s)"
Next

fInLoop = False
frm.lblEscape.Visible = False
frm.lb_MsgAguarde.Caption = "Concluído em: " & inti & " Imagens(s) registrada(s)"
End If
TrataErro:
If err.Number = 2220 Then
MsgBox "XXXXX"
Else
Resu

Boa noite Alexandre.. Obrigado por ter respondido..

Apliquei.. mas vai a da 1 a 31 e continua em loop constante...

Preciso que pare na imagem 31..

Outra coisa...
1 - tem como definir um tempo dentro da função.. para não usá-la no timer?
2 - Ao aplicar a funcão no timer.. os controles do form ficam piscando de acordo com o timer, como resolver isso?


Obrigado




Sub Entrada()
On Error GoTo TrataErro
Dim frm As Form
Dim inti As Integer
Dim pi_Gifo
If Me.txtPhase = "LUA MINGUANTE" Then

For inti = 1 To 31
DoEvents

'..............................
pi_Gifo = Application.CurrentProject.Path & "\jpg\" & inti & ".jpg"
Me.ctlImgLua.Picture = pi_Gifo
'...............................

Me.lb_MsgAguarde.Caption = "Por favor, aguarde: processando... " & inti & " Imagens(s) registrada(s)"
Next

fInLoop = False
End If
TrataErro:
If err.Number = 2220 Then
MsgBox "XXXXX"
Else
Resume Next
End If
End Sub

Amigo alexandre... Resolvi assim:

Function OpenFormGiLua(frm As Form)
On Error GoTo TrataErro
Dim inti As Integer
Dim pi_Gifo

frm.lblEscape.Visible = True
frm.lblAbort.Visible = False

fInLoop = True
fExitLoop = False

Do Until inti > 30 Or fExitLoop

DoEvents

inti = inti + 1
'..............................
pi_Gifo = Application.CurrentProject.Path & "\jpg\" & inti & ".jpg"
Me.ctlImgLua.Picture = pi_Gifo
'...............................
Me.lb_MsgAguarde.Caption = "" & inti & " Imagens(s) registrada(s)"
Loop

fInLoop = False
frm.lblEscape.Visible = False
frm.lb_MsgAguarde.Caption = "Concluído em: " & inti & " cidade(s) registrada(s)"
Me.TimerInterval = 0

TrataErro:
If err.Number = 2220 Then
MsgBox "XXXXX"
Else
Resume Next
End If
End Function
End SubGrato pela ajuda