PrivateSub DisconnectProject(sDomainName$, sProjectName$)
'The following Visual Basic example disconnects all
' project connections.
Dim sReply AsStringOnErrorGoTo err
sReply = m_SAClient.DisconnectProject _
(sDomainName, sProjectName)
MsgBox"DisconnectProject return " & sReply
Exit Sub
err:
MsgBox"Program failed:" + err.Description
End Sub