Koding VB menambahkan efek suara ketika form muncul.

' Deskription : menambahkan Epek suara ketika form muncul
'Penulis : vatensquare.blogspot.com
'Persiapan : 1.buat 1 buah project baru degan 1 form
'2. siapkan file yang berexstensi wap simpan di folder yang sama dengan projetcnya
'3. copykan koding berikut ke editor form tersebut
'----------------------------------------------
'----------------------------------------------
Private Declare Function sndPlaySound _
Lib "winmm" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Public Sub PlaySound(NamaFile As String)
sndPlaySound NamaFile, 1
End Sub


Private Sub Form_Load()
PlaySound App.Path & "\sound.wav"

End Sub