[vb6] problema con visualizzazione form

[Beziel]

Ciao a tutti,
qln sà spiegarmi xkè avendo impostato la seguente sub in form viene visualizzato solamente alla fine?

Private Sub Form_Load()
If Dir("clienti.db") <> "" Then
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "clienti.db", , adOpenKeyset, adLockBatchOptimistic, adCmdFile
ProgressBar1.Visible = True
ProgressBar1.Max = rs.RecordCount
While Not rs.EOF
List1.AddItem rs("cognome") & " " & rs("nome")
List1.ItemData(List1.NewIndex) = rs("idclienti")
ProgressBar1.Value = rs.AbsolutePosition
rs.MoveNext
Wend
ProgressBar1.Visible = False
End If
End Sub

[IKON]

se ho capito bene vuoi visualizzare una progressBar mentre si esegue il Form_Load. Ma finchè non termina il form load tutti i controlli che vi sono non sono visibili. Crea un form a parte con una progressBar che visualizzi all'inizio del Load e lo scarichi alla fine