Ma non bastava creare un progetto grafico con la Main form Backgound su &H000000& e Traking su True
Public Sub Form_MouseMove()
Dim hPicture As Picture
Dim hCursor As Cursor
If Mouse.X > (Me.W / 2) Then
hPicture = Picture["fantasma-iz.png"]
hCursor = New Cursor(hPicture)
Else
hPicture = Picture["fantasma-de.png"]
hCursor = New Cursor(hPicture)
Endif
Me.Cursor = hCursor
End
:-\
... usare oggetti come proprietà,
Cosa intendi dire ?
Nella classe ClsRectangulo del progetto che hai allegato c'è:
Property unaimagen As Image