PrivateSub CreateSiteSingleParam()
'The following Visual Basic example creates a new site
' configuration parameter.
Dim sReply AsStringOnErrorGoTo err
sReply = m_SAClient.CreateSiteSingleParam _
("MaxReqsPerBranch", "500", "Max Requirements per branch")
MsgBox sReply
Exit Sub
err:
MsgBox"Program failed:" + err.Description
End Sub