NetReceiveUnknown Example for Visual Basic

Private Sub LEADDICOMNet1_NetReceiveUnknown (ByVal hNet As Long, ByVal nPresentationID As Integer, ByVal hCS As Long, ByVal hDS As Long)
    Dim out$
    
    out$ = "Unknown Command Set/Data Set was received, and ignored"
    out$ = out$ & Chr(13)
    out$ = out$ & "Presentation ID: " & CStr(nPresentationID)
    MsgBox out$

End Sub