[RESOLVED] BitBlt not working?? well... its odd...

[Static]

I have 2 picture boxes.. 1 is the source img (400x40 bmp) the other is destination...

the BitBlt isnt copying from the pctSrc? its grabbing from the screen!???
(like the excel grid slides by.. or Outlook.. or whatever the form is over?)

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Const SRCCOPY As Long = &HCC0020
 
Private Sub tmrAni_Timer()
    Dim returnresult&
    Static animationcount&
    'pctAni.Refresh
    returnresult = BitBlt(pctAni.hDC, 0, 0, 40, 40, pctSrc.hDC, animationcount&, 0, SRCCOPY)
    animationcount& = animationcount& + 40
    If animationcount& = (40 * 10) Then animationcount& = 0: countup = 0
    countup = Val(countup) + 1 'counts frames (or sections) cut out of the picturebox
End Sub

Ive used this before on a 33x20 ani.. (330x20) but this should work!!

any clue?

[brucevde]

Set the AutoRedraw property of the source picturebox to True.

[Static]

LOL.. just found that and was coming back to mark resolved!
Thanks!

now I have a new problem... new post.. lol