SetGeoKey Example for Visual Basic

Public RasterIO As LEADRasterIO
Private Sub TestSetGeoKey()
   Dim rasVar As New LEADRasterVariant

   ' This example sets the GTModelTypeGeoKey key to the Project Coordination System value
   
   RasterIO.GeoKeyType = TAG_SHORT
   RasterIO.GeoKeyCount = 1
   
   rasVar.Type = VALUE_SHORT
   rasVar.ShortValue = 1
   RasterIO.GeoKeyData = rasVar
   RasterIO.SetGeoKey 1024
   ' Every GeoTIFF file I save from now on will contain this GeoKey
End Sub