CreateAssociate Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestCreateAssociate ( )
   'create the Associate Class as Request
   LEADDICOMNet1.CreateAssociate(True)
   'set the Associate to the default
   LEADDICOMNet1.DefaultAssociate(LEADDICOMNet1.hPDU)
   MessageBox.Show("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)
   MessageBox.Show("Associate Request? " & CStr(LEADDICOMNet1.IsRequest(LEADDICOMNet1.hPDU)))
   'free the Associate class
   'LEADDICOMNet1.FreeAssociate LEADDICOMNet1.hPDU
End Sub