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

bUat kawaN2..kaLo ingin pRograMnya meNJadi Lebih uNik deNgan adanYa eFFect suaRa..neH,TeRRen.Jr ada sCriptnya...

PerTama..cOpy Paste Coding iNi di ModULe :

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Public Sub Sound()
Dim i As Integer
For i = 700 To 1000 Step 100
Beep i, 40
Next i
End Sub

keMudian,kaLian tinggaL mengguNakanya di Form yaNg kaLian inginkaN...
cOntoh :

Private Sub CmdTambah_Click()
sound
end Sub

pAsti akaN mengeLuarkan seBuah eFFect Suara..
siLahkan MencoBA...