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 (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 (por exemplo, "c:\som\ding.wav"). Se o arquivo estiver no diretório local, o nome não precisa de aspas, apenas o caminho (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