System.ArgumentException wurde nicht behandelt.
  Message="Der Wert liegt außerhalb des erwarteten Bereichs."
  Source="Microsoft.DirectX.DirectDraw"

Dim BackBuffer As Surface '' BackBuffer
Dim FrontBuffer As Surface '' Primary surface
Dim DDDevice As Device '' DirectDraw Device
 
...
 
DDDevice = New Device '' Initialize the Object
 
'' Attach the window To the device
DDDevice.SetCooperativeLevel(Me, CooperativeLevelFlags.Normal)
 
...
 
BackBuffer = New Surface(New SurfaceDescription, DDDevice)

Public Function InitDX(ByRef Handle As Control) As Boolean
        Resolution = New Vector2(Handle.Width, Handle.Height)
        Try
            D3DDevice = New Device(0, _
                                   DeviceType.Hardware, _
                                   Handle, _
                                   CreateFlags.HardwareVertexProcessing, _
                                   PresentParams())
        Catch ex As Exception
            Debug.Print(ex.Message)
            Return False
        End Try
 
        D3DDevice.SetRenderState(RenderStates.Lighting, False)
        D3DDevice.SetRenderState(RenderStates.CullMode, Cull.None)
 
        Return True
    End Function
 
    Public Function PresentParams() As PresentParameters
        Dim pp As New PresentParameters
        pp.BackBufferFormat = Format.A8R8G8B8 '32 bit Backbuffer
        pp.SwapEffect = SwapEffect.Discard
        pp.Windowed = True 
        pp.BackBufferWidth = Resolution.X
        pp.BackBufferHeight = Resolution.Y
        pp.PresentationInterval = PresentInterval.Immediate 'Gerenderten Frame sofort anzeigen
        Return pp
    End Function