VB net 数组属性函数解决方案

VB net 数组属性函数
通常在vb net 里,定义一个数组以后可以使用数组的count等方法
我的问题是,我可不可自定义一些方法
例如:

    Dim   arr(10)  as My_Variant
    arr.Count()      <-这个是系统提供的
    arr.Count1()     <-我想自己定义的方法   

不知道该怎么实现, 求思路或者必须实现的接口都可以
------解决方案--------------------
用扩展方法：

Imports System.Runtime.CompilerServices
Module Extensions
	<Extension()>
	Public Function Count1(ByVal arr() As My_Variant) As Integer
		return arr.Length
	End Function
End Module