Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
   Destination As Any, Source As Any, ByVal Length As Long)

Dim g_DX As New DirectX8
Dim g_D3D As Direct3D8
Dim g_D3DDevice As Direct3DDevice8

Private Type CUSTOMVERTEX
    X As Single         'x in screen space.
    Y As Single         'y in screen space.
    z As Single         'normalized z.
    nx As Single
    ny As Single
    nz As Single
    color As Long       'vertex [diffused] color.
End Type
Const VertexSizeInBytes = 28

Const D3DFVF_CUSTOMVERTEX = (D3DFVF_XYZ Or D3DFVF_NORMAL Or D3DFVF_DIFFUSE)

 P.S.Чтобы наступила смерть - необходима жизненная сила !!!  

Set g_D3D = g_DX.Direct3DCreate()