Per eseguire un suono nel vostro programma fatto in VB6 basta incollare in un modulo il seguente codice: 

Option Explicit 
Declare Function PlaySound Lib "winmm" Alias "PlaySoundA" _ 
(ByVal szName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long 

Public Const SND_SYNC = &H0 
Public Const SND_ASYNC = &H1 
Public Const SND_FILENAME = &H20000 
Public Const SND_LOOP = &H8


Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerProc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

Per eseguire il suono basta invece scrivere la seguente riga di codice: 
PlaySound "PERCORSO" 0, SND_FILENAME Or SND_SYNC

Dove PERCORSO, è il percorso del file da eseguire.
Alcuni suoni che potrebbero servirvi si trovano nella cartella "C:/Windows/Media/".

Buon lavoro :)