Visual Basic - Msgbox pero con fin automático

Hola. Necesito poner un mensaje, como un Msgbox, pero que finalice al cabo de n segundos si el usuario no toca algún botón.
Gracias!
Ruben

Lo puedes hacer realizando un control con un timer, sino en: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=50985&lngWId=1 tienes un ejemplo.

haz tu un msgbox propio, y usa timer.

Te mando una dirección donde hay codigo para lo que vos querés:

http://www.vbexperto.com/codigo/mostrar.asp?id=77&tipo=codfiles&cod=5

saludos

'abrir un modulo e inserta el siguiente codigo nadamas que ten cuidado de colocar los public porque van en general y si el formulario no lo vas a abrir muy segido esta bien por que cada vez que lo abras se ejecuta el msgbox
cualquier cosa [email protected]

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



Private Sub Form_Load()
'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%2