InetReceiveStart Example for Visual Basic

Private Sub LEADNet1_InetReceiveStart (ByVal iComputer As Integer, ByVal iSize As Long)
   ' Display amount expected
   Text1.Text = "Will receive: " + CStr(iSize) + " bytes."
End Sub