Progress Bar in Acces 2000

Okay, now then. I'm hoping somebody can help here, pretty please. I want to make a progress bar/indicator on a form. At first I was just going to insert an animated gif, but I've tried and remembered that you can't put an animated gif in there, it becomes static (I did find that out in year 10 at school, I should have known, but that's just me). I can't find an ActiveX control for a progress bat that works (and isn't it true that if you move the database to another computer that doesn't have the controll installed, that it won't work in the database? This particular database may be switched between a few computers.) So I went for what I thought to be a third option. I thought this would be a pretty simple thing to do: Have a drawing box on the form. Then when the form loads, have some code there to make this box bigger. So...
Length = 0
Loop
Delay 100 miliseconds
Increase length
Do Until Length = whatever
But this arrangement doesn't seem to work. This is the code I used:

Expand|Select|Wrap|Line Numbers

1. Private Sub Form_Open(Cancel As Integer)
2. Dim T
3. T = 0
4. Form.AllowDesignChanges = True
5. ProgressBox.Width = T
6. Do
7.   Call Sleep(100)
8.   T = T + 50
9.   ProgressBox.Width = T
10. Loop Until T = 3500
11. Exit Sub
12. End Sub

I do have the Sleep thingy declared in a code module. The sleep function does work. If I put in a simple little bit of code like:

Expand|Select|Wrap|Line Numbers

1.  Call Sleep(2000)
2. Msgbox"This is a delayed mesage box"
3.  

It works absolutley fine, the delay does work.
If I have this code for the progress indicator on OnOpen, the form does not open at all. If I have it on OnLoad, it loads but the progress bar does nothing. If I put the code into a form button, it does the same.
What a fuss for something so simple. You're probarbly out there thinking what a fool, there is a simple answer. If there is, could one of you kind souls help me out? Either make this makeshift progress indicator work, enlargening the drawind box, or put in a real progress indicator (or even a longshot, help with some other animation?)
If anybody can help, I shall.... erm... well, I have a box that had fresh cream eclairs in it. The are now gone, but I could let you sniff the box, or scrape out some of the cream and chocolate. Or I'll share some Lime and Corriander mini popadoms!
Thanks in advance.

Okay, now then. I'm hoping somebody can help here, pretty please. I want to make a progress bar/indicator on a form. At first I was just going to insert an animated gif, but I've tried and remembered that you can't put an animated gif in there, it becomes static (I did find that out in year 10 at school, I should have known, but that's just me). I can't find an ActiveX control for a progress bat that works (and isn't it true that if you move the database to another computer that doesn't have the controll installed, that it won't work in the database? This particular database may be switched between a few computers.) So I went for what I thought to be a third option. I thought this would be a pretty simple thing to do: Have a drawing box on the form. Then when the form loads, have some code there to make this box bigger. So...
Length = 0
Loop
Delay 100 miliseconds
Increase length
Do Until Length = whatever
But this arrangement doesn't seem to work. This is the code I used:

Expand|Select|Wrap|Line Numbers

1. Private Sub Form_Open(Cancel As Integer)
2. Dim T
3. T = 0
4. Form.AllowDesignChanges = True
5. ProgressBox.Width = T
6. Do
7.   Call Sleep(100)
8.   T = T + 50
9.   ProgressBox.Width = T
10. Loop Until T = 3500
11. Exit Sub
12. End Sub

I do have the Sleep thingy declared in a code module. The sleep function does work. If I put in a simple little bit of code like:

Expand|Select|Wrap|Line Numbers

1.  Call Sleep(2000)
2. Msgbox"This is a delayed mesage box"
3.  

It works absolutley fine, the delay does work.
If I have this code for the progress indicator on OnOpen, the form does not open at all. If I have it on OnLoad, it loads but the progress bar does nothing. If I put the code into a form button, it does the same.
What a fuss for something so simple. You're probarbly out there thinking what a fool, there is a simple answer. If there is, could one of you kind souls help me out? Either make this makeshift progress indicator work, enlargening the drawind box, or put in a real progress indicator (or even a longshot, help with some other animation?)
If anybody can help, I shall.... erm... well, I have a box that had fresh cream eclairs in it. The are now gone, but I could let you sniff the box, or scrape out some of the cream and chocolate. Or I'll share some Lime and Corriander mini popadoms!
Thanks in advance.

