How to pause the unload of my form

Hi,

I'm new at this so bear with me..

I have the code below that moves my files, then at the end of my move I want to display a lable that shows sucess...I have that and it works fine...BUT....the label changes and I send the form unload (because I want to close the form) it happens so fast my users won't be able to see the result.

How can I can delay the closing of the form for a few seconds?

Code:

---

Private Sub Form_Load()
'
    Form1.Refresh
    Form1.Show
    Form1.AutoRedraw = True
    Form1.Visible = True
    Form1.Image1.Visible = True
    Form1.Label1.Caption = "Starting Copy of open MDB Files"
    Form1.Command1.Visible = False


    'Label1.Caption = "Starting Copy of MDB Files from WSIPR2"
 
  Dim fso As New FileSystemObject
    Form1.Refresh
    Form1.Show
    Form1.AutoRedraw = True
    Form1.Visible = True
    Form1.Image1.Visible = True
    Form1.Label1.Caption = "Starting Copy of open MDB Files"
    Form1.Command1.Visible = False
 
'    fso.CopyFile "\\WSIPR2\GSAP\WSITES\TES.mdb", "\\GSDCSHR01\gsap\WSITes\TES.mdb"
'    fso.CopyFile "\\WSIPR2\GSAP\WSITES\WSIDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\WSITes\WSIDATA\ultidata.mdb"
''
'    fso.CopyFile "\\WSIPR2\GSAP\TES_Remote\ASTTES\TES.mdb", "\\GSDCSHR01\gsap\TES_Remote\ASTTES\TES.mdb"
'    fso.CopyFile "\\WSIPR2\GSAP\TES_Remote\ASTTES\ASTDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\ASTTES\ASTDATA\Ultidata.mdb"
'
'    fso.CopyFile "\\WSIPR2\GSAP\TES_REMOTE\AGUTES\TES.mdb", "\\GSDCSHR01\gsap\TES_Remote\AGUTES\TES.mdb"
'    fso.CopyFile "\\WSIPR2\GSAP\TES_REMOTE\AGUTES\AGUDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\AGUTES\AGUDATA\Ultidata.mdb"
'
'    fso.CopyFile "\\WSIPR2\GSAP\TES_REMOTE\ITITES\TES.mdb", "\\GSDCSHR01\gsap\TES_Remote\ITITES\TES.mdb"
      fso.CopyFile "\\WSIPR2\GSAP\TES_REMOTE\ITITES\ITIDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata.mdb"
     
    Label1.Caption = "Starting Compact & Repair of MDB Files on GSDCSHR01"
   
'    If Dir("\\GSDCSHR01\gsap\WSITes\TES2.mdb") <> "" Then Kill _
'        "\\GSDCSHR01\gsap\WSITes\TES2.mdb"
'        DBEngine.CompactDatabase "\\GSDCSHR01\gsap\WSITes\TES.mdb", "\\GSDCSHR01\gsap\WSITes\TES2.mdb"
'
'    If Dir("\\GSDCSHR01\gsap\WSITes\WSIDATA\ultidata2.mdb") <> "" Then Kill _
'        "\\GSDCSHR01\gsap\WSITes\WSIDATA\ultidata2.mdb"
'        DBEngine.CompactDatabase "\\GSDCSHR01\gsap\WSITes\WSIDATA\ultidata.mdb", "\\GSDCSHR01\gsap\WSITes\WSIDATA\ultidata2.mdb"
'
'    If Dir("\\GSDCSHR01\gsap\TES_Remote\ASTTES\TES2.mdb") <> "" Then Kill _
'        "\\GSDCSHR01\gsap\TES_Remote\ASTTES\TES2.mdb"
'        DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\ASTTES\TES.mdb", "\\GSDCSHR01\gsap\TES_Remote\ASTTES\TES2.mdb"
'
'    If Dir("\\GSDCSHR01\gsap\TES_Remote\ASTTES\ASTDATA\Ultidata2.mdb") <> "" Then Kill _
'        "\\GSDCSHR01\gsap\TES_Remote\ASTTES\ASTDATA\Ultidata2.mdb"
'        DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\ASTTES\ASTDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\ASTTES\ASTDATA\Ultidata2.mdb"
'
'    If Dir("\\GSDCSHR01\gsap\TES_Remote\AGUTES\TES2.mdb") <> "" Then Kill _
'        "\\GSDCSHR01\gsap\TES_Remote\AGUTES\TES2.mdb"
'        DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\AGUTES\TES.mdb", "\\GSDCSHR01\gsap\TES_Remote\AGUTES\TES2.mdb"
'
'    If Dir("\\GSDCSHR01\gsap\TES_Remote\AGUTES\AGUDATA\Ultidata2.mdb") <> "" Then Kill _
'        "\\GSDCSHR01\gsap\TES_Remote\AGUTES\AGUDATA\Ultidata2.mdb"
'        DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\AGUTES\AGUDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\AGUTES\AGUDATA\Ultidata2.mdb"
'
'    If Dir("\\GSDCSHR01\gsap\TES_Remote\ITITES\TES2.mdb") <> "" Then Kill _
'        "\\GSDCSHR01\gsap\TES_Remote\ITITES\TES2.mdb"
'        DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\ITITES\TES.mdb", "\\GSDCSHR01\gsap\TES_Remote\ITITES\TES2.mdb"
'
      If Dir("\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata2.mdb") <> "" Then Kill _
        "\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata2.mdb"
        DBEngine.CompactDatabase "\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata.mdb", "\\GSDCSHR01\gsap\TES_Remote\ITITES\ITIDATA\Ultidata2.mdb"

  Label2.Caption = "Finished Compact and Repair of MDB File"
  Unload Form1

---

This should be faster:

Code:

---

Option Explicit

Private Sub Form_Load()
' Set Reference to Microsoft Jet Runtim Object (JRO)
'  BROWSE if not found: \program files\common files\system\ado\msjro.dll
  CompactAndRepair (db$)
End Sub

Also, I'd run the C&R BEFORE any other code.  In a splash screen would be best...


Sub CompactAndRepair(db$)
  Dim jro As jro.JetEngine, xn$
  Set jro = New jro.JetEngine
  Screen.MousePointer = vbHourglass
  xn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\"
  jro.CompactDatabase xn & db, xn & db & "-2"
  If Len(Dir(App.Path & "\" & db & "-2")) > 0 Then
    Kill App.Path & "\" & db
    Do While Len(Dir(App.Path & "\" & db)) > 0
      DoEvents              ' wait for delete
    Loop
    Name App.Path & "\" & db & "-2" As App.Path & "\" & db
    Do While Len(Dir(App.Path & "\" & db)) = 0
    DoEvents        ' wait for copy to complete
    Loop
End If
Screen.MousePointer = vbDefault
End Sub

---

Move all your code to Form_Paint event and give it a try

...but remove all your Refresh, Redraw,etc. they will not be neccesary