Ищу примеры работы с 2D в DirectX

'Установите DirectX SDK если еще не сделали этого
'В свойствах проекта подключаем ссылки на:
'Microsoft.DirectX  
'Microsoft.DirectX.Direct3D  
'Microsoft.DirectX.Direct3DX  
'Добавьте ссылку на сборку Microsoft.VisualC
'Устанавливаем активную платформу х86
'NET Fraimework 3,5
'В параметрах исклюений снимите галочку с LoaderLock
'----------------------------------------------------------------------
'Подключаем библиотеки DirectX
Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D
Public Class Form1
    'Графика DirectX:
    Dim WithEvents d3dev As Direct3D.Device 'Видео устройство. Объявить так для получения доступа к событиям устройства
    Dim d3dpp As New PresentParameters 'Параметры видеоустройства
    Dim bbwihe As Point = New Point(800, 600) 'Размеры  BackBuffer 
    Dim sprit As Sprite 'Спрайт 
    Dim textur1 As Texture 'Текстура 
    Dim d3dfont1 As Font 'Шрифт 
    Dim bkgcolor As Color = Color.Black ' Цвет очистки BackBuffer
    Dim DeviceLost As EventHandler
    '--------------------------------------------------------------------
    'Переменные программы
    Dim Start_1 As Boolean = True
    Dim Full_Scr As Boolean = True
    Dim prog_run As Boolean = True
    Dim dr As Boolean = False
    Dim m As Integer
    Dim displayWiHe As Point
    Dim Display_Mode As DisplayMode
    Dim imi As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Width = bbwihe.X
        Height = bbwihe.Y
        Show()
        displayWiHe.X = Display_Mode.Width
        displayWiHe.Y = Display_Mode.Height
    End Sub
    Private Sub Form1_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Exit_prog()
    End Sub
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        If Start_1 Then Start_1 = False : Run_form()
    End Sub
    Private Sub Run_form() 'Основной цикл программы
        Init_Dd()
        load_texture()
        Do While prog_run
            Graf_paint()
            Threading.Thread.Sleep(1)
            Application.DoEvents()
        Loop
    End Sub
    Private Sub Init_Dd() ' Инициализация Direct3D.Device  
        d3dpp.DeviceWindow = Me
        d3dpp.BackBufferCount = 1
        d3dpp.BackBufferFormat = Format.X8R8G8B8
        If Full_Scr = False Then 'Это условие нужно для того, чтобы правильно отображалось в оконном режиме
            d3dpp.BackBufferWidth = bbwihe.X
            d3dpp.BackBufferHeight = bbwihe.Y
        End If
        d3dpp.SwapEffect = SwapEffect.Discard
        d3dpp.PresentationInterval = PresentInterval.One
        d3dpp.Windowed = Full_Scr
        d3dpp.EnableAutoDepthStencil = True
        d3dpp.AutoDepthStencilFormat = DepthFormat.D24S8
        d3dev = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Handle, CreateFlags.MixedVertexProcessing, d3dpp)
        dr = False
    End Sub
    Private Sub load_texture() 'Загрузка текстуры шрифта инициализация спрайта
        sprit = New Sprite(d3dev)
        d3dfont1 = New Font(d3dev, New System.Drawing.Font("Segoe Print", 22, FontStyle.Regular, GraphicsUnit.Pixel))
        'Не забудьте указать путь к изображению для текстуры
        textur1 = TextureLoader.FromFile(d3dev, "1.png", 0, 0, 0, Usage.None, Format.Unknown, Pool.Default, Filter.None, Filter.None, 0)
    End Sub
    Private Sub Graf_paint() 'Выводим графику
        d3dev.Clear(ClearFlags.Target Or ClearFlags.ZBuffer, bkgcolor, 1, 0)
        d3dev.BeginScene()
        sprit.Begin(SpriteFlags.SortTexture Or SpriteFlags.AlphaBlend)
        sprit.Draw(textur1, Vector3.Empty, New Vector3(100, 100, 0), Color.White.ToArgb())
        sprit.End()
        d3dfont1.DrawText(Nothing, "Для переключения режима нажмите пробел", 50, 300, Color.Green)
        If Full_Scr = False Then
            d3dfont1.DrawText(Nothing, "Полноэкранный режим", 200, 350, Color.Blue)
        Else
            d3dfont1.DrawText(Nothing, "Оконный режим", 250, 350, Color.Blue)
        End If
        d3dfont1.DrawText(Nothing, "Для выхода из программы нажмите Esc", 50, 400, Color.Red)
        d3dev.EndScene()
        d3dev.Present()
    End Sub
    Private Sub Pere_init()
        d3dev.Dispose()
        textur1.Dispose()
        Run_form()
    End Sub
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Space Then
            If Full_Scr = True Then
                Full_Scr = False
                FormBorderStyle = FormBorderStyle.FixedSingle
                Pere_init()
            Else
                Full_Scr = True
                Display_Mode.Width = displayWiHe.X
                Display_Mode.Height = displayWiHe.Y
                FormBorderStyle = FormBorderStyle.Sizable
                Pere_init()
            End If
        End If
        If e.KeyCode = Keys.Escape Then
            Exit_prog()
        End If
    End Sub
    'Событие потери устройства Direct3D.Device
    Private Sub Device_Lost(sender As Object, e As EventArgs) Handles d3dev.DeviceLost
        If dr = False Then dr = True : Pause_dev()
    End Sub
    Private Sub Pause_dev() 'Ожидаем готовности устройства
        d3dev.CheckCooperativeLevel(imi)
        If imi <> 0 Then
gg:
            Application.DoEvents()
            d3dev.CheckCooperativeLevel(imi)
            If imi = -2005530520 Then GoTo gg
            If imi <> -2005530520 Then Pere_init()
            d3dev.Reset()
            GoTo gg
        End If
    End Sub
    Private Sub Exit_prog()
        prog_run = False
        d3dev.Dispose()
        Application.Exit()
        End
    End Sub
End Class