Option Explicit
 
Dim DX As New DirectX7
Dim dd As DirectDraw7
 
Dim ddSurf As DirectDrawSurface7
Dim ddPrimSurf As DirectDrawSurface7
 
Dim sd1 As DDSURFACEDESC2
Dim sd2 As DDSURFACEDESC2
 
Private Sub Form_Load()
 
    Set dd = DX.DirectDrawCreate("")
    Call dd.SetCooperativeLevel(Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_EXCLUSIVE Or _
      DDSCL_ALLOWREBOOT)
 
    sd1.lFlags = DDSD_CAPS
    sd1.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
 
    Set ddPrimSurf = dd.CreateSurface(sd1)
 
    sd2.lFlags = DDSD_CAPS
    sd2.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
    Set ddSurf = dd.CreateSurfaceFromFile( _
      "C:ProgrammeProgrammierungVB98directxneuTestbloxx_intro.BMP", sd2)
 
End Sub
 
Private Sub Form_Resize()
    Picture1.Width = Form1.Width - 2
    Picture1.Height = Form1.Height - 2
End Sub
 
Private Sub Form_paint()
    Dim ddrval As Long
 
    Dim r1 As RECT
    Dim r2 As RECT
    Call DX.GetWindowRect(Picture1.hWnd, r1)
    r2.Bottom = sd2.lHeight
    r2.Right = sd2.lWidth
    ddrval = ddPrimSurf.Blt(r1, ddSurf, r2, DDBLT_WAIT)
End Sub
 
Private Sub Picture1_Click()
    Unload Me
End Sub
 
Private Sub Form_Click()
    Unload Me
End Sub