. . : : | TeRRen.Jr | : : . .

Nah..kaLo yaNg ini uNtuk memAinkan seBuah LAgi saaT Form kaLian di JaLankan..

caRanya..sePerti biasa..cOpy Paste aJa Coding di bawaH iNi di mOduLe :

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

keMudian,di Form_Load tAro coDing iNi...

Dim tes As String
tes = sndPlaySound(App.Path + "\test.wav", (&H1 Or &H8))

ingAt...Lagunya hArus exteNsi *.wav yah...
kaLo contoh diaTas..nama Lagunya adaLah test.wav dan beRada di FoLder yaNg kiTa bUAt..

kaLo ga JaLAn,,kasih cOmmentar aJa di Shoutmix di saMping..
seLamat menCoba..