キャストを作ることはできますか？

#Region "　名前　プロパティ　"
    '****************************************************************************
    ' 名前　プロパティ	
    '****************************************************************************
    Private _名前 As String

    Public Property 名前() As String
        Get
            Return (_名前)
        End Get
        Set(ByVal value As String)
            _名前 = value
        End Set
    End Property

Public Enum 性別 As Integer
	法人 = 1
	男性
	女性
End Enum

Public Class 性別Accessor
	Private _表示名 As String
	Public ReadOnly Property 表示名 As String
		Get
			Return Me._表示名
		End Get
	End Property
	Private _値 As 性別
	Public ReadOnly Property 値 As 性別
		Get
			Return Me._値
		End Get
	End Property
	Public Sub 性別Accessor(表示名 As String, 値 As 性別)
		Me._表示名 = 表示名
		Me._値 = 値
	End Sub
End Class

Public Class 性別List
	Inherits List<性別Accessor>
	Private Shared instance As New 性別List()
	Private Sub 性別List()
		Dim names() As String = Enum.GetNames(TypeOf 性別)
		Dim values() As Integer = Enum.GetValues(TypeOf 性別)
		For idx As Integer = 0 To names.Length - 1
			Me.Add(New 性別Accessor(names(idx), values(idx)))
		Next
	End Sub
	Public Shared Function GetInstance() As 性別List
		return Me.instance
	End Function
End Class