Imprimir Página - aki esta el progressbar

Código:

Dim p As Integer 
Private Sub Command1_Click()
Timer1.Enabled = True 
End Sub

Private Sub Form_Load()
Timer1.Interval = 10 
Timer1.Enabled = False 
Frame1.Caption = "" 
Frame1.BackColor = ‘aqui puedes poner el color que quieras
Frame1.BorderStyle = 0
Shape1.Width = 0
Shape1.BorderColor = ‘aqui puedes poner el color que quieras
Shape1.FillColor = 'aqui puedes poner el color que quieras
Shape1.FillStyle = 0
End Sub

Private Sub Timer1_Timer()
p= p + 10
If Shape1.Width < 5000 Then ‘puede ponerle el valor que quieras
Shape1.Width = p
End If
End Sub

otro consejo xD

usa las etiquetas correspondientes para ingresar algun codigo, lo hace mucho mas legible y organizado

Para ingresar un codigo:
Click en el boton ---> (http://foro.elhacker.net/Themes/default/images/bbc/code.gif)

Ó

pone
[Code ]
'Tu Codigo
[/ Code ]

(Sin los espacios finales)

salu2 !!!

G0nz4

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: elpato_zeta en 5 Octubre 2005, 00:00 am