Dim no As NativeObject = Main.NavControl
no.GetField("navigationBar").SetField("prefersLargeTitles", True)
no.GetField("navigationBar").SetField("translucent", False)
no = ContactListPg
no.GetField("navigationItem").SetField("largeTitleDisplayMode", 1) 'always