Den Code habe auseinandergebaut um den Fehler zu finden.
Ursprünglich stand hier nur Call swBlockDef.GetInstances(0).Select(True, Nothing) und darüber die Upgrade_Warnung:

    'UPGRADE_WARNING: Die Standardeigenschaft des Objekts swBlockDef.GetInstances().Select konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'

Das ganze hat in VB6 funktioniert. Nur im VB.NET kommt dieser Fehler vor. Und das nicht nur bei diesem Code.
Der Fehler ist auch schon bei einer Funktion aufgetaucht, der ein Annotation als ByRef übergeben worden ist. Eine Änderung auf Byval hatte das aber dort gelöst.

Hier weiss ich allerdings nicht was das Problem sein könnte.
Kann mir da jemand weiterhelfen und sagen warum dieser Fehler auftaucht und wie ich das lösen kann?

Ich habe das noch weiter auseinander genommen und der Fehler tritt nur bei dem Select auf:

Code:

---

  Dim pInst as Object
  Dim bret As Boolean
  Dim vInstances As Object

  pInst = vInstances(0)  ' bis hier funktioniert es
  bret = pInst.Select(True, Nothing)

---