打开程序自动播放背景音乐

Private Sub Form_Load()
WindowsMediaPlayer1.URL = Dir(C:& "\音乐.mid")
End Sub

但播放完了,怎样重新再播放

我用Timer事件,但不会写,怎么判断音乐已经播放完,再重复播放
Private Sub Timer1_Timer()
..............................
.............................
End If

谢谢!!!

用timer判断?
那就在播放时启动Timer,间隔为500
然后判断当前播放位置和音乐总长度,当二者很接近时就重新播放

WMP控件的自定义那里可以设定播放次数