DirectX Fenster schließen -> Objektverweis Fehler

[Phill]

Hallo,
ich probiere seit kurzem mit DirectX herum.
Nun habe ich es geschafft ein Fenster zu erstellen, worin die Aktuelle Zeit als 2D Text angezeigt wird.
Jedoch, sobald man das Programm schließt kommt folgende Fehlermeldung:
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Dies zeigt er auf Zeile 30:

karte.Clear(ClearFlags.Target, Color.Black, 0.0F, 0)

Hier dazu der QuellCode:

Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D
Imports System.Drawing.Font

Public Class Form1
' System Variablen
' ------------------------------------------
Private karte As Device
Private present As PresentParameters
Private bRunning As Boolean
Private Test As Direct3D.Font
' ------------------------------------------

' Öffentliche Funktionen
Public Function Initialisieren() As Boolean
    present = New PresentParameters
    With present
        .Windowed = True
        .SwapEffect = SwapEffect.Discard
        .EnableAutoDepthStencil = True
        .AutoDepthStencilFormat = DepthFormat.D16
    End With

    karte = New Direct3D.Device(0, DeviceType.Hardware, Me, CreateFlags.SoftwareVertexProcessing, present)

    Return True
End Function

Public Sub Render()
    karte.Clear(ClearFlags.Target, Color.Black, 0.0F, 0)
    karte.BeginScene()
    ' Hier kommt alles rein was dargestellt werden soll

    Test.DrawText(Nothing, TimeString, 50, 50, Color.Green)

    karte.EndScene()
    karte.Present()
End Sub

' Hier kommt die Hauptschleife rein
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.Show()
    bRunning = Initialisieren()
    Test = New Direct3D.Font(karte, New Drawing.Font("Courier New", 13, FontStyle.Bold))
    Do While (bRunning = True)
        Application.DoEvents()
        Render()
    Loop
    karte = Nothing
    present = Nothing
    Me.Close()
    Me.Dispose()
End Sub

End Class

Zu Erkärung des Codes.
In der Form_Load Aktion wird die Hardware initialisiert.
Im nächsten Schritt verwende ich die Hauptschleife, wie es auch bei einem
Spiel nötig ist. In dieser Schleife benutzer ich die Sub Render(), dort steht alles drinne was angezeigt werden soll.

Woran kann das genau liegen? Ich bin wahrscheinlich gerade sehr blind ...

mfg Phill

edit: Solch ein ähnlicher Beitrag steht auch in einem anderen Forum allerdings ohne Antwort

[iF_]

Habe von der obigen Sprache keine Ahnung, aber was wäre wenn Du karte und present erst nach dem Disposen/Closen nullstellst?