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

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

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

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

谢谢!!!