[Help] D3D Tuts for choobs.

Imports Microsoft.DirectX
 Imports Microsoft.DirectX.Direct3D
 
 
 
 Public Class Form1
     Private device As Direct3D.Device
     Public Sub Initialize()
         Dim present As PresentParameters = New PresentParameters
         present.Windowed = True 'we?ll draw on a window
         present.SwapEffect = SwapEffect.Discard 'discuss later
         device = New Direct3D.Device(0, DeviceType.Hardware, Me, CreateFlags.SoftwareVertexProcessing, present)
     End Sub
 
     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True) 'Do not draw form?s background\
         Me.Height = 500
         Me.Width = 500
         Me.Text = "DirectX Tutorial using Visual Basic"
 
         Initialize()
     End Sub
 
     Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
         Dim vertices As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To 2) {} 'create an array of vertices
         vertices(0).Position = New Vector4(150, 100, 0, 1)
         vertices(0).Color = Color.Red.ToArgb 'encode color in Argb
         vertices(1).Position = New Vector4(Me.Width / 2 + 100, 100, 0, 1)
         vertices(1).Color = Color.Green.ToArgb
         vertices(2).Position = New Vector4(250, 300, 0, 1)
         vertices(2).Color = Color.Yellow.ToArgb
 
         device.Clear(ClearFlags.Target, Color.Black, 1.0, 0)
 
         device.BeginScene() 'all drawings after this line
         device.VertexFormat = CustomVertex.TransformedColored.Format
         device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices)
         device.EndScene() 'all drawings before this line
 
         device.Present()
         Me.Invalidate() 'redraw
     End Sub
 End Class