'der Timer läuft alle 300 ms
Private Sub TimerGetProcess_Timer()
GetExeNames ' scannt alle Prozesse, und wenn Prozess-A läuft ist AppActive = 
' True
End Sub
Private Sub CheckappExe()
Do
If BarAppActive = True Then
Startfunc = False
Else
Startfunc = True
Wait 1 ' 1 sekunde warten
Funktion-B
exit do
End If
Wait 3
Loop
End Sub
'dieser Timer läuft alle 5 sekunden
Private Sub Timer1_Timer()
CheckappExe
End Sub