PrivateSub DeleteUser()
'The following Visual Basic example deletes a user.
Dim sReply AsStringOnErrorGoTo err
sReply = m_SAClient.DeleteUser("alex_td")
If (sReply = "1") ThenMsgBox"User Deleted"EndIfExit Sub
err:
MsgBox"Program failed:" + err.Description
End Sub