NetSend Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetSend(ByVal hNet As Integer, ByVal nStatus As Short, ByVal nType As Short, ByVal lBytes As Integer) Handles LEADDICOMNet1.NetSend
   'Some data was sent
   MessageBox.Show ( "Data Sent to: " & LEADDICOMNet1.GetPeerAddress(hNet) & " Status = " & CStr(nStatus) )
End Sub