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)

Imports Microsoft.DirectX
Imports Microsoft.DirectX.DirectDraw
 
Public Class frm_main
 
    Dim BackBuffer As Surface '' BackBuffer
    Dim FrontBuffer As Surface '' Primary surface
    Dim DDDevice As Device '' DirectDraw Device
    Dim frm_main_Clip As Clipper '' Clipper who tells the Object where To draw
 
    Private Sub frm_main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DDDevice = New Device() '' Initialize the Object
 
        '' Attach the window To the device
        DDDevice.SetCooperativeLevel(Me, CooperativeLevelFlags.Normal)
 
        Dim FrontDesc As New SurfaceDescription
        Dim FrontCaps As New SurfaceCaps
 
        FrontCaps.PrimarySurface = True
        FrontDesc.SurfaceCaps = FrontCaps
        '' Init FrontBuffer
        FrontBuffer = New Surface(FrontDesc, DDDevice)
        '' Init BackBuffer
        BackBuffer = New Surface(New SurfaceDescription, DDDevice)
 
        '' Init the clipper
        frm_main_Clip = New Clipper(DDDevice)
 
        frm_main_Clip.Window = Me
 
        FrontBuffer.Clipper = frm_main_Clip
 
    End Sub
End Class