eigenen type als return variable einer funktion

[galdasc]

ich habe meine eigene ActiveX-DLL programmiert und eine Funktion eingebaut, der man einen benutzerdefinierten type uebergeben muss, und die dann auch den gleichen typ wieder zurueck gibt.doch wenn ich das Programm ausfuehre bekomme ich eine Fehlermeldung:

Nur benutzerdefinierte Typen, die in oeffentlichen Objekt Modulen definiert sind, koennen an eine zur Laufzeit aufleosbare Funktion weitergegeben werden.

Ich habe den type in einem Modul oeffentlich deklariert, die rueckgabe variable ist allerdings in der gleichen Prozedur wie mein aufruf der Funktion.

Beispiel:

------------Modul----
public type bla
blabla as string
blabla2 as string
end type
-----------End Modul----

-----------Form1---------
----Sub something()-----------
dim t as bla

t=function
==> ERROR
-----End sub
------------End Form1-----------


hoffe ihr versteht das

 

[MAN]

Probiers mal mit:

Public Type MyType
   strAttribut1 As String
   strAttribut2 As String
End Type

Dim t As MyType

Set t = FunktionsAufruf()

mfG

MAN