Public Sub SetDefaultInitFields ( _
    typeObject As Type, _
    ParamArray fields As String() _
)

public void SetDefaultInitFields (
    Type typeObject,
    params string[] fields
)

public:
void SetDefaultInitFields (
    Type^ typeObject, 
    ... array<String^>^ fields
)

public void SetDefaultInitFields (
    Type typeObject, 
    String[] fields
)

public function SetDefaultInitFields (
    typeObject : Type, 
    ... fields : String[]
)

'Connect to the local, default instance of SQL Server.
Dim srv As Server
srv = New Server
'Reference the AdventureWorks database.
Dim db As Database
db = srv.Databases("AdventureWorks")
'Assign the Table object type to a System.Type object variable.
Dim tb As Table
Dim typ As Type
tb = New Table
typ = tb.GetType
'Assign the current default initialization fields for the Table object type to a 
'StringCollection object variable.
Dim sc As StringCollection
sc = srv.GetDefaultInitFields(typ)
'Set the default initialization fields for the Table object type to the CreateDate property.
srv.SetDefaultInitFields(typ, "CreateDate")
'Retrieve the Schema, Name, and CreateDate properties for every table in AdventureWorks.
'Note that the improvement in performance can be viewed in SQL Profiler.
For Each tb In db.Tables
    Console.WriteLine(tb.Schema + "." + tb.Name + " " + tb.CreateDate)
Next
'Set the default initialization fields for the Table object type back to the original settings.
srv.SetDefaultInitFields(typ, sc)