NetReceiveAbort Example for Visual Basic

Private Sub LEADDICOMNet1_NetReceiveAbort (ByVal hNet As Long, ByVal nSource As Integer, ByVal nReason As Integer)
    MsgBox "data received - " & LEADDICOMNet1.GetPeerAddress (hNet) & " Status=" & CStr(nStatus) & " Type=" & CStr(nType)
End Sub