Sub SendKey(code As Int)
If shift Or maiuscolo Then robot.RunMethod("keyPress", Array As Object(16))
robot.RunMethod("keyPress", Array As Object(code))
Sleep(100)
robot.RunMethod("keyRelease", Array As Object(code))
If shift Or maiuscolo Then robot.RunMethod("keyRelease", Array As Object(16))
If shift Then
shift = False
LoadMinuscolo
End If
End Sub