Private Sub Form_GotFocus()
    Me.Hide
End Sub

Dim preCurrentTime As Single
Dim status As Boolean
Dim retval As Integer
 
Private Sub Form_GotFocus()
' Fenster ausblenden
    Me.Hide
End Sub
 
Private Sub Form_Initialize()
    ' Anfangswerte festlegen
    sngStartTime = Timer()
    preCurrentTime = sngStartTime
 
End Sub
 
Private Sub Form_Load()
    If intIntervall = 0 Then
        'Variablen Initialisieren:
        intIntervall = 300
    End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Dim i As Integer
End Sub
 
Private Sub Timer1_Timer()
 
    Dim CurrentTime As Single
    Dim Laufzeit As Integer
    Dim lpClassName As String
    Dim lpCaption As String
    Dim Handle As Long
 
    Const NILL = 0&
    Const WM_SYSCOMMAND = &H112
    Const SC_CLOSE = &HF060&
    lpClassName = vbNullString
    ' Hier schreibe ich dann das Programm rein das beendet werden soll
    lpCaption = "Rechner"
 
    ' Zurücksetzen der Zeiten beim Aufruf des Programms
    CurrentTime = Timer()
    If (preCurrentTime > CurrentTime - 10) And (preCurrentTime < CurrentTime _
      + 10) Then
        If CurrentTime < intIntervall And sngStartTime > intIntervall Then
            Laufzeit = 86400 + CurrentTime - sngStartTime
        Else
            Laufzeit = CurrentTime - sngStartTime
        End If
 
        If Laufzeit > intIntervall Then
            sngStartTime = CurrentTime
            Laufzeit = 0
            'Rechner beenden
            '* Determine the handle to the Calculator window.
            Handle = FindWindow(lpClassName$, lpCaption$)
 
            '* Post a message to Calc to end its existence.
            Handle = SendMessage(Handle, WM_SYSCOMMAND, SC_CLOSE, NILL)
        End If
 
    End If
    preCurrentTime = CurrentTime
End Sub