Hallå
Jag försöker byta muspekare när jag trycker på en musknapp. Problemet är att pekaren ändras tillbaka till standardpilen så fort jag går ur subrutinen. Så här ser det ut:


Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

If player = True Then
myCursorX = New Cursor("C:\Documents and Settings\VB projects\3-i-rad\3-i-rad\CursorX.cur")
Windows.Forms.Cursor.Current = myCursorX
Me.Text = "3 i rad - Place X"
Else
myCursorY = New Cursor("C:\Documents and Settings\VB projects\3-i-rad\3-i-rad\CursorO.cur")
Windows.Forms.Cursor.Current = myCursorY
Me.Text = "3 i rad - Place O"
End If
player = not player


player är en global variabel

Så länge jag håller inne musknappen så har jag rätt pekare, hur gör jag för att behålla den tills nästa gång jag trycker?

Får du samma resultat om du använder <b>Me.Cursor</b> istället?
<code>
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

If player = True Then
myCursorX = New Cursor("C:\Documents and Settings\VB projects\3-i-rad\3-i-rad\CursorX.cur")
me.cursor = myCursorX
Me.Text = "3 i rad - Place X"
Else
myCursorY = New Cursor("C:\Documents and Settings\VB projects\3-i-rad\3-i-rad\CursorO.cur")
me.cursor = myCursorY
Me.Text = "3 i rad - Place O"
End If
player = not player
End Sub
</code>

...nej... det fick jag inte. Det funkade mycket bättre!

tackar