不可能的。任何类即便你不加构造函数，默认会加的。不过你可以尝试两种方法：1）在Sub New之前加一个Private，这样你就不能用构造函数声明了，与编译错误。2）只声明这一个带参构造函数，不声明不带参数的，但是调用却用无参的方式，也会发生编译错误。
在成都网站制作、成都做网站中从网站色彩、结构布局、栏目设置、关键词群组等细微处着手，突出企业的产品/服务/品牌，帮助企业锁定精准用户，提高在线咨询和转化，使成都网站营销成为有效果、有回报的无锡营销推广。创新互联专业成都网站建设十载了，客户满意度97.8%，欢迎成都创新互联客户联系。
继承ICollection(Of T)，或者是ILIst(Of T)，IDIctionary(Of TKey, TValue)等这些接口（具体哪个取决于你的Collection的性质）
具体语法的话……
Public Class MyCollection(Of T)
Implement ICollection(Of T)
………………
End Class
然后继承出来的函数应该怎么办建议看MSDN，每个接口继承出来的函数都不一样
通用的是GetEnumerator()这个，如果你用的一个集成了IEnumerable的字段那直接Return m_field.GetEnumerator()就可以
Public Class Name1
Public Function fun1()
...
End Function
....
End Class
'代码来源：代码街codejie.net
'由于在vb.net里变量名不区分大小写（StuName和stuname是一样的），所以个别变量名需要修改
'在vb.net中,模块级变量的命名原则是以m_开头
Public Class Student
Private m_stuNo As String '学生号字段
Private m_stuName As String '学生姓名字段
Private m_stuAge As Integer '学生年龄字段
Private m_stuAddress As String '学生住址字段
'无参构造方法
Public Sub New()
End Sub
'有参构造方法
Public Sub New(ByVal stuNo As String, ByVal stuName As String, ByVal stuAge As Integer, ByVal stuAddress As String)
m_stuNo = stuNo
m_stuName = stuName
m_stuAge = stuAge
m_stuAddress = stuAddress
End Sub
'学生号属性
Public Property StuNo() As String
Get
Return m_stuNo
End Get
Set(ByVal value As String)
m_stuNo = value
End Set
End Property
'学生姓名属性
Public Property StuName() As String
Get
Return m_stuName
End Get
Set(ByVal value As String)
m_stuName = value
End Set
End Property
'学生年龄属性
Public Property StuAge() As Integer
Get
Return m_stuAge
End Get
Set(ByVal value As Integer)
m_stuAge = value
End Set
End Property
'学生住址属性
Public Property StuAddress() As String
Get
Return m_stuAddress
End Get
Set(ByVal value As String)
m_stuAddress = value
End Set
End Property
End Class
