Option Explicit

Const STARTF_USESHOWWINDOW = &H1

Type STARTUPINFO
  cb              As Long
  lpReserved      As String
  lpDesktop       As String
  lpTitle         As String
  dwX             As Long
  dwY             As Long
  dwXSize         As Long
  dwYSize         As Long
  dwXCountChars   As Long
  dwYCountChars   As Long
  dwFillAttribute As Long
  dwFlags         As Long
  wShowWindow     As Integer
  cbReserved2     As Integer
  lpReserved2     As Long
  hStdInput       As Long
  hStdOutput      As Long
  hStdError       As Long
End Type

Type PROCESS_INFORMATION
  hProcess    As Long
  hThread     As Long
  dwProcessId As Long
  dwThreadId  As Long
End Type

Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


Public CancelDownload As Boolean

Sub ExecuteAndWait(CommandLine As String, Optional ShowWindow As VbAppWinStyle)
        Dim lpProcess As PROCESS_INFORMATION
        Dim lpStartup As STARTUPINFO
        Dim r&

  ' Oculta la ventana del proceso.
  '
  lpStartup.dwFlags = STARTF_USESHOWWINDOW
  lpStartup.wShowWindow = ShowWindow
  
  ' Se debe establecer el valor inicial del
  ' tamaño de la estructura.
  '
  lpStartup.cb = LenB(lpStartup)
  
  ' Crea el proceso.
  '
  r = CreateProcess(vbNullString, CommandLine, 0&, 0&, False, 0&, 0&, _
                    vbNullString, lpStartup, lpProcess)
  
  If r Then
    ' Si el proceso se creo correctamente.
    '
    Do While WaitForSingleObject(lpProcess.hProcess, 100)
      ' Espera hasta que termine el proceso.
      '
      If CancelDownload Then
        'Cancelar la espera.
        '
        Exit Sub
      End If
     
      DoEvents
    Loop
    
    CancelDownload = False
    
    ' Libera el controlador de proceso.
    '
    Call CloseHandle(lpProcess.hProcess)

  End If
End Sub

Do
 sDatos = sDatos & var & vbCrLf
Loop

txtDatos.Text = sDatos

Option Explicit

Const TIMER_INTERVAL = 86400  ' Intervalo del Timer, en segundos (le puse 1 día).

Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Private bTerminateTimer As Boolean

Sub Main()
  Call frmMain.Show
End Sub

Sub StartLongTimer()
  bTerminateTimer = False
  
  ' Crea el temporizador del sistema que se ejecuta de
  ' forma asíncrona, de esta manera se evita el bloqueo
  ' del programa.
  '
  Call SetTimer(0&, 0&, 1000&, AddressOf LongTimerProc)
End Sub

Sub TerminateLongTimer()
  ' Establece la variable a verdadero para que
  ' se termine el procedimiento del temporizador.
  '
  bTerminateTimer = True
End Sub

Sub LongTimerProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Integer, ByVal dwTime As Long)
        Dim snTime!

  Call KillTimer(0&, idEvent)
  
  ' Guarda el intervalo de tiempo actual.
  '
  snTime = Timer
  
  Do While (Timer - snTime) < TIMER_INTERVAL
    ' Espera hasta que pase el tiempo especificado
    ' a menos que se cancele.
    '
    
    If bTerminateTimer Then Exit Do
    
    DoEvents
  Loop
  
  If Not bTerminateTimer Then
    ' Si no se canceló el temporizador notifica del evento
    ' y vuelve a inicializar el contador.
    '
    Call LongTimer_Timer
    Call StartLongTimer
  End If
End Sub

Sub LongTimer_Timer()
  ' Este procedimiento se llamará cada vez que pase el lapso de tiempo
  ' configurado para el temporizador.
  '
  
  ' Acá se puede hacer cualquier cosa que desee.
  '
  Debug.Print "Timer interval: " & Time$
End Sub

Property Get TextLabel() As Label
  Set TextLabel = lblCaption
End Property

Property Get TextLabel() As Object
  Set TextLabel = lblCaption
End Property

Time = CDate("12:00:00 am")