[VB6] Gestione di una ProgressBar per l'invio di una email

[Stefano1984Mn]

Prova cosi


x = UBound(arfile)
ProgressBar1.Max = x
ProgressBar1.Min = 1

poi all'interno del ciclo incrementi la progressbar1 facendo

ProgressBar1.Value = i


ciao