大致如下：
Sub PlaySound(filename)
Dim cmd As String
Call mciSendString("close MyFlc", 0, 0, 0) ' MyFlc 这个名称可依需要
来修改
cmd = "open " & filename & " alias MyFlc"
Call mciSendString(cmd, 0, 0, 0)
Call mciSendString("play MyFlc", 0, 0, 0)
End Sub
注：有些机器可能会因为没有安装 .flc 的驱动程序而无法播放，欲检查机器中是否安装有播放 .flc 的驱动程序， 可先利用 Windows 提供的媒体播放程序播放 .flc 文件看看。
如何将 .flc 动画档放在某一个 hWnd 之中播放？上一技巧， 会开启独立的窗口来播放 .flc 动画档， 如何将它放在某一个 Form 或 PictureBox 之中播放？假设我们想将 .flc 放在 Picture1 之中播放， 则必须将 open MCI 指令由原先
的：
"open " & filename & " alias MyFlc"
改成:
"open " & filename & " alias MyFlc parent " & Picture1.hWnd & " style "
& WS_CHILD
则 .flc 就会在 Picture1 之中播放。
注：WS_CHILD 等于 &H40000000。
文章来源于领测软件测试网 https://www.ltesting.net/
