PrivateSub RemoveProject()
'The following Visual Basic example removes a project
' from the domain.
Dim sDomainName AsStringDim sProjectName AsStringDim sReply AsStringOnErrorGoTo err
sDomainName = "MyDomain"
sProjectName = "MyProject"
sReply = m_SAClient.RemoveProject _
(sDomainName, sProjectName)
MsgBox sReply
Exit Sub
err:
MsgBox"Program failed:" + err.Description
End Sub