This should work .. right?

[SeaHag]

Option Explicit
 
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
 
 
Private Sub Timer1_Timer()
Me.Cls
 
Dim x
Dim y
x = Rnd * Me.ScaleWidth
y = Rnd * Me.ScaleHeight
Debug.Print x, y
 
BitBlt Me.hDC, x, y, 64, 61, Picture1.hDC, 0, 0, vbSrcCopy
 
Me.Refresh
End Sub

I am trying this simple example.. but it wont work..
I have another example to go by... but still nothing..

That is all

Seahag

[Serge]

Did you set the Autoredraw property to True ???

[SeaHag]

Your the best Serge!
Thanks