In fact, the progress bar is simply implemented with Access. Both VBA, I believe that in other languages is also the same, maybe the difference is in different events!
'The following code is placed in the form of the "timer trigger" (by the way, the best design timer is 100)
Private suborm_timer () if text1.value <100 TET1.VALUE = 1 text1.value label0.width = 4991/100 * text1.value 'where the length IF when the progress strip reaches 100%, you have to stop Condition THEN DOCMD.CLOSE Else Text1.Value = 1 Label0.Width = 1 End IFEND SUB
Note: I haven't sent some code in my own space for a long time! In addition to writing your own mood, here, I have to put it down or the master's code! There is also to write English! Originally, I had a MSN space to write English diary, but unfortunately the company's network can not log in (I don't know if it is a port)
