Private Sub ShockwaveFlash1_OnReadyStateChange(newState As Long)
Shockwave.Movie = "0729_141415"
Shockwave.play
End Sub

Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal newState As Long)
WindowsMediaPlayer1.FileName = "突然的自我"
WindowsMediaPlayer1.play
End Sub
还要什么调节吗？我怎么弄不出来呢！

WindowsMediaPlayer1.FileName = "突然的自我"

你的文件名有没有扩展名?有的话要写上。

我不知道怎么找　扩展名　　都是下载的音乐

打开资源管理器，点"工具"->"文件夹选项"->点"查看"选项卡->在"高级设置"中滚动列表，去掉"隐藏已知文件类型的扩展名"前面的勾->确定。然后再到你下载的那个文件的位置，看看你的文件是什么扩展名，在那条语句后面加上。

是否对控件的属性进行设置这个我不明白．