DeleteTag Example for Visual Basic

' The following example will delete the PAGENUMBER tag from page 2 of a TIFF file:

Public RasterIO As New LEADRasterIO
Private Sub TestDeleteTag()
   Dim nRet As Integer
   nRet = RasterIO.ReadTag("test.tif", 2, 297)
   If nRet = 0 Then
      nRet = RasterIO.DeleteTag("test.tif", 2, 297, 0)
      If nRet <> 0 Then
         MsgBox "DeleteTag failed!"
      Else
         MsgBox "DeleteTag SUCCEEDED!"
      End If
   Else
      MsgBox "Page 2 does not have a tag number 297"
   End If
End Sub