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.Enabled = True
		pbar.Step = 1
		pbar.Maximum = 100
		pbar.Minimum = 0
		pbar.Width = 200
		pbar.Left = p.X + StatusBar1.Panels(0).Width + StatusBar1.Panels(1).Width
		pbar.Top = p.Y + 3
		pbar.Height = StatusBar1.Height - 6
		pbar.Visible = True
 
		StatusBar1.Controls.Add(pbar)
 
		Dim i As Integer
		For i = 1 To 100
			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