Dim site As SPSite = New SPSite("http://localhost")
Try
Dim web As SPWeb = site.OpenWeb()
Try
Dim ct As SPContentType = web.Lists("Announcements").ContentTypes("Announcement")
Dim flinks As SPFieldLinkCollection = ct.FieldLinks
' Put the Expires field first and make it required.
flinks.Reorder(New String() {"Expires", "Title", "Body"})
flinks("Expires").Required = True
ct.Update()
Finally
web.Dispose()
End Try
Finally
site.Dispose()
End Try