Public Sub SaveToSqlServerAs ( _
    package As Package, _
    events As IDTSEvents, _
    packagePath As String, _
    serverName As String, _
    serverUserName As String, _
    serverPassword As String _
)

public void SaveToSqlServerAs (
    Package package,
    IDTSEvents events,
    string packagePath,
    string serverName,
    string serverUserName,
    string serverPassword
)

public:
void SaveToSqlServerAs (
    Package^ package, 
    IDTSEvents^ events, 
    String^ packagePath, 
    String^ serverName, 
    String^ serverUserName, 
    String^ serverPassword
)

public void SaveToSqlServerAs (
    Package package, 
    IDTSEvents events, 
    String packagePath, 
    String serverName, 
    String serverUserName, 
    String serverPassword
)

public function SaveToSqlServerAs (
    package : Package, 
    events : IDTSEvents, 
    packagePath : String, 
    serverName : String, 
    serverUserName : String, 
    serverPassword : String
)

static void Main(string[] args)
        {
           // The variable pkg points to the location
           // of the ExecuteProcess package sample 
           // that is installed with the SSIS samples.
            string pkg = @"C:\Program Files\Microsoft SQL Server\100\Samples\Integration Services\Package Samples\ExecuteProcess Sample\ExecuteProcess\UsingExecuteProcess.dtsx";
            
            Application app = new Application();
            Package p = app.LoadPackage(pkg, null);

           // Save the package to the SQL Server msdb folder, which is
           // also the MSDB folder in the Integration Services service, or as a row in the
           //sysssispackages table.
            app.SaveToSqlServerAs(p, null, "myNewPackage", "yourserver", null, null);
        }

Shared  Sub Main(ByVal args() As String)
           ' The variable pkg points to the location
           ' of the ExecuteProcess package sample 
           ' that is installed with the SSIS samples.
            Dim pkg As String =  "C:\Program Files\Microsoft SQL Server\100\Samples\Integration Services\Package Samples\ExecuteProcess Sample\ExecuteProcess\UsingExecuteProcess.dtsx" 
 
            Dim app As Application =  New Application() 
            Dim p As Package =  app.LoadPackage(pkg,Nothing) 
 
           ' Save the package to the SQL Server msdb folder, which is
           ' also the MSDB folder in the Integration Services service, or as a row in the
           'sysssispackages table.
            app.SaveToSqlServerAs(p, Nothing, "myNewPackage", "yourserver", Nothing, Nothing)
End Sub