Playsound(FileName)

Executa um arquivo de som cujo caminho e nome estão indicados no parâmetro FileName. O arquivo deve ter as seguintes especificações:

•Deve estar no formato de som do Windows, com a extensão .wav

•Se o arquivo estiver no projeto, adicionado através do comando Inserir recurso, o nome do arquivo deve estar entre colchetes

•Se foi criada uma pasta no projeto e o arquivo foi adicionado através do comando Inserir recurso, o caminho deve ser especificado entre aspas, como por exemplo "c:\som\ding.wav". Se o arquivo estiver no diretório local, o nome não precisa de aspas, apenas o caminho, como por exemplo c:\som\ding.wav

Exemplo:

Sub TelaInicial_OnAlarm()
  ' Se existir um alarme ativo, executa um som de alerta.
  ' Quando o alarme é reconhecido, o som para.
  Set Alarme = Application._
    GetObject("ConfigAlarmes1.Area1.FonteAlarme1")
    If Alarme.ActiveNACKAlarms = True Then
      Application.PlaySound("[ringin.wav]")
  End If
End Sub