Agnes,
I saw this question a lot of times before and thought why are the answers
always that difficult, I made a simple sample bellow. You have to make that
form2 of course to your shape, it is as simple as possible.
I hope this helps?
Cor
\\\2 forms with a progressbar on form2
Private frm As New Form2
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.Timer1 = New Timer(components)
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1000
Me.frm.Show()
frm.ProgressBar1.Maximum = 100
frm.ProgressBar1.Step = 25
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick
frm.Refresh()
frm.ProgressBar1.PerformStep()
frm.BringToFront()
If frm.ProgressBar1.Value > 99 Then
Timer1.Enabled = False
MessageBox.Show("I am there")
frm.Close()
End If
End Sub
///