Visual Basic - Progress Bar

Hola Amigos.....

Alguien me puede mandar un ejemplo de como crear el codigo para ejecutar
la barra de progeso (Progress Bar)
Por ejemplo:
Al ordenar un BD por nombre me muestre la barra de progreso hasta el final del ordenamiento

Usa parecido a lo que sigue para el ProgressBar:
En este ejemplo se hace coincidir el ancho de un control TextBox con el de un control Slider. Mientras la propiedad Value del control Slider sea superior a un determinado valor, el ancho del control TextBox coincidirá con el valor del control Slider. Las propiedades SmallChange y LargeChange dependen de la propiedad Max del control Slider. Para probar el ejemplo, coloque un control Slider y un control TextBox en un formulario y pegue el código en la sección Declaraciones de éste. Ejecute el ejemplo y presione las teclas AV PÁG, RE PÁG, FLECHA IZQUIERDA y FLECHA DERECHA.

Private Sub Form_Load()
Text1.Width = 4500 ' Establece una anchura mínima
' para el TextBox.
Slider1.Left = Text1.Left ' Alinea el Slider y el
' TextBox.
' Hace coincidir los dos anchos.
Slider1.Max = Text1.Width
' Coloca el Slider por debajo del Textbox.
Slider1.Top = Text1.Top + Text1.Height + 50
' Establece TickFrequency a una fracción del valor
' de Max.
Slider1.TickFrequency = Slider1.Max * 0.1
' Establece LargeChange y SmallChange a una

' fracción de Max.
Slider1.LargeChange = Slider1.Max * 0.1
Slider1.SmallChange = Slider1.Max * 0.01
End Sub

Private Sub Slider1_Change()
' Si el tamaño del Slider es menos de 1/3 del
' TextBox, no hay cambio.
' De lo contrario, se hace coincidir el ancho del
' TextBox con el valor de Slider.
If Slider1.Value > Slider1.Max / 3 Then
Text1.Width = Slider1.Value
End If
End Sub

Tanto la barra de desplazamiento, como la barra de progreso y las barras de Scroll, vertical y horizontal, utilizan los mismos métodos.
Valores, Max, Min, etc.
Si te sabes una te las sabes todas.
Prueba y verás.

es muy sencillo
en la propiedad max le das el maximo valor al progress bar...
si en la propiedad value del progress bar... escribis 80.... se va a pintar el 80% de la barra
si en la propiedad value pones 20
se va a pintar el 20% del progress bar.