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