VB6应用程序参考Windows 7 x64上的WMP

我已经帮助开发了一个程序,可以让游戏玩家管理他们的音乐等等,而全屏游戏是开放的。之前我在表单上有一个WMP控件的隐形副本,并且只是操纵该副本以产生所需的效果,但现在我收到用户的请求以删除WMP控件,以便他们可以将软件放在他们的专用服务器上。我的问题是如何通过删除控件来维护WMP支持,而是添加对msdxm.ocx或wmp.dll(或两者)的引用并在运行时创建WMP对象? 我正在处理98 - W7的系统。在参考中检查了wmp.dll和msdxm.ocx。 我已经尝试过了:
Dim WMP as New WindowsMediaPlayer '(invalid use of Keyword New)

Dim WMP as WindowsMediaPlayer 
Set WMP = CreateObject("WMPlayer.OCX.7") '(failed to create WMP object)
这些是谷歌搜索4小时后返回的两个最多的搜索结果,所以任何帮助都表示赞赏。从我从W11的v11 +中发现的,我们一起停止支持VB6,任何人都可以确认这一点,如果是这样,让我知道一个解决方法? 沮丧但欣赏, -Austin     
已邀请:
尝试这样的事情
Private Sub Form_Load()
    Dim oWMP As Object
    Set oWMP = Controls.Add("WMPlayer.OCX", "wmpPlayer1")
    oWMP.Move 0, 0, ScaleWidth, ScaleHeight
    oWMP.Visible = True
End Sub
    

要回复问题请先登录注册