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 Sub Form_Activate()
   DoEvents
   Timer1.Interval = 1000
   MessageBox Me.hwnd, "CyberLord was here ....", "Zeit läuft ...", MB_OKCANCEL _
     Or MB_ICONASTERISK Or vbApplicationModal
 
End Sub
 
Private Sub Timer1_Timer()
   Form1.Caption = Time
End Sub