Visual Basic para Aplicaciones - Barra de Progreso

Si pueden ayudarme....
Como se configura una ProgressBar, si se puede un ejemplo???
Gracias

Crear un form con los siguientes controloes ....

ProgressBar que se llamará ProgressBar1,
CommandButton que se llamará Command1

Private Sub Command1_Click()
Dim j As Integer
Dim i As Integer
ProgressBar1.Min = 0
ProgressBar1.Max = 1000

For i = 1 To 1000
ProgressBar1.Value = i
For j = 1 To 20000: Next j 'para retardar..
'Aqui puedes poner todas las instrucciones
'que quieras......
DoEvents 'para liberar memoria ...
Next i
End Sub

Saludos