Menanggapi permintaan dari salah satu tamu di blog saya, tentang bagaimana memainkan file dengan ekstensi WAV ( biasa digunakan oleh Windows untuk suara pada event – eventnya) di Visual Basic 6. Langsung saja ke potongan source codenya.

Kita akan menggunakan fungsi Windows API sndPlaySound dan kita deklarasikan seperti berikut ini:

Private Declare Function sndPlaySound Lib "winmm.dll" Alias
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags
 As Long) As Long
Private Const SND_ASYNC = &H1

Setelah itu kita gunakan dalam event Form_Load()

Private Sub Form_Load()
  Call sndPlaySound("D:\Sample\Splash.wav", SND_ASYNC)
End Sub

Anda bisa mengganti lokasi file WAV sesuai dengan kebutuhan anda.