ActiveMovie控件，一运行就显示，system error &h80004005

ActiveMovie
我用vb调用ActiveMovie控件，一运行就显示，system error &h80004005.查了下原因，可能是初始化错误。

这是找到的VC++调用ActiveMovie的一段代码


初始化一些变量值：
CObjectPlayerDlg::CObjectPlayerDlg(CWnd* pParent /*=NULL*/)
  : CDialog(CObjectPlayerDlg::IDD, pParent)
{
  //{{AFX_DATA_INIT(CObjectPlayerDlg)
  //}}AFX_DATA_INIT
  // Note that LoadIcon does not require a subsequent DestroyIcon in Win32
  m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
  m_Enable = false;
  ISPause=false;
}


接下来是当点击“打开文件”时选择要播放的文件，该文件名会显示在播放列表中。原来显示的是全路经，我现在该位

只显示文件名了。
void CObjectPlayerDlg::OnBtnOpen() 
{
打开文件的一些代码
.......
.......
.......
}

我想问的是如何将上面的“初始化一些变量值”改为vb的声明呢？并且能在vb中成功调用ActiveMovie

等待高手出现。