Вывод текста на DirectX - VB

Option Explicit
 
Dim DX As New DirectX8
Dim D3D As Direct3D8
Dim D3DX As D3DX8
Dim D3DDevice As Direct3DDevice8
Dim GameFont As D3DXFont
 
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
 
Private Sub Form_KeyPress(KeyAscii As Integer)
Call ShowCursor(True)
CleanUp
End
End Sub
 
Private Sub Form_Load()
Me.Show
If Not InitD3d(Form1.hWnd) Then
   MsgBox "ÍåâîçìîæГ*Г® ГЁГ*èöèГ*ëèçèðîâГ*ГІГј Direct3d."
   End
End If
Timer1.Enabled = True
End Sub
 
Public Function InitD3d(hWnd As Long) As Boolean
On Local Error Resume Next
 
Set D3D = DX.Direct3DCreate()
 
Dim Mode As D3DDISPLAYMODE
D3D.GetAdapterDisplayMode D3DADAPTER_DEFAULT, Mode
 
Dim d3dpp As D3DPRESENT_PARAMETERS
d3dpp.Windowed = False
d3dpp.SwapEffect = D3DSWAPEFFECT_COPY_VSYNC
d3dpp.BackBufferFormat = Mode.Format
d3dpp.BackBufferCount = 1
d3dpp.BackBufferHeight = Mode.Height
d3dpp.BackBufferWidth = Mode.Width
d3dpp.EnableAutoDepthStencil = 1
d3dpp.AutoDepthStencilFormat = D3DFMT_D16
 
Set D3DDevice = D3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, hWnd, _
                                     D3DCREATE_SOFTWARE_VERTEXPROCESSING, d3dpp)
If D3DDevice Is Nothing Then Exit Function
 
D3DDevice.SetRenderState D3DRS_ZENABLE, 1
 
InitD3d = True
End Function
 
Public Sub InitGameFont()
Dim MyFont As IFont
Set MyFont = New StdFont
MyFont.Name = "Arial cir"
MyFont.Size = 15
MyFont.Bold = True
Set GameFont = D3DX.CreateFont(D3DDevice, MyFont.hFont)
End Sub
 
Public Sub DrawText(sString As String, tX As Long, tY As Long)
Dim rcText As RECT
rcText.Left = tX
rcText.Top = tY
 
GameFont.DrawTextW sString, Len(sString), rcText, 0, &HFFFFFFFF
End Sub
 
Public Sub Render()
D3DDevice.Clear 0, ByVal 0, D3DCLEAR_TARGET, &HFF&, 1#, 0
D3DDevice.BeginScene
 
GameFont.Begin
DrawText "ÔÛÂÀ!!!", 500, 500
GameFont.End
 
D3DDevice.EndScene
D3DDevice.Present ByVal 0, ByVal 0, 0, ByVal 0
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
CleanUp
End Sub
 
Private Sub Timer1_Timer()
Render
End Sub
 
Public Sub CleanUp()
Set DX = Nothing
Set D3D = Nothing
Set D3DX = Nothing
Set GameFont = Nothing
End Sub