ISCLChallengeResponseSuccess example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetExternalAuthenticateISCL(ByVal hNet As Integer, ByRef nChallenge As Object, ByRef nResponse As Object, ByRef nParameter As Object) Handles LEADDICOMNet1.NetExternalAuthenticateISCL
   nResponse = nChallenge + nParameter
   LEADDICOMNet1.ISCLChallengeResponseSuccess = True
End Sub

Private Function GetRandom() As Decimal
   Dim RandVal As Decimal
   RandVal = Rnd() * &H10000
   RandVal = RandVal * &H10000 + Rnd() * &H10000    
   RandVal = RandVal * &H10000 + Rnd() * &H10000
   RandVal = RandVal * &H10000 + Rnd() * &H10000
End Function

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetGetChallengeISCL(ByVal hNet As Integer, ByRef nChallenge As Object, ByRef nParameter As Object) Handles LEADDICOMNet1.NetGetChallengeISCL
   nChallenge = GetRandom() + System.Convert.ToDecimal(nParameter)
   LEADDICOMNet1.ISCLChallengeResponseSuccess = True
End Sub

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetInternalAuthenticateISCL(ByVal hNet As Integer, ByRef nChallenge As Object, ByRef nResponse As Object, ByRef    nParameter As Object) Handles LEADDICOMNet1.NetInternalAuthenticateISCL
   nResponse = nChallenge + nParameter
   LEADDICOMNet1.ISCLChallengeResponseSuccess = True
End Sub