小吳 VBQA 程式設計討論

以下是書中的範例,在win下可正常show圖
但如在別的全螢幕程式中(如game) .
就會在Set objDDSPrimary = objDD.CreateSurface(ddsd2)
這一行出現-2005532447 AUTOMATION 錯誤 的錯誤訊息
我在線上msdn已有找過..但可能搜尋技術不好..找不到解決方法.
請各位幫幫我好嗎?

Set objDD = objDX.DirectDrawCreate("")
Call objDD.SetCooperativeLevel(Me.hwnd, DDSCL_NORMAL)
　　ddsd1.lFlags = DDSD_CAPS
　　ddsd1.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
　　Set objDDSOff = objDD.CreateSurfaceFromFile("E:\ukyowin2.bmp", ddsd1)
　　ddsd2.lFlags = DDSD_CAPS

ddsd2.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
　　Set objDDSPrimary = objDD.CreateSurface(ddsd2)

r1.Left = 0
　　r1.Top = 0
　　r1.Right = 640
　　r1.Bottom = 480
　　objDDSPrimary.Blt r1, objDDSOff, r1, DDBLTFAST_WAIT
　　DoEvents