The AND bitmask of hbmMask is applied with the SRCAND flag to the destination subsequently, the color bitmap is applied (using XOR) to the destination by using the SRCINVERT flag. This member can be optional if this structure defines a black and white icon. If this structure defines a color icon, this mask only defines the AND bitmask of the icon. Under this condition, the height should be an even multiple of two. If this structure defines a black and white icon, this bitmask is formatted so that the upper half is the icon AND bitmask and the lower half is the icon XOR bitmask. ''' The y-coordinate of the cursor's hot spot. ''' The x-coordinate of a cursor's hot spot. A value of TRUE specifies an icon FALSE specifies a cursor. ''' Specifies whether this structure defines an icon or a cursor. New Rectangle(0, 0, img.Width, img.Height), _ Using g As Graphics = Graphics.FromImage(Scaledbm) Scaledbm.SetResolution(img.HorizontalResolution, img.VerticalResolution) Scaledbm = New Bitmap(width, height, 32bppArgb) Public Shared Function ScaleImage(ByVal img As Image, ByVal width As Int32, ByVal height As Int32) As Image ''' utility routine to scale an image to the specified width and height Public Shared ReadOnly Property SystemCursorSize() As Size The Forms.Cursor class returns the specified system cursor size, not the true size. ''' Returns true size of cursor created with this class.

Marshal.FreeHGlobal(cursorinfoptr) 'release allocated memoryĭeleteObject(cusorrinfo.hbmMask) 'relealse gdi objectĭeleteObject(cusorrinfo.hbmColor) 'relealse gdi object Marshal.StructureToPtr(cusorrinfo, cursorinfoptr, True)Ĭursorptr = CreateIconIndirect(cursorinfoptr)ĭim icon As Icon = icon.FromHandle(cursorptr) Public Sub New(ByVal img As Image, ByVal HotSpot_x As Int32, ByVal hotSpot_y As Int32)ĭim cursorinfoptr As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(cusorrinfo)) ''' True Cursor Size is stored in the 'Tag' Property ''' Allows creating as cursor from an image MakeCursor.ScaleImage(PictureBox1.Image, _ 'make cursor with the hotspot (click point) the top-right corner Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Here is a class that you can use to create a cursor from a. The Cursor class does not support animated cursors (.ani files) or cursors with colors other than black and white.īut why limit yourself to what is built-in? You are out of luck with a color cursor using the built-in.

Vb6 custom mouse pointer