Physics problem

You mean this?

Type TExample
End Type

Function CreateType.TExample()
	newExample.TExample=New TExample
	Return newExample
End Function