SendAssociateRequest Example for Visual Basic

'create the Associate Class as Request
    LEADDICOMNet1.CreateAssociate True
    
    'use default for association
    LEADDICOMNet1.DefaultAssociate LEADDICOMNet1.hPDU
    
    LEADDICOMNet1.SetCalling LEADDICOMNet1.hPDU, "MI_CLIENT"
     LEADDICOMNet1.SetCalled LEADDICOMNet1.hPDU, "MI_SERVER"
    
    'this shows a client sending to its server
    LEADDICOMNet1.SendAssociateRequest LEADDICOMNet1.hNet

    'now we can free the class
    LEADDICOMNet1.FreeAssociate LEADDICOMNet1.hPDU