Module Module1
    Public Direct3DDevice As Microsoft.DirectX.Direct3D.Device
 
    Public Function CreateDirect3DDevice _
    (ByVal handle As Form) As Boolean
        Try
            Dim presentParams As New Microsoft.DirectX.Direct3D.PresentParameters()
            presentParams.SwapEffect = Microsoft.DirectX.Direct3D.SwapEffect.Discard
            presentParams.Windowed = True
            Direct3DDevice = New Microsoft.DirectX.Direct3D.Device(0, Microsoft.DirectX.Direct3D.DeviceType.Hardware, handle, Microsoft.DirectX.Direct3D.CreateFlags.HardwareVertexProcessing, presentParams)
            Return True
        Catch ex As Microsoft.DirectX.DirectXException
            Return False
        End Try
    End Function
End Module

Public Class Form1
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Dim erg As Boolean
        erg = CreateDirect3DDevice(Me)
        Direct3DDevice.Clear(Microsoft.DirectX.Direct3D.ClearFlags.Target, Color.Blue, 1.0F, 0)
        Direct3DDevice.BeginScene()
        Direct3DDevice.EndScene()
        Direct3DDevice.Present()
    End Sub
End Class