求助！！自动化错误？？？

[骐骥1]

在调试一个VB程序是出现了这样的错误。
Dim DX As New DirectX7
Private Sub Form_Load()
Set d3drm = DX.Direct3DRMCreate
Set scene = d3drm.CreateFrame(Nothing)
Set world = d3drm.CreateFrame(scene)
求高手解释
实时错误'-2147467259(80004005)'
自动化错误
自动化错误（错误440）
求解。。。。。。。。。。。。。。。。。。。。。

[贝隆]

你是不是没有添加对DirectX7的引用？