Closing form HELP!!!!!

[THEAF]

hi im using this code for to show a loading/progress bar:

Private Sub Timer2_Timer()
'
If frmLoading.Visible = True Then
Else
End If
Bar.Width = Bar.Width + 60
If Bar.Width >= 1143 Then
    Label2.Caption = "25%"
End If
If Bar.Width >= 2285 Then
    Label2.Caption = "50%"
End If
If Bar.Width >= 3428 Then
    Label2.Caption = "75%"
End If
If Bar.Width >= 4575 Then
    frmLoading.Hide
    frmLoading.Visible = True
    frmStaff.Show
    If Bar.Width <> 0 Then
        Bar.Width = 135
    End If
End If
End Sub

The code just moves a picture box to the right and changes % after a certain length. this window comes up when i click on a command button from another form. the code for that is a hide and show. the thing is that after the bar is finished loading it goes back to the previous form but it still runs so when it pops up again the bar will show where it is still running from.

i need a way to some how close it or something to start the code from the beginning fresh. i know the code may be simple so sorry.
AND THANK YOU.....

[ameesha]

Private Sub Timer2_Timer()
'If Form2.Visible = True Then
'Else
'End If
bar.Width = bar.Width + 5
If bar.Width >= 1143 Then
    Label2.Caption = "25%"
End If
If bar.Width >= 2285 Then
    Label2.Caption = "50%"
End If
If bar.Width >= 3428 Then
    Label2.Caption = "75%"
End If
If bar.Width >= 4575 Then
    Label2.Caption = "100%"
    MsgBox ("done")
    Form2.Hide
    Form2.Visible = True     
    Form3.Show
    Timer2.Enabled = False
    'If bar.Width = 0 Then
    'bar.Width = 135
    'End If
End If
End Sub
 

You can comment form2.visible=true.

[THEAF]

don't understand what you mean.
i want it to start from the beginning when it loads again how can i do this.

[ameesha]

I think you have a frmstaff with a button, when you click n it goes to frmloading.
Which has a pic bar. When it finishes loading it returns back to frmstaff.

Is it so ?
Then try below code...
I have written the comment for 2 line in subroutine...
Go through it. I guess it'll work fine each time you load the page.

Private Sub Timer2_Timer()
 
bar.Width = bar.Width + 5
 
If bar.Width >= 1143 Then
    Label2.Caption = "25%"
End If
 
If bar.Width >= 2285 Then
    Label2.Caption = "50%"
End If
 
If bar.Width >= 3428 Then
    Label2.Caption = "75%"
End If
 
If bar.Width >= 4575 Then
    Label2.Caption = "100%"
    MsgBox ("done")
    Frmloading.Hide 
    'Frmloading.Visible = True
    frmstaff.Show
    Timer2.Enabled = False                    ' stops the timer
    bar.Width = 135                                ' initialize the bar width
    ' Label2.Caption = " "
End If
 
End Sub

Also reset the timer2 interval as 1.

[Killer42]

I think all that's required is to unload the form (not just hide it) when finished with it. Next time it is loaded, everything it contains will be reinitialised.