NetSend Example for Visual Basic

Private Sub LEADDICOMNet1_NetSend (ByVal hNet As Long, ByVal nStatus As Integer, ByVal nType As Integer, ByVal lBytes As Long)
    'Some data was sent
    MsgBox "Data Sent to: " & LEADDICOMNet1.GetPeerAddress (hNet) & " Status = " & CStr(nStatus)
End Sub