تشخیص زبان های نصب شده در ویندوز

[sm4899]

تشخیص زبان های نصب شده در ویندوز
سلام دوستان.
میخواستم بدونم چطور میشه مثلا بشه فهمید که آیا زبان فارسی نصب شده یا نه ! و اگه نصب شده آیا Unicode اون هم فعال هست یا نه ؟

[پویا]

        Dim IIL As InputLanguage

        For Each IIL In InputLanguage.InstalledInputLanguages

            If IIL.LayoutName = "Farsi" Then

                InputLanguage.CurrentInputLanguage = IIL

                Exit For

            End If

        Next