Help me.vân đề về vb6.0

[hieponline]

Mình muốn tạo một button hoặc menu mà khi ta click vào đó nó se kêu lên như chuông báo động( có nghĩa là nó phát ra tiếng huúuuuu thật dài) vậy chứ không phải kêu beep.
Và một button nữa khi click vào thì tắt tiếng huúuuuuuuu trên.
Không biết có ai giúp mình không ??thanks
===========================================

[lengoctuth2010]

Thiết kế : 2 CommanButton

Code :

' Trong Form
Private 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


' Bật tiếng húúúúú
Private Sub Command1_Click()

Dim returnstring As String

Dim FileName As String

returnstring = Space(127)

FileName = App.Path & "\MyMovie.avi"
' MyMovie.avi là file tiếng húúúúú của bạn dưới dạng *.AVI

erg = mciSendString("open " & Chr$(34) & FileName & _

Chr$(34) & " type avivideo alias video", returnstring, 127, 0)

erg = mciSendString("set video time format ms", returnstring, 127, 0)

erg = mciSendString("play video from 0", returnstring, 127, 0)

End Sub


' Tắt tiếng húúúúú
Private Sub Command2_Click()
erg = mciSendString("close video", returnstring, 127, 0)
End Sub


Chúc bạn vui với tiếng húúúúú ....