Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D
 
Public Class Form1
    Dim dev As Device
 
    Private Sub init() Handles Me.Load
        Me.Show()
        Dim pp As New PresentParameters() With {.Windowed = True, .SwapEffect = _
          SwapEffect.Discard}
        dev = New Device(0, DeviceType.Hardware, Me, _
        CreateFlags.HardwareVertexProcessing, pp)
        Gameloop()
    End Sub
    Private Sub Gameloop()
        Do
            dev.Clear(ClearFlags.Target, Color.Blue, 1, 0)
            dev.BeginScene()
            dev.EndScene()
            dev.Present()
            My.Application.DoEvents()
        Loop
    End Sub
End Class