VB开发DirectDraw报自动化错误

[yangbowen1]

在VB中开发DirectDraw，出现如下错误：
代码：

Option Explicit
Public r, objDX As New DxVBLib.DirectX7, objDXD As DxVBLib.DirectDraw7

Sub Main()
CreateDXD
End Sub

Sub CreateDXD()
Set objDXD = objDX.DirectDrawCreate(objDX.CreateNewGuid)
End Sub

错误：
-2005532111(88760231)
自动化错误

[dbcontrols]

自动化错误

[孤独剑_LPZ]

直接这样声明试试

Dim dx As New DirectX7 'DirectX对象；
Dim dd As DirectDraw7 'DirectDraw对象；

...
set dd = dx.DirectDrawCreate("") '生成DirectDraw对象；
...