I'm trying to replace my cursor with a gif file that uses transparencies. I don't want to use custom cursors or icons for reasons of being limited to the amount of colors or size of the custom cursor.

I have it working somewhat. However, my graphic is flickering and I need to know how to make it stop.

my code is below.


Module code:

Type POINTAPI
x As Long
y As Long
End Type

Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long


Form code:

Option Explicit

Dim z As POINTAPI

Private Sub Timer1_Timer()
GetCursorPos z
imgHand.Left = z.x
imgHand.Top = z.y
End Sub


Any ideas on how to make it stop flickering? I don't have any experience with the bitblt command and don't know how to use it otherwise I'd probably use that route.