NetReceiveUnknown Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetReceiveUnknown(ByVal hNet As Integer, ByVal nPresentationID As Short, ByVal hCS As Integer, ByVal hDS As Integer) Handles LEADDICOMNet1.NetReceiveUnknown
   Dim out As String
   out = "Unknown Command Set/Data Set was received, and ignored"
   out = out & Chr(13)
   out = out & "Presentation ID: " & CStr(nPresentationID)
   MessageBox.Show(out)

End Sub