Private Sub GetProjectExtendedData() ' The following example gets the project, properties, ' table schema, project version, and language. Dim sDomainName As String Dim sProjectName As String Dim sReply As String On Error GoTo err sDomainName = "MyDomain" sProjectName = "MyProject" sReply = m_SAClient.GetProjectExtendedData _ (sDomainName, sProjectName, SA_TRUE, SA_TRUE) MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub