Private Sub SetDomainProperty() 'The following Visual Basic example changes the contact ' name in the domain property. Dim sDomainName As String Dim sReply As String On Error GoTo err sDomainName = "MyDomain" sReply = m_SAClient.SetDomainProperty(sDomainName, _ SA_DOMAIN_CONTACT_NAME, "Alex") MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub