blitting into a DC

[cyborg]

im having some problems....is it possible do do this?:

Dim PicCount As Single
 
Private Type SavedPics
    DC As Long
End Type
 
Dim SavedPictures(10) As SavedPics
 
Private Sub Command1_Click()
PicCount = PicCount + 1
BitBlt SavedPictures(PicCount).DC, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture2.hdc, 0, 0, vbSrcCopy
End Sub
 
Private Sub Command2_Click()
BitBlt Picture3.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, SavedPictures(Text1).DC, 0, 0, vbSrcCopy
Picture3.Refresh
End Sub