InetReceiveData Example for Visual Basic

Private Sub LEADNet1_InetReceiveData(ByVal iComputer As Integer, ByVal pData As LEADRasterVariant, ByVal lSize As Long, ByVal iType As Integer)
   Dim i As Integer
   Dim pszData As String
   ' convert to a string
   pszData = pData.StringValue
   MsgBox CStr(iComputer) + ": " + pszData
End Sub