Thread.CurrentThread.CurrentUICulture will give you a CultureInfo and you can take whatever you need from that.
Very thank's to your reply.
above code only returns system input language , and code below returns our program's input language but i want to find every windows that might be active.
Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage
TextBox1.Text = myCurrentLanguage.LayoutName
{Be hAppy}
You can ommit one line from the written code:
TextBox1.Text = InputLanguage.CurrentInputLanguage.LayoutName