om de kan va till nogon hjälp så ser hella sidan ut så här:

Imports Microsoft.DirectX

Public Class Form1

Dim device As Microsoft.DirectX.Direct3D.Device

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Size = (New Size(800, 600))

Me.Text = "DirectX Initialization Demo"

Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True)

REM set up the presentation parameters

Dim params As New Direct3D.PresentParameters

params.Windowed = True

params.SwapEffect = Direct3D.SwapEffect.Discard

params.AutoDepthStencilFormat = Direct3D.DepthFormat.D16

params.EnableAutoDepthStencil = True

params.BackBufferCount = 1

params.BackBufferWidth = 800

params.BackBufferHeight = 600

REM check video card capabilities

Dim adapterNumber As Integer = Direct3D.Manager.Adapters.Default.Adapter

Dim flags As Direct3D.CreateFlags

flags = Direct3D.CreateFlags.MixedVertexProcessing

flags += Direct3D.CreateFlags.PureDevice

Dim caps As Direct3D.Caps

caps = Direct3D.Manager.GetDeviceCaps(adapterNumber, Direct3D.DeviceType.Hardware)

If caps.DeviceCaps.SupportsHardwareTransformAndLight = False Or caps.DeviceCaps.SupportsPureDevice = False Then

MessageBox.Show("Your video card is obsolete.", "hardware Problem")

End If

REM create the Direct3D device

device = New Direct3D.Device(adapterNumber, Direct3D.DeviceType.Hardware, Me, flags, params)

End Sub

Protected Overrides Sub onpaint(ByVal e As PaintEventArgs)

device.Clear(Direct3D.ClearFlags.Target + Direct3D.ClearFlags.ZBuffer, Color.Blue, 1.0, 0)

device.BeginScene()

device.EndScene()

device.Present()

Me.Invalidate()

End Sub

End Class

Felet:

A first chance exception of type 'Microsoft.DirectX.Direct3D.InvalidCallException' occurred in Microsoft.DirectX.Direct3D.dll