Thanks both of you, Rabbit and Adezii. I'm sorry, I must seem so ignorant! I'm trying my best here. I have studied computing and believe it or not I got AA grade in my AVCE ICT. but I'm going to be a nurse, so... well... I'm not exactly an expert in all of this. But I do try.
Anyway, the progress bar I wanted wasn't a real progress bar really, but more a bit of an animation. There's this bit in the database where it does some stuff and hands over to Microsoft Word, and Word does some stuff automatically for a few seconds then closes. All that works absolutley fine. I just wanted a little form to pop up with an animation or progress bar just to show the user that it's doing something and to be patient. I can make a nice little form pop up, like a splash screen, and say "Please Wait". I'm just being shallow and wanting an animation really. I want it to last about 3 seconds. Somewhere between 3 and 5 seconds. If you can help with a... how would we call it, "psuedo progress bar" Adezii, that would be fantastic. This all may seem absolutley pointless, but the database wil be used by a fair few people, including those who aren't too computer literate, and if it seemingly does nothing, people have a tendancy to get frustrated. If they see an animation, something psychologically calms them down :oP. Well, it makes them see something is going on. And yes, I'm being shallow and trying to make it pretty.

Thanks both of you, Rabbit and Adezii. I'm sorry, I must seem so ignorant! I'm trying my best here. I have studied computing and believe it or not I got AA grade in my AVCE ICT. but I'm going to be a nurse, so... well... I'm not exactly an expert in all of this. But I do try.
Anyway, the progress bar I wanted wasn't a real progress bar really, but more a bit of an animation. There's this bit in the database where it does some stuff and hands over to Microsoft Word, and Word does some stuff automatically for a few seconds then closes. All that works absolutley fine. I just wanted a little form to pop up with an animation or progress bar just to show the user that it's doing something and to be patient. I can make a nice little form pop up, like a splash screen, and say "Please Wait". I'm just being shallow and wanting an animation really. I want it to last about 3 seconds. Somewhere between 3 and 5 seconds. If you can help with a... how would we call it, "psuedo progress bar" Adezii, that would be fantastic. This all may seem absolutley pointless, but the database wil be used by a fair few people, including those who aren't too computer literate, and if it seemingly does nothing, people have a tendancy to get frustrated. If they see an animation, something psychologically calms them down :oP. Well, it makes them see something is going on. And yes, I'm being shallow and trying to make it pretty.

1. Create a Label Control, position it on the Form, and name it lblProgress. The Horizontal positioning is not important, it will be positioned via code but the Vertical positioning is since this will be the actual position of the Progress Bar (Vertically).
2. Set the Height of the Label. This will be the Height of the Progress Bar.
3. Set the Special Effect to Sunken (trust me).
4. Set the Back Style to Normal.
5. Set the Back Color to any color you so desire. This will be the 'Fill Color' for your Progress Bar.
6. Set the Visible Property to No.
7. Delete the Caption for the Progress Bar (lblProgress).
8. Place this code in the Click() Event of a Command Button and fire away.

Thanks loads Adezii. I set up the code linked to a form button, and it worked first time. I've made a few modifications to change the position and time, and it works reliably - from the form button. I can't seem to link the code to the form to get it to automatically run when the form loads for some reason. I've put it in OnCurrent, OnOpen, OnLoad, OnActivate, OnGotFocus, and none of them work. I've not changed the code, only copied and pasted. Put it back in a button, and it works again. Am I missing something? When I put the code in these perameters, with OnLoad for example, what happens is it seems to process the progress bar off screen. The form does not load for roughly the time the bar should be moving. When the form does load a few seconds later, the bar is already at full length. So it looks like the form is not being displayed until after the bar has been drawn.
Any suggestions?

Hurrah! it works! When I first saw you said to put it in the OnTimer bit I did laugh, I already had stuff in the onTimer event. But just putting that to the end of the code, it all works absolutley fine. I'm sorry if all of this has seemed absolutley pointless, but I thank you both for being so patient and thank you for your help. Isn't it nice when something comes together?
(It may have been pointless and been easier to give up and scrap it, but that's not the way I work.)
Anyway, thanks again. May endless riches and chocolate brownies befall you both. Unfortunatley I have none of those to give you myself. I do have ginger cake though...