Private Sub MoveProjectToDomain() 'The following Visual Basic example moves a project ' from "MyDomain" to "MyNewDomain". Dim sSourceDomainName As String Dim sDestinationDomainName As String Dim sProjectName As String Dim sReply As String On Error GoTo err sSourceDomainName = "MyDomain" sDestinationDomainName = "MyNewDomain" sProjectName = "MyProject" ' Deactivate project Call m_SAClient.DeactivateProject _ (sSourceDomainName, sProjectName) sReply = m_SAClient.MoveProjectToDomain _ (sSourceDomainName, sProjectName, _ sDestinationDomainName) MsgBox sReply ' Reactivate project Call m_SAClient.ActivateProject _ (sDestinationDomainName, sProjectName) Exit Sub err: MsgBox "Program failed:" + err.Description End Sub