[Casimiro Notevi]

Cierto, aquí está el parámetro para saber si está corriendo:

Código SQL [-]
Private Sub Timer1_Timer()     
  Dim bRunning As Boolean      ' Beep if the screen saver is running.     
  SystemParametersInfo SPI_GETSCREENSAVERRUNNING, 0, bRunning, False     
  If bRunning Then         
    Beep     
  End If 
End Sub