progress bar

[leary]

Thanks Mr.Duffy for your suggestion. Now that I can See the progress bar it don't work. I want it to show progress of reading a row with 575 columns starting with tha 4th column. Here is what i have for code. as in previous post my knowledge = nothing on progress bars never wanted to use before now and information is limited, except from the people who like to make their own. I wanted bar on seperate form in order to use multiple times

Option Explicit
Dim m_intProgressMax As Integer

----------------------------
Private Sub Form_Activate()
m_intProgressMax = 575

With tmrProgress
.Enabled = True
.Interval = 100
End With
End Sub

---------------------------------
Private Sub tmrProgress_Timer()
Static counter As Integer

If counter = m_intProgressMax Then
tmrProgress.Enabled = False
counter = 0
prgShowNTell.Visible = False
Else
counter = counter + 1
End If
End Sub

[d.paulson]

You haven't incremented the progressbar value.


Private Sub tmrProgress_Timer()
Static counter As Integer

If counter = m_intProgressMax Then
tmrProgress.Enabled = False
counter = 0
prgShowNTell.Visible = False
Else
counter = counter + 1
prgShowNTell.Value = counter 'I am assuming this is your progressbar
End If
End Sub


David Paulson