Hola ya lo tenia visto como el exorcista en la web, te tiro una sugerencia
Private Sub Picture19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SCARE("3", False)
picScare.Visible = True
DoEvents
PlaySound App.Path & "\zombie.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
una es usar el Picture19 ya que es donde hay mas tencion y otra es poner un Doevents para que se muestre la imagen, sino sale el grito y después se muestra la imagen.
te iba a sugerir que se podría subir el volumen del sistema, pero creo que con window7 ya no se si se puede manejar el control total.
Saludos