lblLang.Text = InputLanguage.CurrentInputLanguage.Culture.DisplayName.ToString If lblLang.Text.Substring(0, 7).ToUpper <> "ENGLISH" Then 'Eveint Exit Sub Else BarCodeIn.Enabled = True BarCodeIn.Focus() End If