'************************************************************
'Copyright(c) 2007 長沙南方職業(yè)學(xué)院 信息系 軟件2-061班
'All rights reserved
'
'程序名稱：學(xué)校基本信息管理系統(tǒng)
'
'作者(原)：易湘陵
'完成日期：2007-11-17
'作者(改)：
'修改日期：
'************************************************************
Public Class ClassPlayMusic

    '調(diào)用動態(tài)鏈接庫winmm.dll播放聲音
    Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer

    Public Sub PlayMusic()
        '登錄成功播放聲音
        PlaySound(Application.StartupPath & "\Sound\login.wav", Nothing, Nothing)
    End Sub

End Class