如何用VB检测某应用程序数据变动后会播放声音？

新建form1,添加text1
粘贴以下代码
'下面是API声明.如果用vb6精简版，可能没有wmp控件，那就只能用API。
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Dim WaveName As String
Private Sub PlayAudio()
'依次用两种方式播放
s = PlaySound(WaveName, &H1, &H20000)
WindowsMediaPlayer1.URL = WaveName
End Sub

Private Sub Form_Load()
'声音文件放在程序路径
WaveName = App.Path & "\改成你的声音文件名.wav"
Text1.Text = "1"
End Sub

Private Sub Text1_Change()
If Text1.Text = "2" Then Call PlayAudio
End Sub
当输入“2”的时候，就会听到声音了。
本示例用了API和WMP控件两种方式播放声音。