GetPeerMACISCL Example for VB.NET

'This example uses the predefined variable "LEADDICOMNet1" of type "LEADDicomNet" from "LEADTOOLS Toolkit".
Private Sub TestGetPeerMACISCL ()
   Dim strMAC As String
   strMAC = "SHA algorithm"
   If LEADDICOMNet1.GetPeerMACISCL(LEADDICOMNet1.hNet) = LTDNCLib.DicomMsgAuthCode.DICOM_ISCL_MAC_NONE Then
      strMAC = "no message authentication code"
   ElseIf LEADDICOMNet1.GetPeerMACISCL(LEADDICOMNet1.hNet) = LTDNCLib.DicomMsgAuthCode.DICOM_ISCL_MAC_MD5 Then
      strMAC = "MD5 algorithm"
   End If
   MessageBox.Show("Sender tried to send a message with MAC " & strMAC)
End Sub