Option Explicit
' zunächst die API-Deklarationen
Private Declare Function MessageBox Lib "user32" Alias _
  "MessageBoxA" (ByVal hWnd As Long, _
  ByVal lpText As String, ByVal lpCaption As String, _
  ByVal wType As Long) As Long
 
Private Sub Command1_Click()
 Dim RetVal As Long
 
 ' Timer initialisieren (2 Sekunden)
  Timer1.Interval = 2000
  Timer1.Enabled = True
 
  RetVal = MessageBox(Me.hWnd, "Wirklich beenden?", _
    "Exit", (vbQuestion + vbYesNo Or vbApplicationModal))
 
  MsgBox CStr(RetVal)
End Sub
 
Private Sub Timer1_Timer()
  ' ALT+n senden
  SendKeys "%n"
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de