Mostrar Mensajes
jja bueno el caso es q asi quedo
en un form poner un commandbutton, timer, label y un picturebox
Código:
Dim Contador As Long, Progreso As Long, Resto As Long
Private Sub Command1_Click()
Timer1.Interval = 10
End Sub
Private Sub Form_Load()
Contador = 0
Picture1.BackColor = vbWhite
Picture1.Width = 5000
Picture1.Height = 250
Picture1.DrawWidth = 5
End Sub
Private Sub Timer1_Timer()
Contador = Contador + 1
Progreso = 5000 / 100 * Contador
For i = Resto To Progreso
Picture1.PSet (i, 50), vbBlue
Next
Resto = Progreso
Label1.Caption = Contador & "%"
If Contador = 100 Then
MsgBox Contador & "%"
Timer1.Interval = 0
Contador = 0
Resto = 0
Picture1.BackColor = vbWhite
End If
End Sub
ya lo modifique 500 veces jaja creo q ahora quedo bien
acepto criticas (buenas y malas)
SALUDOS
