[RESOLVED] DirectX9 Window Resizing Problem

[Jacob Roman]

I'm having an issue with DirectX9 and VB.Net with resizing. Whenever the window is resized, the program locks up. Everything else is working fine though. If anyone has any suggestions on what I should do let me know. Thanks in advance. Here's my code I currently have:

Option Explicit On
Option Strict On
 
Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D
 
Public Class frmMain
 
    Private Const COLOR_DEPTH_16_BIT As Format = Direct3D.Format.R5G6B5
    Private Const COLOR_DEPTH_24_BIT As Format = Direct3D.Format.A8R8G8B8
    Private Const COLOR_DEPTH_32_BIT As Format = Direct3D.Format.X8R8G8B8
 
    Private Direct3D_Device As Direct3D.Device
 
    Private Fullscreen_Enabled As Boolean
    Private Running As Boolean = True
 
    Private Vertex_List As CustomVertex.TransformedColoredTextured() = New CustomVertex.TransformedColoredTextured(0 To 3) {} 'create an array of vertices
    Private Texture As Direct3D.Texture
 
    Private Function Create_TLVertex(ByVal X As Single, ByVal Y As Single, ByVal Z As Single, ByVal RHW As Single, ByVal Color As Integer, ByVal TU As Integer, ByVal TV As Integer) As CustomVertex.TransformedColoredTextured
 
        Create_TLVertex.Position = New Vector4(X, Y, Z, 1)
        Create_TLVertex.Rhw = RHW
        Create_TLVertex.Color = Color
        Create_TLVertex.Tu = TU
        Create_TLVertex.Tv = TV
 
    End Function
 
    Private Sub DirectX9_Initialize()
 
        Dim Display_Mode As Direct3D.DisplayMode
        Dim Direct3D_Window As PresentParameters = New PresentParameters
 
        If Fullscreen_Enabled = True Then
            Display_Mode.Width = 800
            Display_Mode.Height = 600
            Display_Mode.Format = COLOR_DEPTH_16_BIT
            'Check to see if fullscreen mode is supported before you use it.
            If Direct3D.Manager.CheckDeviceType(0, Direct3D.DeviceType.Hardware, Display_Mode.Format, Display_Mode.Format, False) Then
                ' Perfect, this is valid
                Direct3D_Window.Windowed = False
                Direct3D_Window.BackBufferCount = 1
                Direct3D_Window.BackBufferWidth = Display_Mode.Width
                Direct3D_Window.BackBufferHeight = Display_Mode.Height
            Else
                MessageBox.Show("Your video card doesn't support this screen resolution.", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Else
            Direct3D_Window.Windowed = True
        End If
 
        Direct3D_Window.SwapEffect = SwapEffect.Copy
        Direct3D_Window.BackBufferFormat = Display_Mode.Format
 
        'Create our device
        Direct3D_Device = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Me.Handle, CreateFlags.SoftwareVertexProcessing, Direct3D_Window)
 
    End Sub
 
    Private Sub Create_Polygon()
 
        Vertex_List(0) = Create_TLVertex(0, 0, 0, 1, System.Drawing.Color.FromArgb(255, 255, 255, 255).ToArgb, 0, 0)
        Vertex_List(1) = Create_TLVertex(50, 0, 0, 1, System.Drawing.Color.FromArgb(255, 255, 255, 255).ToArgb, 1, 0)
        Vertex_List(2) = Create_TLVertex(0, 50, 0, 1, System.Drawing.Color.FromArgb(255, 255, 255, 255).ToArgb, 0, 1)
        Vertex_List(3) = Create_TLVertex(50, 50, 0, 1, System.Drawing.Color.FromArgb(255, 255, 255, 255).ToArgb, 1, 1)
 
    End Sub
 
    Private Sub Draw_Polygon()
 
        Direct3D_Device.VertexFormat = CustomVertex.TransformedColored.Format
        Direct3D_Device.DrawUserPrimitives(PrimitiveType.TriangleStrip, 2, Vertex_List)
 
    End Sub
 
    Private Sub Game_Loop()
 
        Do While Running = True
            Direct3D_Device.Clear(ClearFlags.Target, Color.Black, 1.0, 0)
            Direct3D_Device.BeginScene()
            'Rendering code goes here.
            Create_Polygon()
            Draw_Polygon()
            Direct3D_Device.EndScene()
            Direct3D_Device.Present()
            Application.DoEvents()
        Loop
 
    End Sub
 
    Private Sub Main()
 
        If MessageBox.Show("Click Yes to go to full screen (Recommended)", "", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
            Fullscreen_Enabled = True
        End If
 
        With Me
            .Show()
            .SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True) 'Do not draw forms background
            .Text = "DirectX Tutorial"
            If Fullscreen_Enabled = True Then .FormBorderStyle = Windows.Forms.FormBorderStyle.None
        End With
 
        DirectX9_Initialize()
 
    End Sub
 
    Private Sub Shutdown()
 
        Running = False
        Direct3D_Device = Nothing
        Application.Exit()
 
    End Sub
 
    Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
 
        If e.KeyCode = Keys.Escape Then Shutdown()
 
    End Sub
 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Main()
 
    End Sub
 
    Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
 
        Shutdown()
 
    End Sub
 
    Private Sub frmMain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        Game_Loop()
 
    End Sub
End Class