DirectX 7.0终於支援VB了，让我们这些VB的爱好者也能享受到DirectX带来的便利，现在我在这里提出使用DirectDraw的心得。使用DirectDraw时可以不用安装DirectX7.0的SDK，只要确定有装DirectX7.0就可以了。

现在我们实际来使用DirectDraw：
在“工程(Project)”里点选“设定引用项目”，来引用DirectX物件。
接著将“DirectX 7 for Visual Basic Type Library”的那一行打勾，就可以开始使用DirectX了。

我们首先得建立DirectDraw物件，先宣告一个Direct物件和一个DirectDraw物件：
Dim objDX As New DirectX7
Dim objDD As DirectDraw7

接下来是使用DirectDrawCreate函式来建立DirectDraw物件：
Set objDD = objDX.DirectDrawCreate("")

然后必须设定是视窗模式还是全屏幕模式：
Call objDD.SetCooperativeLevel(Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_ALLOWMODEX Or DDSCL_EXCLUSIVE)
第一个参数是设定DirectDraw的视窗是那一个，填入视窗的Handle代码而后面的参数是设定具备的能力，可以不止一个，使用Or组合起来。
DDSCL_FULLSCREEN 使用全屏幕(必须和DDSCL_EXCLUSIVE一起用)
DDSCL_ALLOWMODEX 使用Modex模式
DDSCL_EXCLUSIVE 使用独占模式
DDSCL_NORMAL 使用Windows的程式视窗
DDSCL_NOWINDOWCHANGES 禁止改变视窗大小

今天就先讲到这边，Direct实在很麻烦，一次不要太多比较好，下次就从建立Surface开始。