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