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()
    Picture1.ScaleMode = 3
 
    Set dd = DX.DirectDrawCreate("")
    Call dd.SetCooperativeLevel(Form1.hWnd, DDSCL_NORMAL)
 
    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(App.Path & "bloxx_intro.BMP", sd2)
 
End Sub
 
Private Sub Form_Resize()
    Picture1.Width = Form1.Width
    Picture1.Height = Form1.Height
End Sub
 
Private Sub Picture1_Paint()
    Dim ddrval As Long
 
    Dim r1 As RECT
    Dim r2 As RECT
    Call DX.GetWindowRect(Picture1.hWnd, r1)
    r2.Bottom = sd2.lHeight - 2
    r2.Right = sd2.lWidth - 2
    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