Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　    Private AUTO Declare Function PlaySound lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
        Const SND_FILENAME As Integer = &H20000
        Const SND_ALIAS As Integer = &H10000
        Const SND_SYNC As Integer = &H0
        Dim mstrfileName As String = "c:\test.wav"
        PlaySound(mstrfileName, 0, SND_FILENAME)
    End Sub
C:\OziExplorer\ozitest\Form1.vb(70): AUTO关键字作为标识符无效。
C:\OziExplorer\ozitest\Form1.vb(75): 名称“PlaySound”未声明。

图片可以点击放大看现场：

[此贴子已经被作者于2005-6-14 15:03:04编辑过]