InetReceiveData2 Example for Visual Basic

Private Sub LEADNet1_InetReceiveData2(ByVal iComputer As Integer, ByVal pData As Variant, ByVal lSize As Long, ByVal iType As Integer)
   Dim i As Integer
   Dim pszData As String

   ' convert to a string
   For i = 0 To lSize - 1
      pszData = pszData + Chr(pData(i))
   Next
   MsgBox CStr(iComputer) + ": " + pszData
End Sub