InetSendFreeBitmapRsp2 Example for Visual Basic

Private Sub LEADNet1_InetReceiveCmd2(ByVal iComputer As Integer, ByVal InetCommand As Integer, ByVal nCommandID As Long, ByVal nError As Integer, ByVal Params As LEADRasterInetLib.ILEADRasterInetPacket, ByVal nExtraDataSize As Long, ByVal ExtraData As Variant) Dim nRet As Integer
   Dim nStatus As Integer

   If (nError <> 0) Then
      nStatus = ERROR_TRANSFER_ABORTED
   Else
      Select Case InetCommand
         Case INETCMD_FREE_BITMAP
            ' check the validity of the parameters
            If ((Params.ParamCount = 1) And (Params.ParamType(0) = PARAM_TYPE_UINT32)) Then
               'Note this is a function you must create
               nStatus = ProcessFreeBitmapCommand(Params.ParamValue(0))
               nRet = LEADNet1.InetSendFreeBitmapRsp2(nCommandID, 0, Null, nStatus)
               Exit Sub
            End If
      End Select
   End If
   'return an error response
   LEADNet1.InetSendRsp2 InetCommand, nCommandID, Nothing, 0, Null, nStatus
End Sub