Como esconder controles segun un tiempo determinado?

[JAMER]

Tengo una nueva pregunta como puedo esconder controles segun pasen determinados segundos de tiempo, supongo que debe ser con un timer ok planteo el caso:

Supongamos que a determinada hora Las 8:00:00 de la noche el programa de be hacerle una pregunta al usuario con un message box este debe responder si o no y en caso de que no responda en 10 segundos (8:00:10) el message se borre (o se oprima por default ya sea el si o el no).

Se puede hacer con msbox? o seria mas factible con labels y textbox y commands???

[jc_moty]

Proba asi:

Código:

' En un Modulo:
Public Const NV_CLOSEMSGBOX As Long = &H5000&
Public Declare Function SetTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&, _
ByVal uElapse&, ByVal lpTimerFunc&)
Public Declare Function FindWindow& Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName$, ByVal lpWindowName$)
Public Declare Function LockWindowUpdate& Lib "user32" (ByVal hwndLock&)
Public Declare Function SetForegroundWindow& Lib "user32" (ByVal hWnd&)
Public Declare Function MessageBox& Lib "user32" Alias "MessageBoxA" _
(ByVal hWnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Public Declare Function KillTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&)
Public Const API_FALSE As Long = 0&

Public Sub TimerProc(ByVal hWnd&, ByVal uMsg&, ByVal idEvent&, ByVal dwTime&)
    KillTimer hWnd, idEvent
    Dim hMessageBox&
    hMessageBox = FindWindow("#32770", "AutoCerrado")
    If hMessageBox Then
        Call SetForegroundWindow(hMessageBox)
        SendKeys "{enter}"
    End If
    Call LockWindowUpdate(API_FALSE)
End Sub

' En un boton del Form
Private Sub Command1_Click()
    'Sustituye 4000 por el nº de milisegundos que quieres que el mensaje aparezca
    '1000 milisegundos=1 segundo
    SetTimer hWnd, NV_CLOSEMSGBOX, 4000&, AddressOf TimerProc
    Call MessageBox(hWnd, "Este mensaje desaparecerá en 4 segundos", _
                   "AutoCerrado", MB_ICONQUESTION Or MB_TASKMODAL)
End Sub

Creditos a Alexander Mendez, podes descargar el proyecto aqui (clic derecho al vinculo y en el menu selecciona Guardar destino como)
Saludos