dim a(-1) as string = NSLocalembs.availableLocaleIdentifiers

// show all identifers:
dim s(-1) as string
s.Append "All available Locale Identifiers:"

dim c as Integer = UBound(a)

for i as Integer=0 to c
  dim identifier as string=a(i)
  s.Append identifier
next

MsgBox Join(s)

// now show the currency symbols:

redim s(-1)
s.Append "All Currency symbols:"

c = UBound(a)
for i as Integer=0 to c
  dim identifier as string=a(i)
  dim n as new NSLocaleMBS(identifier)
  s.Append n.CurrencySymbol
next

MsgBox Join(s)

dim displayNameString as string

// The first uses the fr_FR locale.

dim frLocale as new NSLocaleMBS("fr_FR")

displayNameString = frLocale.displayName(frLocale.NSLocaleIdentifier, "fr_FR")
MsgBox "display name for fr_FR in fr_FR: "+displayNameString
// shows: "display name for fr_FR in fr_FR: français (France)"

displayNameString = frLocale.displayName(frLocale.NSLocaleIdentifier, "en_US")
MsgBox "display name for en_US in fr_FR: "+displayNameString
// shows: "display name for en_US in fr_FR: anglais (États-Unis)"

// The following example uses the en_GB locale.

dim gbLocale as new NSLocaleMBS("en_US")

displayNameString = gbLocale.displayName(frLocale.NSLocaleIdentifier, "fr_FR")
MsgBox "display name for fr_FR in en_US: "+displayNameString
// shows: "display name for fr_FR in en_US: French (France)"

displayNameString = gbLocale.displayName(frLocale.NSLocaleIdentifier, "en_US")
MsgBox "display name for en_US in en_US: "+displayNameString
// shows: "display name for en_US in en_US: English (United States)"

dim n as NSLocaleMBS = NSLocaleMBS.currentLocale

MsgBox n.ExemplarCharacterSet.StringValue
// shows "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÄÖÜßäöü" in Germany