vb5, non far bloccare il programma

[sebamix]

Private function conta(inizio,fine)
    a=2
    for i=inizio to fine
        valorecorrente.text=i
        doevents
        a=a+i
    next
    text3.text=a
End Function

doevents