内容:

    Protected Sub Button1_Click(ByVal sender As Object, 
ByVal e As System.EventArgs) 

        AxMMControl1.From = 8815 '从3000毫秒开始 

        AxMMControl1.To =15624 '从6000毫秒结束 

        AxMMControl1.Command = "play" '播放 

    End Sub 

     

    Protected Sub Button3_Click(ByVal sender As Object, 
ByVal e As System.EventArgs) 

        Me.Dispose() '调用dispose退出程序，释放占用的资源 

    End Sub 

    

    Protected Sub Form1_Click(ByVal sender As Object, ByVal 
e As System.EventArgs) 

        

    End Sub 

     

    Protected Sub Button2_Click(ByVal sender As Object, 
ByVal e As System.EventArgs) 

        AxMMControl1.From = 0 '从 0毫秒开始 

        AxMMControl1.To = 8815 '从3000毫秒结束 

        AxMMControl1.Command = "play" '播放 

    End Sub 

    

    Protected Sub AxMMControl1_OLEDragDrop(ByVal sender As 
Object, ByVal e As AxMCI.DmciEvents_OLEDragDropEvent) 

        

    End Sub 

    

    Public Sub me_load() 

        Me.BackColor = color.BlanchedAlmond '改变背景色为
BlanchedAlmond 

        Me.BorderStyle = FormBorderStyle.None '改变窗体边框为
none,没有标题栏 

        button1.Text = "播放上段" : button2.Text = "播放下
段" : button3.Text = "退出程序" 

        AxMMControl1.TimeFormat = 0 

        AxMMControl1.DeviceType = "waveaudio" '定义播放*.wav
格式 

        AxMMControl1.filename = 
System.WinForms.Application.StartUpPath & "\" 
& "muli.wav" '载入文件， 
System.WinForms.Application.StartUpPath为当前目录的意思 

        AxMMControl1.Command = "open" '打开载入的文件 

        AxMMControl1.Visible = False '使控件不可见，在后台工
作 

    End Sub 

End Class 

        至于从几毫秒开始到几毫秒结束，是把不同的声音文件使用如
acoustica.exe这样的声音编辑程序整理成一个文件，记住先使用
windows的录音机录下来，这样生成的文件较小,把一些杂音，空白都剪切
掉，这样就是很小了。