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

Question

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