Cambiare cursore al mouse

[kicco]

Allora:

Codice: [Seleziona]

TextArea1.Mouse = Mouse.Cross   FUNZIONA
TextArea1.Mouse = 2            NON FUNZIONA

Altri valori interi funzionano, sembra che la tabella del libro sia errata, o nel frattempo è cambiato qualcosa!
Per esempio 10 o 1 funzionano!
 

[Gianluigi]

Ti si bloccava e adesso non si blocca più?

Ma stai usando il mio codice o cosa?

Non ti conviene usare:

Codice: [Seleziona]

Mouse.

E scegliere il cursore che vuoi?

[kicco]

Ma stai usando il mio codice o cosa?

Ho usato il tuo codice, adesso funziona.

Ho poi usato un codice con solo una TextArea1 e semplicemente:

Codice: [Seleziona]

Public Sub Form_Open()

  TextArea1.Mouse = 1

End

e funziona ma non con tutti i valori della tabella. (del Beginner's...)
Ovviamente ho fatto le prove con un valore non funzionante!