Private Sub GetAllDomains() 'The following Visual Basic example gets all the domains ' and their properties. Dim sReply As String On Error GoTo err sReply = m_SAClient.GetAllDomains MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub