Ciao ragazzi
vi chiedo la cortesia di aiutarmi (in seguito vi esporro' il codice), come dice l'oggetto ho una Flex e una ProgressBar style XP.

Ho provato in tutti i modi possibili, facendo anche una ricerca sul WEB, ma mi diventa difficile, quando carico i dati nella flex purtroppo la ProgressBar sembra non funzionare, ho provato anche a dare tutte le impostazioni possibili alla PBar ma sembra che si blocchi, ma il caricamento funziona senza problemi.

(Code per caricare la Flex e azionare la progressbar)...

Dim qry_Risposte As String, I As Integer
Dim rsQuiz As Recordset
Dim miodb As Database
Dim I1

Screen.MousePointer = vbHourglass
qry_Risposte = "SELECT ID,CODICE FROM TIP_LENTI WHERE TIPOLOGIA LIKE '" & (NomFornitore) & "'ORDER BY ID"

Set miodb = OpenDatabase("C:\VENDITA\DB\DB_LO.mdb")
Set rsQuiz = miodb.OpenRecordset(qry_Risposte, dbOpenDynaset)

If rsQuiz.EOF = False Then
rsQuiz.MoveLast
rsQuiz.MoveFirst
mi_TotaleArticoli = rsQuiz.RecordCount - 1

ReDim tRiga(mi_TotaleArticoli)

If mi_TotaleArticoli < mi_NroRighe Then
Else
m_fNoScroll = True
End If

For I = 0 To mi_TotaleArticoli

If IsNull(rsQuiz.Fields("CODICE").Value) = False Then
tRiga(I).FORNITORE = Trim(rsQuiz.Fields("CODICE").Value)
Else
tRiga(I).FORNITORE = vbNullString
End If

VENDITA.FLEX.AddItem tRiga(I).FORNITORE & vbTab & tRiga(I).Descrizione _
& vbTab & tRiga(I).FORNITORE1

rsQuiz.MoveNext
Next

End If

m_fNoScroll = False
rsQuiz.Close
miodb.Close
Screen.MousePointer = vbDefault

Ho provato ad inserire questo codice
Grazie mille
vr-claudio