SetAuthDataISCL Example for Visual Basic

'Example 1
   LEADDICOMNet1.SetAuthDataISCL LEADDICOMNet1.hNethNetproperty, "Server LEAD ISCL", 16
'Example 2: Binary Data
   Dim DataArray(0 To 4) As Byte
   DataArray(0) = &H21
   DataArray(1) = &H14
   DataArray(2) = &H0
   DataArray(3) = &H45
   DataArray(4) = &HF4
   LEADDICOMNet1.SetAuthDataISCL LEADDICOMNet1.hNethNetproperty, DataArray, 5