SetAuthDataISCL Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestSetAuthDataISCL ( )
   'Example 1
   LEADDICOMNet1.SetAuthDataISCL(LEADDICOMNet1.hNet, "Server LEAD ISCL", 16)
   'Example 2: Binary Data
   Dim DataArray(4) As Byte
   DataArray(0) = &H21S
   DataArray(1) = &H14S
   DataArray(2) = &H0S
   DataArray(3) = &H45S
   DataArray(4) = &HF4S
   LEADDICOMNet1.SetAuthDataISCL(LEADDICOMNet1.hNet, DataArray, 5)
End Sub