Scusate ma è la prima volata che uso una progress bar.
Ho creato una routine che carica una tabella da access su una combobox. Vorrei che la progress visualizzasse lo stato di caricamento.Ma non funziona ... cosa non va?
codice:
Private Sub loadcombo()
prgLoadData.Visible = True
prgLoadData.Min = datComuni.Recordset.BOF
prgLoadData.Max = datComuni.Recordset.RecordCount
Do While Not (datComuni.Recordset.EOF)
CmbCitta.AddItem (datComuni.Recordset!comune)
prgLoadData.Value = datComuni.Recordset.AbsolutePosition
datComuni.Recordset.MoveNext
Loop
End Sub