CreateAssociate Example for Visual Basic
'create the Associate Class as Request
LEADDICOMNet1.CreateAssociate True
'set the Associate to the default
LEADDICOMNet1.DefaultAssociate LEADDICOMNet1.hPDU
MsgBox "Associate Request? " & CStr(LEADDICOMNet1.IsRequest (LEADDICOMNet1.hPDU))
'reset the Associate class to Accept
LEADDICOMNet1.ResetAssociate LEADDICOMNet1.hPDU, False
'set the Associate to the default
LEADDICOMNet1.DefaultAssociate LEADDICOMNet1.hPDU
MsgBox "Associate Request? " & CStr(LEADDICOMNet1.IsRequest (LEADDICOMNet1.hPDU))
'free the Associate class
LEADDICOMNet1.FreeAssociate LEADDICOMNet1.hPDU