'In general
Dim DX As New DirectX7
Dim DD As DirectDraw7
Dim DDPS As DirectDrawSurface7
Dim DDBS As DirectDrawSurface7
Dim DDPSD As DDSURFACEDESC2
Dim DDBSD As DDSURFACEDESC2
Dim DDCaps As DDSCAPS2
Dim Running As Boolean

Private Sub Form_Load()
    Set DD = DX.DirectDrawCreate("")
    frmMain.Show
    
    Call DD.SetCooperativeLevel(frmMain.hWnd, DDSCL_EXCLUSIVE Or DDSCL_FULLSCREEN Or DDSCL_ALLOWMODEX)
    Call DD.SetDisplayMode(1280, 1024, 32, 0, DDSDM_DEFAULT)
    
    With DDPSD
        .lFlags = DDSD_CAPS Or DDSD_BACKBUFFERCOUNT
        .ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE Or DDSCAPS_FLIP Or DDSCAPS_COMPLEX
        .lBackBufferCount = 1
    End With
    Set Primary = DD.CreateSurface(DDPSD)
    
    DDCaps.lCaps = DDSCAPS_BACKBUFFER
    Set Backbuffer = Primary.GetAttachedSurface(DDCaps)**
    Backbuffer.GetSurfaceDesc ddsd3
    
    frmMain.Show
    Running = True
    
    Do Until Running = False
        DoEvents
    Loop
End Sub