[VB6] progress bar

[ladyBlu]

Sub Form_Load()
    ProgressBar1.Min = 0
    ProgressBar1.Max = 0
End Sub

'sul click di un bottone chiamo una procedura 
'che esegue un ciclo su un recordset
Sub CiclaRecordset()
     ...
     ProgressBar1.Value = 0 
     Recordset.MoveFirst
     Do Until Recordset.EOF
        ProgressBar1.Value = ProgressBar1.Value + 1
        Recordset.MoveNext
     Loop
     ...
End Sub