ProgressBar help needed

[Nitesh]

Hi Guys,

I need to show a progressbar while the following sub is being executed:

The progressbar will be on another form and it should show while the sub is being executed and once the sub has executed, it must dissappear.

I tried doing it but the progressbar wasn't showing any progress. I've deleted what I tried.

Could someone please modify the following code to include the progressbar.

Private Sub cboSite_Click()

On Error GoTo errh

cmdPrintSiteInfo.Enabled = False
SiteNum = cboSite.ItemData(cboSite.ListIndex)

Call LoadSite(SiteNum)
LoadConsumable (SiteNum)
Call LoadSiteInfo("({Command.SiteId} = " & SiteNum & ")")

cboNotes.Enabled = True

Call PopulateNoteCombos(SiteNum)


'Unload Form3
NewRecNote = False
NewNote = False
cmdPrintSiteInfo.Enabled = True

Exit Sub
    
errh:
    errmsg "The following Exception occured : " & ERR.Description & ",  " & ERR.Source & "", "Exception occured in frmItemManager.cboSite_Click()"


End Sub