Private Sub DisconnectDomain() 'The following Visual Basic example disconnects all domain ' connections. Dim sDomainName As String Dim sReply As String On Error GoTo err sDomainName = "MyDomain" sReply = m_SAClient.DisconnectDomain(sDomainName) MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub