InetSendData Example for Visual Basic

Private Sub Command2_Click()
   Dim s As String
   Dim l As Integer
   Dim RasterVar As New LEADRasterVariant
   RasterVar.Type = VALUE_STRING

   s = "This is a test"
   l = Len(s)
   RasterVar.StringValue = s
   LEADNet1.InetSendData RasterVar, l, INETDATA_USER1
End Sub