Do you have a need to pop up a 'PleaseWait' form while you are processing something and then close it when you are done?

Attached is a zip file containing an mdb in 2000 format with a form and a module. Import these 2 objects into your working database.

form name: f_PleaseWait

Popup --> yes
Modal --> no
Navigation Buttons --> No
Dividing Lines --> No
RecordSelectors --> No

with a label
Name --> Msg
Caption --> Please Wait...

module name: bas_PleaseWait

CODE
Option Compare Database
Option Explicit[color="green"]
'
' Crystal 5-17-08
' strive4peace2008@yahoo.com
'
'
'------------------  open the PleaseWait form[/color]
Sub ShowPleaseWait()
   DoCmd.OpenForm "f_PleaseWait"
   Forms!f_PleaseWait.Repaint
End Sub[color="green"]
'
'------------------  close the PleaseWait form[/color]
Sub ClosePleaseWait()
   If CurrentProject.AllForms("f_PleaseWait").IsLoaded Then
      DoCmd.Close acForm, "f_PleaseWait", acSaveNo
   End If
End Sub[color="green"]
'
'------------------  change the PleaseWait message[/color]
Sub MsgPleaseWait(Optional pMsg As String = "PleaseWait...")
   Forms!f_PleaseWait.Msg.Caption = pMsg
   Forms!f_PleaseWait.Repaint
End Sub