VB设计窗体里有一个WindowsMediaPlayer，和一个命令按钮单击命令按钮音乐播放，在单击一次音乐关闭

'放在按钮里.控件名为WindowsMediaPlayer1 Private Sub Command1_Click() If WindowsMediaPlayer1.playState 1 Then WindowsMediaPlayer1.controls.stop Else WindowsMediaPlayer1.url = "音乐的地址" WindowsMediaPlayer1.controls.play End If End Sub