EnumFileTags Example for Visual Basic

Public WithEvents RasterIO As LEADRasterIO
Private Sub RasterIO_EnumTags(ByVal uTag As Long, ByVal uType As Long, ByVal uCount As Long)
   Dim str As String
   
   str = "Tag = " + uTag + Chr(13) + _
         "Type = " + uType + Chr(13) + _
         "Count = " + uCount
   MsgBox str
   RasterIO.StopFireEnumTags = FALSE
End Sub

Private Sub EnumTags()
   ' Enumerate the tags
   RasterIO.EnumFileTags "file.tif", 0, 0
End Sub