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)