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