Scrivere in un TextBox dalla posizione manualmente mutata del cursore

Di regola, dopo aver scritto un testo all'interno di un TextBox, se si sposta manualmente (con il mouse o con i tasti freccia a destra e a sinistra) il cursore nel TextBox e si continua a scrivere, il primo carattere verrà scritto nella nuova posizione impostata manualmente, ma il secondo e gli ventuali successivi caratteri si potranno scrivere solo alla fine del testo, poiché il cursore si sarà spostato automaticamente alla fine del testo presente nel TextBox.

Per far sì, invece, che dopo lo spostamentpo manualmente del cursore nel TextBox, si possa continuare a scrivere dalla nuova posizione, ossia quella ove è stato spostato manualmente il cursore del TextBox, si adotterà il seguente codice: ^{[Nota 1]}

Public Sub TextBox1_Change()
 
 Dim iPs As Integer
 
  iPs = TextBox1.Pos
  
  TextBox1.text = Upper(TextBox1.Text)
  
  TextBox1.Pos = iPs
  
End

Note

[1] Il codice è stato suggerito dal membro tornu del forum gambas-it.org