Public Sub LoadFromPictureBox(DDSURF As DirectDrawSurface7, pBox As PictureBox)
    Dim DC As Long
    Dim DDSD As DDSURFACEDESC2
    Dim Key As DDCOLORKEY
   
    With DDSD
        .lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT
        .ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN Or DDSCAPS_VIDEOMEMORY 'or DDSCAPS_SYSTEMMEMORY whichever you prefer
        .lHeight = pBox.Height
        .lWidth = pBox.Width
    End With
   
    Set DDSURF = DD.CreateSurface(DDSD)
   
    DC = DDSURF.GetDC
    BitBlt DC, 0, 0, pBox.Width, pBox.Height, pBox.hdc, 0, 0, vbSrcCopy
    DDSURF.ReleaseDC DC
   
    DDSURF.SetColorKey DDCKEY_SRCBLT, Key
End Sub

Call LoadFromPicturebox(thesurf, frmWhatever.pb)

frmWhatever.pb.Picture = Nothing

Sub DrawNightSky()
    rec.top = 0
    rec.Bottom = 32
    rec.Left = 0
    rec.Right = 32

    Dim dark1 As Long
    Dim dark2 As Long
   
    dark1 = GetPlayerX(MyIndex) * PIC_X + Player(MyIndex).XOffset + Int(PIC_X) - 10
    dark2 = GetPlayerY(MyIndex) * PIC_Y + Player(MyIndex).YOffset - Int(PIC_Y) + 25


    Call DD_BackBuffer.BltFast(dark1, dark2, DD_DARKSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
   
End Sub