le curseur apparait en noir

Bonjour

Je voulais utiliser un curseur de couleur mais quand je lance le prog il apparait en noir

Code:

---

1 2	Dim ms As New System.IO.MemoryStream(My.Resources.mycursor) boxball.Cursor = New Cursor(ms)

---

Bonjour,
Je n'ai pas tester mais peut être ajouter ceci

Code:

---

1 2 3 4

Dim ms As New System.IO.MemoryStream(My.Resources.mycursor) boxball.Cursor = New Cursor(ms)   me.cursor = ms

---

sinon, vous pouvez essayer ceci
https://www.daniweb.com/software-dev...lack-in-vb-net

J'ai réussi ainsi

Code:

---

1 2 3 4 5

Private Declare Unicode Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileW" (ByVal filename As String) As IntPtr   Dim hcur As IntPtr hcur = LoadCursorFromFile(Application.StartupPath & "\mycursor.cur") me.Cursor = New Cursor(hcur)

---