继承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 function createstringarr() as string()
return new string(){"d1","d2","d3","d4"}
end function
常用不常用，要看每个人的编程方向和使用习惯的！一般字符串函数和类型转换函数都是要用的
VB6的String()函数，在VB.NET中，改用 StrDup()函数，使用格式与VB6的String()函数类似：
例如：
VB6中，String(5,"*") ，是产生5个星号字符，"*****"
VB.Net中，改用 StrDup(5,"*") ，也是产生5个星号字符，"*****"
很简单，在end select前再多加一种情况case else return "XXXx",因为你只提供了0-9这10种情况
Public Function Zuhe(ByVal qa As String) As String
Select Case qa
Case "0"
Return "1"
Case "1"
Return "3"
Case "2"
Return "4"
Case "3"
Return "6"
Case "4"
Return "2"
Case "5"
Return "8"
Case "6"
Return "9"
Case "7"
Return "7"
Case "8"
Return "5"
Case "9"
Return "0"
Case else
Return "XXXX"
End Select
End Function