Barra de Progreso en vb 6.0

Un programita muy sencillito en visual basic, una barra de progreso para la que solo necesitamos dos picturebox, uno dentro del otro para hacerlo, atentos a las imagenes:

Aqui esta el formulario sin compilar, tenemos primero un picturebox (no es un textbox) y dentro del picturebox otro, lo mas delgado que se pueda poner, debajo tenemos un timer y por ultimo un boton para parar el programa.
el picture contenedor lo llamaremos picture1 y al picture de dentro lo llamaremos picture2, al timer lo llamaremos timer1.

al compilar el programa y echarlo a andar vemos como la barra de progreso va pasando a la velocidad que nosotros le demos al timer, todo depende de como controlemos el tiempo de paso de la barra, mas abajo colocare el codigo necesario, debemos vigilar si copiamos y pegamos, que todo se copie como es debido.




CODIGO:

Private Sub Timer1_Timer()
'Verifica si la anchura del segundo Picture
'es menor que la anchura de su contenedor. Si es menor se incrementa.
If Picture2.Width < Picture1.Width Then
   Picture2.Width = Picture2.Width + 100 'Incrementa el segundo Picture.
Else
  'Desactiva el tiempo cuando el segundo Picture alcanza la anchura de su contenedor.
  Timer1.Enabled = False
End If
End Sub
____________________________________________________________________________
Private Sub Command1_Click()
    End
End Sub

Las frases del codigo en verde no las lee el compilador, sirven solo como explicación, si quereis podeis quitarlas.