SendAssociateRequest Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestSendAssociateRequest ( )
   '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
End Sub