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