很简单的代码，一运行就直接闪退
Private Sub Form_Load()
wmp.URL = App.Path & "\video\single5.mp4"
End Sub
版本：VB6.0
系统：win10
实在不行还有什么别的控件可以代替吗

顶

有个比较适合替代WMP的组件叫ActiveMovie，注意一下它不是控件、不是控件、不是控件。这个组件是需要用代码来调用的，首先在VB6菜单栏中找到“工程”→“引用”，然后勾选列表中的“ActiveMovie control type library”，然后写下此代码：
Option Explicit
Dim mp As New FilgraphManager
Private Sub Form_Load()
mp.RenderFile App.Path & "XXX文件.mp3" '加载文件
mp.Run ' 开始播放
End Sub

试试安装 VLC 然后使用它提供的控件。
https://www.videolan.org/