Private Sub GetConnectionsCount(MyDomain$, MyProject$)
'The following Visual Basic example counts the connections
' to all projects in the MyDomain domain.
    Dim sDomainName As String
    Dim sProjectName As String
    Dim sReply As String
    Dim ReturnVal As String
    On Error GoTo err
    sDomainName = MyDomain
    sProjectName = MyProject
    ReturnVal = m_SAClient.GetConnectionsCount _
        (sDomainName, sProjectName)
    MsgBox "Number of connections: " + ReturnVal
    Exit Sub
err:
    MsgBox "Program failed:" + err.Description
End Sub