<div dir="ltr"><div dir="ltr">With this code, I'm trying to explain better what I meant to say:<br><br>Public Sub TextBox1_GotFocus()<br>  <br>  Dim s As String<br>  <br>  Desktop.SendKeys("{[Shift_L]6}")<br>  Wait 0.1<br>  s = TextBox1.Text<br>  Print s<br>  Wait 0.1<br>  TextBox1.Clear<br>  If s = "&" Then<br>    Print "Italian keyboard"<br>  Else<br>    Print "Stranger keyboard"<br>  Endif<br>  <br>End<br><br>Regards<br>Gianluigi<br></div></div><br><div class="gmail_quote"><div dir="ltr">Il giorno mer 3 ott 2018 alle ore 09:45 Gianluigi <<a href="mailto:bagonergi@gmail.com">bagonergi@gmail.com</a>> ha scritto:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div dir="ltr">>Lee, I subscribed to the list you mentioned but should I repeate the same thread there or what?<br>
<br>
>Charlie, thanks for your answer but it didn't exactly did what I want<br>
>I'm using Ubuntu <br>
>the code you put gave me this result: XKBLAYOUT=us,ara<br>
>what I need to get is the current keyboard layout<br>
>maybe I wasn't clear while putting my problem, so I"ll try to explain more<br>
>I want to check my current keyboard layout so if its Arabic, it would be changed to English (in >some textboxes) and vices versa.<br>
>i.e I want to use English in some textboxes and Arabic in others, and I 
want that to be done >through a code to check Keyboard layout and change 
it if needed or keep it if no need to change >it<br><div>
>thanks in advance to everyone trying to help <br></div><div><br></div><div>This code that need to do something else, maybe you can direct it to a key that makes you understand if the keyboard is 'ara' or 'us'.</div><div><br></div><div>Regards</div><div>Gianluigi<br></div></div></div>
</blockquote></div>