程序代码：

CLEAR ALL 
Main()
CLEAR ALL 
RETURN 

PROCEDURE Main()
    LOCAL loForm
    loForm = CREATEOBJECT("C_Form")
    WITH loForm
        .Caption = "测试 - 卡拉OK点播机"
        .AutoCenter = .T.
        .Show
    ENDWITH 
    READ EVENTS
ENDPROC 

DEFINE CLASS C_Form AS Form

    ADD OBJECT MusicPlayer AS OleControl WITH OleClass = "WMPlayer.OCX.7", Width = 300, Height = 200
    
    PROCEDURE Arrange
        WITH ThisForm.MusicPlayer
            .Top = 10
            .Left = 10
        ENDWITH 
    ENDPROC 
    
    PROCEDURE Activate
        ThisForm.Arrange
        ThisForm.MusicPlayer.URL = "D:\音樂\Céline Dion\Original Album Classics\Misled.mp3"
        *ThisForm.MusicPlayer.URL = "d4eca0066381d9c4e673ba552daaedb4.mp4"
    ENDPROC 
    
    PROCEDURE Resize
        ThisForm.Arrange
    ENDPROC 
    
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC 
    
ENDDEFINE