unklare Parameterreihenfolge fuer Raster-to-Polygon

Hallo liebe Gemeinde....
Im Moment bastle ich ein kleines Skript, das mir in meiner Rasterdatei, welche aus einer großen Fläche mit Pixelwert "0" sowie einigen "Pixelhaufen" mit Pixelwert 254 besteht, aus eben diesen Pixelhaufen Polygon-Objekte fabrizieren soll.
(Wird später in ein anderes Skript eingebaut.)

Manuell scheint das mit dem ArcToolbox-Werkzeug "ArcToolbox - ConversionTools - from Raster - RasterToPolygon" zu funktionieren.
Die "toolHelp" verweist auf das ArcObject "RasterToPolygon_conversion"

Doch bei der Umsetzung als VBA-Skript mit ArcObjekts (ArcMap 9.3) hapert es mal wieder etwas.

Ich habe gelernt, daß ich in meinem Skript die einzelnen Werkzeugpparameter exakt in der Reihenfolge aufführen soll, in der sie auch im Werkzeug-Dialog stehen (-> Zeilen Filterparameter.Add) . Das hat bislang auch gut so funktioniert.
In diesem Fall ist das die Reihenfolge
"Input_Raster, Field, output_polygon_features, simplyfy_polygons".

Wenn ich jedoch in die Tool-Hilfe zu dem Werkzeug schaue, (natürlich fehlt da mal wieder ein Beispiel in ArcObjects) und wie bisher als Anhaltspunkt die Reihenfolge in der "Scripting syntax" verwende, dann finde ich dort
RasterToPolygon_conversion (in_raster, out_polygon_features, simplify, raster_field).
Also 'was anderes als erwartet.

Ich habe beides in meinem Skript ausprobiert, erhalte jedoch immer einen Laufzeitfehler in der Zeile des Werkzeug-Aufrufs, was inzwischen erfahrungsgemäß an einem Problem mit den Parametern liegt.

Allerdings habe ich neben dem "Inhalt" der Parameter nun als Fehlerquelle auch noch die unklare Parameter-Reihenfolge, was die Fehlersuche verkompliziert.
Hat jemand vielleicht eine Idee, inwieweit z.B. ein Fehler im Inhalt der Parameter sein könnte oder kennt jemand relativ sicher die richtige Parameterreihenfolge?

Die Tool-Hilfe sagt noch (aber halt nur zu "Scripting syntax" und "Command line syntax", nicht zur ArcObjects syntax):
- in_raster (Required): The input integer raster dataset. Typ: Composite Geodataset
- out_polygon_features (Required): The output feature class that will contain the converted polygons. Typ: Feature Class
- simplify (Optional) : Determines if the output polygons will be smoothed into simpler shapes or conform to the input raster's cell edges. Typ: Boolean.
SIMPLIFY—The polygons will be smoothed into simpler shapes. This is the default.
NO_SIMPLIFY—The polylines will conform to the input raster's cell edges.

- raster_field (Optional) : The field used to assign values from the cells in the input raster to the polygon features in the output dataset. It can be an integer or a string field. Typ: Field

Winziges Skript, großes Problem. Wie immer bei mir...
Ach ja, die Erweiterungen "Spartial Analyst" und "3D-Analyst" sind aktiv.


Private Sub UIButtonControl1_Click()
MsgBox "erzeuge Polygone aus den verbliebenen Pixeln"

Dim pgeoprocessor_filter As IGeoProcessor 'Erzeuge geoprocessor object
Set pgeoprocessor_filter = New GeoProcessor

Dim Filterparameter As IVariantArray 'Array-Object für GeoProcessor
Set Filterparameter = New VarArray

Dim in_raster As String 'Eingangsraster-File
Dim raster_field As String 'Field used to assign values
Dim out_polygon_features As String 'output feature Class
Dim simplify As Boolean 'Schalter

in_raster = "c:\temp\hzblock.img" 'Imagine Image als Eingangsraster
raster_field = "Values" 'wie in manueller Verwendung des Werkzeugs
out_polygon_features = "c:\temp\poly_hz.shp" 'Ausgabe-shp
simplify = False ' Schalter soll "unchecked" sein

'Füge Parameter zum Übergabe-Array hinzu
Filterparameter.Add (in_raster)
Filterparameter.Add (raster_field)
Filterparameter.Add (out_polygon_features)
Filterparameter.Add (simplify)

' Skripting-bsp: RasterToPolygon_conversion landuse.tif landuses SIMPLIFY Values
'Filterparameter.Add (in_raster)
'Filterparameter.Add (out_polygon_features)
'Filterparameter.Add (simplify)
'Filterparameter.Add (raster_field)

'starte das Werkzeug RasterToPolygon_conversion
pgeoprocessor_filter.Execute "RasterToPolygon_conversion", Filterparameter, Nothing

MsgBox " fertig"

End Sub

Danke
Andi