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