ALM Site Administratation Client Type Library
Disconnecting a project
Private Sub Disconnect()

'The following example disconnects a specific connection
' to the Quality Center server.
    Dim sReply As String

    On Error GoTo err
    sReply = m_SAClient.Disconnect(12433736)
    MsgBox sReply
    Exit Sub

err:
    MsgBox "Program failed:" + err.Description
End Sub
Send documentation feedback to HP.