请问利用VB编写播放AVI动画的控件?不是mci32.ocx,也不是Amination?

Question

我的回答：如何在正在运行的程序中调用*.avi文件 
http://www.csdn.net/expert/topic/656/656994.xml?temp=8.823794E-02
==================================================================1)用 VB 中 Animation 控件.
Private Sub Form_Load()
With Commondialog1
Commondialog1.Filename ="?"End WithWith Animation1
.Open Commondialog1.Filename
Animation1.Play
End With
'Add commondialog control and animation control onto your form2)用 API 函数:Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongPrivate Sub Form_Click()
Dim Ret As Long, A$, x As Integer, y As Integer
    x = 0
    y = 0
    A$ = "C:\Windows\Movie.avi" 'Change the path and filename
    Ret = mciSendString("stop movie", 0&, 128, 0)
    Ret = mciSendString("close movie", 0&, 128, 0)
    Ret = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Form1.hWnd & " style child", 0&, 128, 0)
    Ret = mciSendString("put movie window client at " & x & " " & y & " 0 0", 0&, 128, 0)
    Ret = mciSendString("play movie", 0&, 128, 0)
End SubPrivate Sub Form_Terminate()
Dim Ret As Long
    Ret = mciSendString("close all", 0&, 128, 0)
End Sub