Buscar este blog

Barras de procesos

Programa de la barra de progreso de com boton de inicio. Despuéss de que termine, el programa se cierra automáticamente .
Private Sub empezar_Click()
Timer1 = True
  End Sub
Private Sub Timer1_Timer()
Carga.Value = Carga.Value + 1
If Carga.Value = "100" Then
Timer1.Enabled = False
 MsgBox "listo", vbinformacion, "barra de proceso"
 End
 End If
 End Sub


No hay comentarios:

Publicar un comentario