InetSendDIB Example for Visual Basic

Private Sub Lead1_Click()
   Dim RasterIO As New LEADRasterIO
   Dim RasterProc As New LEADRasterProcess
   Dim hDIB As Long

   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
   hDIB = LEADRasterView1.Raster.GetDIB
   LEADNet1.InetSendDIB hDIB, FILE_CMP, 24, 75
   GlobalFree hDIB
End Sub