Visual Basic - autoplay

Option Explicit

Private Declare Function PlaySound Lib "winmm.dll" _

                Alias "PlaySoundA" (ByVal lpszName As String, _

                                    ByVal hModule As Long, _

                                    ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0        '(por defecto) Reproduce el sonido 'sincrónicamente

                            '.  Se interrumpe la ejecución de nuestro código hasta la finalización del sonido!!.

Const SND_ASYNC = &H1       ' Reproduce el sonido 'sincrónicamente'. El código continúa sin 

                            '   necesidad de que el sonido finalice.

Const SND_NODEFAULT = &H2   ' En caso no se encuntre el sonido determinado no reproduciría 

                            '   el sonido por defecto, es decir, no sonaría nada...

Const SND_LOOP = &H8        ' Se reproduce el sonido ininterrumpidamente hasta que se ejecute 

                            '   de nuevo la función.

Const SND_NOSTOP = &H10     ' El sonido no se para antes de reproducir el sonido especificado.

Const SND_APPLICATION = &H80

Const SND_ALIAS = &H10000

Const SND_ALIAS_ID = &H110000

Const SND_FILENAME As Long = &H20000

Const SND_MEMORY = &H4

Const SND_NOWAIT = &H2000

Const SND_PURGE = &H40

Const SND_RESOURCE = &H40004

Sub Beep()

    Call PlaySound("C:\Windows\Media\Tada.wav", SND_ASYNC, SND_ASYNC Or &H20000)

End Sub