Option Explicit
 
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 Const MB_OKCANCEL = &H1&
Private Const MB_ICONASTERISK = &H40&
 
Private lReturn As Long
 
Private Sub Form_Load()
  lReturn = 99
End Sub
 
Private Sub Form_Activate()
   DoEvents
   Timer1.Interval = 1000
   ' Die MessageBox aufmachen
   lReturn = MessageBox(Me.hwnd, "CyberLord was here ....", "Zeit läuft ...", _
     MB_OKCANCEL Or MB_ICONASTERISK Or vbApplicationModal)
End Sub
 
Private Sub Timer1_Timer()
   Me.Caption = Time
   If lReturn <> 99 Then
     ' Ah der User hat sich bewegt
     MsgBox "Habs!!! Die Antwort lautet " & lReturn & "! nur wie war die Frage" & _
       "?!?", vbInformation
     lReturn = 99
   End If
End Sub