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

[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