InetSending Example for Visual Basic

Private Sub LEADNet1_InetSending (ByVal iComputer As Integer, ByVal lSize As Long)
   ' display the about of data we are sending
   MsgBox "Sending: " + CStr(lSize) + " bytes"
End Sub