I Have 3 Pictures
All Variables... StdPictures






Code:
 
Option Explicit
'API
'
Private Declare Function BitBlt Lib "gdi32.dll" (ByVal hdcDest As Long, ByVal nXDest As Long, ByVal nYDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal dwRop As Long) As Long
'
'Types
 Private Type MPicture
   ForeLayer As StdPicture
   Layer2 As StdPicture
    Sprite(10) As StdPicture
    Enbedded As StdPicture
End Type
'
'Variables
'
Private ForePicture As MPicture
Sub Render()
    ConbinePics
BitBlt FrmTop.Picture, 0, 0, ForePicture.Enbedded.Width, ForePicture.Enbedded.Height, ForePicture.Enbedded.Picture, 0, 0, vbSrcCopy
End Sub

Private Sub ConbinePics()
    BitBlt ForePicture.Enbedded.Picture, 0, 0, ForePicture.ForeLayer.Width, ForePicture.ForeLayer.Height, ForePicture.ForeLayer.Picture, 0, 0, vbSrcCopy
    BitBlt ForePicture.Enbedded.Picture, 0, 0, ForePicture.Sprite(0).Width, ForePicture.Sprite(0).Height, ForePicture.Sprite(0).Picture, 0, 0, vbSrcCopy
End Sub
It puts together images then it
puts them on the screen ( to the theory
that I think that will stop the flashing
and I should have smooth rendering)

Help?