Private Sub CreateProject() 'The following Visual Basic example creates a ' new project in an existing domain. Dim sDomainName As String Dim sProjectName As String Dim sServerName As String Dim CreateOptions As Long Dim sReply As String On Error GoTo err sDomainName = "MyNewDomain" sProjectName = "MyNewProject" sServerName = "http://myserver/sabin" CreateOptions = SA_ACTIVATE_NEW_PROJECT sReply = m_SAClient.CreateProject _ (sDomainName, sProjectName, SA_ORACLE_DB_TYPE, _ sServerName, "admin", "swordfish", _ "", "", 0, 0, _ CreateOptions) MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub