锘??xml version="1.0" encoding="utf-8" standalone="yes"?>
]]>
Private Sub Command1_Click()
2
3
On Error GoTo 1
4
AppActivate "MPEG4 Media Player Version 1.3.0"
5
Exit Sub
6
1: Shell "D:\tmSDK\DemoPlay_Win_1.3.0\Prog\MP4Player.exe " & "C:\VideoFile.mpg", vbNormalFocus
7
8
End Sub
9
]]>