Private sub timer1_timer
'Lo mas importante de la barra d progreso son estos 3:
'barra.min = 0 ; ay dices el valor minimo q tendra la barra,suele ser 0.
'barra.value = barra.value + 1; Signifa el valor q tendra en ese instante la barra, es lo q esta coloreao d color verde o azul.
'barra.max  = 100 ; lo mismo q el min pero al reves. Es el valor maximo d la barra
barra.min = 0
barra.max = 100
if barra.value = barra.max then timer1.interval = 0: Exit sub
barra.value = barra.value = + 1
end sub

private sub Form_load
 timer1.interval = 10
end sub

 SavePicture Picture1.Image, "C:\a.bmp"