Public Function Create(Of T As {AbstractBase, New})(ByVal Name as String) As T Dim Entity as T = new T() Entity.Name = Name Return Entity End Function