Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button4.Click
 
		Dim p As Point
		p = StatusBar1.Location
 
		Dim pbar As New ProgressBar
		pbar.Size = New Size(200, Me.StatusBar1.Height - 6)
		Dim pbarLeft As Integer
		pbarLeft = p.X + Me.StatusBar1.Panels(0).Width + Me.StatusBar1.Panels(1).Width
		pbar.Location = New Point(pbarLeft, 4)
		pbar.Step = 1
		Me.StatusBar1.Controls.Add(pbar)
		Dim i As Integer
		For i = 1 To 100
			Threading.Thread.Sleep(20)
			pbar.PerformStep()
		Next
		pbar.Visible = False
 
	End Sub

I'm an idealist. I don't know where I'm going, but I'm on my way.
- Carl Sandburg