A difficult Question

Here is something I've been struggling with for a long time.
Below is the code that generates memory dc's (in type long variables) for a game I'm writting.

For the most part I just hold the same dc's in memory once they are created so everything runs fast. But what I would like to be able to do is delete certain dc's, and then replace them with different pictures so like if you change clothes only one set of clothing dc's will be in memory at a time.

Currently not only does putting a new dc into the long variable NOT save memory but it also compleatly screws up the the sprites ability to display correctly. Any help would be appreciated.

Public Function GenerateDC(Sprite As String)
Dim DC As Long, pictemp As IPictureDisp

DC = CreateCompatibleDC(0)
'If DC < 1 Then
' Exit Function
'End If
Set pictemp = LoadResPicture(Sprite, bitmap)
SelectObject DC, pictemp
DeleteObject pictemp
Set pictemp = Nothing

GenerateDC = DC
End Function

Private Sub createDCs()
Stance1s = GenerateDC("STANCE1S")
Stance2s = GenerateDC("STANCE2S")
Stance3s = GenerateDC("STANCE3S")
Stance1m = GenerateDC("STANCE1M")
'---------many more of these...
end sub

Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC as Long) as Long

Call this when you want to delete a DC.

Well the whole point is to save memory. Simply deleting the old DC then setting a new value to it doesn't save anything it leaks memory somehow. In fact if I just added more dc's I'd be using the exact same amount of memory as deleting and replacing them, only I wouldn't have a leak. I'm starting to think that is the only solution.

I don't think DeleteDC leaks anything.

try it. If you loop the process around 1000 times or more depending on the size of the bitmap you are using you'll see that replacing dc's leaks memory if all you use is the deleteDC function.

Hum Fox had that problem a while ago, I'd help you but I never used BitBlt except for some early tests where I used pictureboxes :p and map editors. PM Fox about it :)