IVideoWindow MessageDrain无法在VB中运行？

Question

我有一个VB应用程序，我在其中使用QuartzTypeLib显示2个视频文件。 现在我正在尝试处理每个视频上的点击事件和双击事件。

IVideoWindow的声明是：

Public videowindow(0 To 1) As QuartzTypeLib.IVideoWindow

我设置了所有者和messagedrain就像这样：

 For i = 0 To 1


            videowindow(i).Owner = videolist(i).Handle.ToInt32
            videowindow(i).MessageDrain = videolist(i).Handle.ToInt32

  Next i

videolist是一个面板列表。

我为videolist(0)和videolist(1)创建了点击事件，但事件无法正常工作（单击视频时没有任何反应）。在处理IVideoWindow事件之前是否还需要执行一些其他步骤？

我做错了什么？