part = ch.GetProperty(new String() {"ActiveDocument","Part"})

Imports System.Reflection
imports System.Runtime.InteropServices
 
Public Class CatiaHandler
	Private _catia As Object
	Private _invokeAttr As BindingFlags
 
	Public Sub New()
		_catia = GetInstance()
	End Sub
'	Überladungen von GetProperty
	Public Function GetInstance() as Object
		return Marshal.GetActiveObject("CATIA.Application")
	End Function
	Public Function GetProperty(ob As Object, Befehl As String, args As Object()) _
  as Object
		_invokeattr = bindingflags.GetProperty
		return InvokeMember(Befehl, _invokeAttr, ob, args)
	End Function
	Public Function GetProperty(ob As Object, Befehl As String) As Object
		return GetProperty(ob, Befehl, nothing)
	End Function
	Public Function GetProperty(ob As Object, Befehl As String()) As Object
		Dim o as Object = GetProperty(ob, Befehl(0))
		If Befehl.GetUpperBound(0) = 0 Then
			Return o'GetProperty(ob, Befehl(0))
		Else
			Dim s1 As String() = new String(befehl.GetUpperBound(0) -1) {}
			array.Copy(Befehl,1,s1,0,befehl.GetUpperBound(0))
			Return GetProperty(o, s1)
		End If
	End Function
	Public Function GetProperty(Befehl As String) As Object
		return GetProperty(_catia, Befehl)
	End Function
	Public Function GetProperty(Befehl As String()) As Object
		return GetProperty(_catia, Befehl)
	End Function
	Private Function InvokeMember(name As String, invokeAttr As BindingFlags, _
  target As Object, args As Object()) As Object
		return target.[GetType]().InvokeMember(name, invokeAttr, Nothing, target, _
args)
	End Function
End Class