关于vb 播放rm文件

我做了一个程序，用来播放rm文件
大概的代码是：
Set RealAudio1 = Controls.Add("rmocx.RealPlayer G2 Control.1", "RealAudios", Me)
    With RealAudio1
        .Left = 0
        .Top = 0
        .Visible = True
        .Controls = "ImageWindow, Statusbar"
        .Source = MovieSource
        .DoPlay        hReal = FindWindowEx(Me.hWnd, 0&, "RealAudioCtrlWndClass", vbNullString)
        SetParent hReal, picMovie.hWnd
但是这种播放，当文件播放完毕后，就没有反应了，我的想法是，当文件播放完毕，就重新播放，是一种循环。但我没找到这种循环的选项。
我就想如果文件播放完毕，能够触发一个消息也行，我手动的doplay，但是不知道怎么得到这种消息。
有人做过吗？请指点