Questo funziona per voi?
Public Sub Button1_Click()
TextBox1.SetFocus
For iAscii As Integer = 33 To 126
Desktop.SendKeys(Chr(iAscii))
Next
End
Dovreste ottenere quanto segue: -
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\]^_`abcdefghijklmnopqrstuvwxyz|}~
potrebbe essere la codifica della tastiera il problema ?
bisogna impostare (Inglese USA) al posto di italiana?
???
No, a me il tuo codice funziona bene anche se imposto la lingua inglese:
Public Sub Button1_Click()
System.Language = "en_US.UTF-8"
TextBox1.SetFocus
Desktop.sendkeys("?")
End
Scusa ho capito alla rovescia, comunque funziona sia con la lingua italiana (System.Language = "it_IT.UTF-8") che inglese.
:ciao: