NetReceive Example for Visual Basic

Private Sub LEADDICOMNet1_NetReceive(ByVal hNet As Long, ByVal nStatus As Long, ByVal nType As Integer, ByVal pData As Variant, ByVal lSize As Long)
    MsgBox "data received - " & LEADDICOMNet1.GetPeerAddress (hNet) & " Status=" & CStr(nStatus) & " Type=" & CStr(nType)
End Sub