InetSendData2 Example for Visual Basic

Private Sub Command2_Click()
   Dim s As String
   Dim l As Integer

   LEADNet1.EnableUseLEADRasterVariant = False
   s = "This is a test"
   l = Len(s)
   LEADNet1.InetSendData2 "This is a test", l, INETDATA_USER1
End Sub