Cómo indica la documentación oficial de la class System.Windows.Forms.Cursor, no soporta cursores con colores distintos a blanco y negro.


Tienes que hechar mano de la WinAPI, particulármente la función LoadCursorFromFile, la cual aparte de solventar el problema de los colores también permite utilizar cursores animados:
➢ LoadCursorFromFile function - MSDN

---

He desarrollado la siguiente class para simplificar la tarea y automatizar la carga del cursor.

Código fuente:

' ***********************************************************************
' Author   : Elektro
' Modified : 07-September-2015
' ***********************************************************************
' <copyright file="CursorUtil.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************
 
#Region " Imports "
 
Imports System
Imports System.ComponentModel
Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
 
#End Region
 
''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Contains related cursor utilities.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
Public NotInheritable Class CursorUtil
 
#Region " P/Invoking "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Platform Invocation methods (P/Invoke), access unmanaged code.
    ''' This class does not suppress stack walks for unmanaged code permission.
    ''' <see cref="System.Security.SuppressUnmanagedCodeSecurityAttribute"/> must not be applied to this class.
    ''' This class is for methods that can be used anywhere because a stack walk will be performed.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <remarks>http://msdn.microsoft.com/en-us/library/ms182161.aspx</remarks>
    ''' ----------------------------------------------------------------------------------------------------
    Private NotInheritable Class NativeMethods
 
#Region " Functions "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Creates a cursor based on data contained in a file.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="filepath">
        ''' The source of the file data to be used to create the cursor.
        ''' The data in the file must be in either .CUR or .ANI format.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' If the function is successful, the return value is an <see cref="IntPtr"/> to the new cursor.
        ''' If the function fails, the return value is <see cref="IntPtr.Zero"/>. 
        ''' To get extended error information, call <see cref="Marshal.GetLastWin32Error"/>.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------     
        ''' <remarks>
        ''' <see href="https://msdn.microsoft.com/en-us/library/windows/desktop/ms648392%28v=vs.85%29.aspx"/>
        ''' </remarks>
        ''' ----------------------------------------------------------------------------------------------------
        <DllImport("User32.dll", CharSet:=CharSet.Ansi, BestFitMapping:=False, ThrowOnUnmappableChar:=True, SetLastError:=True)>
        Public Shared Function LoadCursorFromFile(
                ByVal filepath As String
        ) As IntPtr
        End Function
 
#End Region
 
    End Class
 
#End Region
 
#Region " Constructors "
 
    ''' <summary>
    ''' Prevents a default instance of the <see cref="CursorUtil"/> class from being created.
    ''' </summary>
    Private Sub New()
    End Sub
 
#End Region
 
#Region " Public Methods "
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Creates a cursor based on data contained in a managed .Net resource.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="resource">
    ''' The resource.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <returns>
    ''' <see cref="System.Windows.Forms.Cursor"/>.
    ''' </returns>
    ''' ----------------------------------------------------------------------------------------------------
    <DebuggerStepThrough>
    <DebuggerHidden>
    Public Shared Function LoadCursorFromResource(ByVal resource As Byte(),
                                                  Optional cleanTempFile As Boolean = True) As Cursor
 
        Dim tmpFilepath As String = String.Format("{0}.ani", Path.GetTempFileName)
 
        Try
            Using fs As New FileStream(tmpfilepath, FileMode.Create, FileAccess.Write, FileShare.Read)
                fs.Write(resource, 0, resource.Length)
            End Using
 
            Dim result As IntPtr = NativeMethods.LoadCursorFromFile(tmpFilepath)
            Dim win32Err As Integer = Marshal.GetLastWin32Error
 
            If result = IntPtr.Zero Then
                Throw New Win32Exception([error]:=win32Err)
            Else
                Return New Cursor(result)
            End If
 
        Catch ex As Exception
            Throw
 
        Finally
            If (cleanTempFile) AndAlso (File.Exists(tmpFilepath)) Then
                File.Delete(tmpFilepath)
            End If
 
        End Try
 
    End Function
 
#End Region
 
End Class

Modo de empleo:

Public NotInheritable Class Form1 : Inherits Form
 
    Private Sub Label1_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Label1.MouseEnter
 
        Static cur As Cursor
 
        If cur Is Nothing Then
            cur = CursorUtil.LoadCursorFromResource(My.Resources.MyCursor)
        End If
 
        ' Asegurarse de liberar el objeto cuando sea necesario...
 
        DirectCast(sender, Label).Cursor = cur
 
    End Sub
 
    Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Label1.MouseLeave
 
        DirectCast(sender, Label).Cursor = Cursors.Default
 
    End Sub
 
End Class

Recursos usados para las pruebas:


➢ Metro X Cursor Set - DeviantArt

Saludos

Corrígeme si me equivoco al hacer suposiciones, pero deduzco que lo que hiciste fue simplemente copiar y pegar en la class principal el código de ambas classes, de esta forma:

Form1.vb

Class CursorUtil
...
End lass
 
Class Form1
...
End Class

Por supuesto eso no te podría haber funcionado y el modo en el que lo corregiste fue modificando el orden de las definiciones de esas classes, pero lo que realmente debes hacer es crear una nueva class, me refiero a un nuevo archivo class.vb donde debes definir la class CursorUtil.

---

Si, deja bastante que desear la ausencia de compatibilidad con cursores regulares, pero así es la realidad, lo cierto es que la tecnología WindowsForms se puede considerar casi-deprecada ya que es primitiva en muchos otros aspectos gráficos y hay que estar hackeando constantemente la UI para realizar modificaciones estéticas comunes, ese es el gran inconveniente que conlleva utilizar WinForms.

Si realmente quieres evitar este tipo de problemas entonces la mejor opción sería migrar a la tecnología WPF (WindowsPresentationFoundation) ya que es la que actuálmente está en constante desarrollo y actualización por parte de Microsoft, en comparación con Windowsforms donde, en lo referente a la UI y las classes u otros miembros relacionados con la UI ya no veremos ninguna mejora/actualización cómo por ejemplo eso, la esencial compatibilidad de cursores.

En WPF el equivalente a la class System.Windows.Forms.Cursor sería la class System.Windows.Input.Cursor, la cual por supuesto soporta cursores estáticos y animados a 32-bit depth en full HD x'D.

Saludos!