InetSendBitmap Example for Visual Basic

Private Sub Command2_Click()
   ' send bitmap to everybody in SendList property
   Dim RasterIO As New LEADRasterIO
   Dim RasterProc As New LEADRasterProcess

   If (LEADRasterView1.Raster.Bitmap = 0) Then
      RasterIO.Load LEADRasterView1.Raster, "o:\images\new\001.jpg", 0, 1, 1
   End If
   RasterProc.Flip LEADRasterView1.Raster
   'send the images to the remote computer
   LEADNet1.InetSendBitmap LEADRasterView1.Raster, FILE_CMP, 24, 75
End Sub