Private Sub GetConnections() 'The following Visual Basic example gets all connections ' to a Quality Center server. Dim sReply As String On Error GoTo err sReply = m_SAClient.GetConnections MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub