Private Sub GetUser()
'The following Visual Basic example gets the properties
' of the user whose name is in the text box.
Dim sReply As String
On Error GoTo err
sReply = m_SAClient.GetUser(Text1.Text)
MsgBox sReply
Exit Sub
err:
MsgBox "Program failed:" + err.Description
End Sub