Progress bar

I have put a progress bar on seperate form to use as needed. problem is it doesn't show when called and my knowledge of progress bars = nothing, so it don't work. here is code section

frmProgressShow.Show
DoEvents
frmMDISanitation.Hide 'tried to get bar to show
Do Until intRow >= 575 ' to allow for growth...currently 559
If Trim(xlRangeList.Cells.Item(intRow, intCol)) = "*" Then

frmTasks.lstTasksDueThisWeek.AddItem intRow _
& "." & " " & m_objSheet.Cells.Item(intRow, 1)
frmTaskStatus.cboTaskView.AddItem intRow _
& "." & " " & m_objSheet.Cells.Item(intRow, 1)
intRow = intRow + 1
frmProgressShow.prgShowNTell.Value = intRow
DoEvents
Else
intRow = intRow + 1
Debug.Print m_objSheet.Cells(intRow, intCol)
End If

Loop
frmProgressShow.Hide

thanks for looking or helping!

You are not telling the frmProgressshow to be displayed
Replace your .Hide with thefollowing:

frmProgressShow.SHOW ' Show this form
frmProgressShow.Zorder ' Bring it to the foreground



This will cause Windows to display your Progress bar form

John G

I always wondered what zorder did, now i know thank you