вывод раскладки клавиатуры в метку в VB 10

Помогите.
Создал программу но вот для нее еще важно создать такую вещь как в трее это текущая раскладка клавиатуры чтобы в метке (label ) была или RU или EN в зависимости от текущей раскладки клавы.
искал но не то чт онужно находил да и ошибки в коде всегда