Не отображается форма с DirectX

Imports Microsoft.DirectX
Imports Microsoft.DirectX.DirectInput
Imports Microsoft.DirectX.Direct3D
 
Public Class Form1
    Private device As Direct3D.Device = Nothing
    Public Function Init() As Boolean
        Try
            Dim presentparm As New PresentParameters
            presentparm.Windowed = True
            presentparm.SwapEffect = SwapEffect.Discard
            device = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Me, CreateFlags.SoftwareVertexProcessing, presentparm)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
    Private Sub Render()
        If device Is Nothing Then
            Return
        End If
        device.Clear(ClearFlags.Target, System.Drawing.Color.Blue, 1.0F, 0)
        device.BeginScene()
        device.EndScene()
        device.Present()
 
    End Sub
 
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        Render()
    End Sub
 
    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If Asc(e.KeyCode) = CInt(System.Windows.Forms.Keys.Escape) Then
            Me.Close()
 
        End If
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Init()
        Render()
        Application.DoEvents()
 
    End Sub
End Class

Init()

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Init()
        Render()
        Application.DoEvents()
 
    End Sub

'…
Private device As Direct3D.Device
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Init()
    Me.Show()
    Render()
End Sub
Public Function Init() As Boolean
    Try
        Dim presentparm As New PresentParameters
        presentparm.BackBufferCount = 1
        presentparm.BackBufferFormat = Direct3D.Manager.Adapters(0).CurrentDisplayMode.Format
        presentparm.BackBufferHeight = Me.Height
        presentparm.BackBufferWidth = Me.Width
        presentparm.Windowed = True
        presentparm.SwapEffect = SwapEffect.Discard
        device = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Me.Handle, CreateFlags.SoftwareVertexProcessing, presentparm)
        device.RenderState.CullMode = Cull.None
        Return True
    Catch ex As Exception
        MsgBox(ex.ToString)
        Return False
    End Try
End Function
'…