private sub button1_click(byval sender as system.object, 
　　byval e as system.eventargs) handles button1.click
        打开和关闭所有光驱仓门
        dim i
        dim k = axwindowsmediaplayer1.cdromcollection.count()
        if k > 1 then
            for i = 0 to k - 1
                axwindowsmediaplayer1.cdromcollection.item(i).eject()
            next
        else
            axwindowsmediaplayer1.cdromcollection.item(0).eject()
        end if
    end sub
 private sub form1_load(byval sender as object,
  　　  byval e as system.eventargs) handles mybase.load
        获得计算机中有多少个光驱和它们的盘符
        dim i
        dim cdlabel as string
        dim k = axwindowsmediaplayer1.cdromcollection.count()
        if k > 1 then
            for i = 0 to k - 1
                cdlabel = cdlabel & 
		　　axwindowsmediaplayer1.cdromcollection.item(i).drivespecifier()
                label1.text = "这台计算机共有 " & k & 
		　　" 台cd-rom" & "分别是" & cdlabel & " "
            next
        else
            cdlabel = cdlabel + 
	    　　axwindowsmediaplayer1.cdromcollection.item(0).drivespecifier()
            label1.text = "这台计算机共有 " & k & 
	    　　" 台cd-rom" & "分别是" & cdlabel & " "
        end if
    end sub
    private sub button2_click(byval sender as system.object,
    　　byval e as system.eventargs) handles button2.click
        dim strfilename as string
        dim openfiledialog1 as system.windows.forms.openfiledialog =
	　　new system.windows.forms.openfiledialog()
        openfiledialog1.showdialog()
        strfilename = openfiledialog1.filename
        axwindowsmediaplayer1.url = strfilename
    end sub
    private sub button3_click(byval sender as system.object,
    　　　　byval e as system.eventargs) handles button3.click
        axwindowsmediaplayer1.controls.play()播放
    end sub
    private sub button5_click(byval sender as system.object,
    　　　　byval e as system.eventargs) handles button5.click
        axwindowsmediaplayer1.controls.stop()停止
    end sub
private sub axwindowsmediaplayer1_playstatechange(byval sender as object,
　byval e as axmicrosoft.mediaplayer.interop._wmpocxevents_playstatechangeevent) handles 
　　　axwindowsmediaplayer1.playstatechange
表示播放媒体发生变化时触发此事件
        label4.text = "此文件播放总时间是" &
	　　　　axwindowsmediaplayer1.currentmedia.durationstring
        timer1.enabled = true
        label5.text = "标题" & 
	　　　axwindowsmediaplayer1.currentmedia.getiteminfobytype("title", "", 0)
        label6.text = "作者" & 
	　　　axwindowsmediaplayer1.currentmedia.getiteminfobytype("author", "", 0)
           end sub
    private sub button4_click(byval sender as system.object,
    　　　　byval e as system.eventargs) handles button4.click
        axwindowsmediaplayer1.controls.pause()暂停
    end sub
    private sub timer1_tick(byval sender as system.object,
    　　　　byval e as system.eventargs) handles timer1.tick
        label2.text = "已经播放时间" &
	　　cint(axwindowsmediaplayer1.controls.currentposition) & "秒"
    end sub
    private sub trackbar1_scroll(byval sender as system.object,
    　　　　byval e as system.eventargs) handles trackbar1.scroll
        axwindowsmediaplayer1.settings.volume = trackbar1.value调整输出音量
end sub