progressbar

Integer con
Hpb_1.MaxPosition=2000
Hpb_1.MinPosition=1
For con=1 to 2000
  Hpb_1.Position= Hpb_1.Position + con
Next
Eso es todo aslo en un boton, cualquier cosa solo pregunta
 

En el Evento Timer de tu Ventan1(el que tendra el hprogessbar)
Hpb_1.MaxPosition=100
Hpb_1.MinPosition=1
Hpb_1.Position= Hpb_1.Position + 10
if Hpb_1.MaxPosition=500 then
open(ventana2)
end if
En el Open de tu ventana1
Timer(1)
Si gustaras mas velocidad o lentitud, debes de cambiar el valor Timer(1) el uno que esta dentro puedes aumentarle o disminuirlo a decimales

Disculpa pero tambien quisiera saber como haria para q cuando tenga 2 ventanas abiertas solo accesa a la ultima q abri pero la otra no se cierra pero tampoco se puede selecionar a menos q cierre la q esta abierta.
 
Atte.
 
MigueL

lo voy a probar y sobre como haria para bloquear la ventana cuando dos estan abiertas espero q me ayudes en eso tambien
 
Atte.
 
MigueL

No olvidez finaliza la pregunta