Dim rEmptyRect As RECT, dArray() As Byte, sArray() As Byte

MainMenu.Lock rEmptyRect, DDSDMainMenu, DDLOCK_WAIT, 0
DD_PrimarySurf.Lock rEmptyRect, DDSD_Primary, DDLOCK_WAIT, 0

MainMenu.GetLockedArray dArray()
DD_PrimarySurf.GetLockedArray sArray()

Call vbDABLalphablend16(555, 0, sArray(0 + 0, 0), dArray(0 + 0, 0), 200, 64, 32, DDSD_Primary.lPitch, DDSDMainMenu.lPitch, 0)

DD_PrimarySurf.Unlock rEmptyRect
MainMenu.Unlock rEmptyRect

Public DX As New DirectX7
Public DD As DirectDraw7
Public DD_PrimarySurf As DirectDrawSurface7
Public DD_SpriteSurf As DirectDrawSurface7
Public DD_TileSurf As DirectDrawSurface7
Public DD_ItemSurf As DirectDrawSurface7
Public DD_BackBuffer As DirectDrawSurface7
Public DD_Clip As DirectDrawClipper
Public MainMenu As DirectDrawSurface7

Public DDSD_Primary As DDSURFACEDESC2
Public DDSD_Sprite As DDSURFACEDESC2
Public DDSD_Tile As DDSURFACEDESC2
Public DDSD_Item As DDSURFACEDESC2
Public DDSD_BackBuffer As DDSURFACEDESC2
Public DDSDMainMenu As DDSURFACEDESC2

    picTest.Picture = picMainMenu.Picture
   
    With BF
        .BlendOp = AC_SRC_OVER
        .BlendFlags = 0
        .SourceConstantAlpha = 50
        .AlphaFormat = 0
    End With

    RtlMoveMemory lBF, BF, 4
   
    AlphaBlend picTest.hdc, 0, 0, picTest.ScaleWidth, picTest.ScaleHeight, picScreen.hdc, 0, 0, picScreen.ScaleWidth, picScreen.ScaleHeight, lBF

    picMainMenu.Refresh
    picTest.Refresh
    picScreen.Refresh