Clases

Estimado:
              ¿Cómo puedo implementar esta estructura en una clase?:
Private Structure colLista
        Dim objecto As Double
        Dim nodoSig() As Short  (esto es un vector)
        Dim nodoVis() As Single (esto es un vector)
        Dim objSig() As Double  (esto es un vector)
        Dim visitado As Short
        Dim contador As Short
    End Structure
La idea es trabajarla en una lista de objetos, es decir luego de crear la clase que le pregunto, se haría una lista de objetos. Algo así:
Public Class ElemLista
    Private _objeto As Double : Private _nodoSig() As Short
    Private _nodoVis() As Single : Private _objSig() As Double
    Private _visitado As Short : Private _contador As Short
    Public Property objeto()
        Get
            objeto = _objeto
        End Get
        Set(ByVal value)
            _objeto = value
        End Set
    End Property
***esto es la duda*********************
    Public Property nodoSig(ByVal i As Integer)
        Get
            nodoSig = _nodoSig
        End Get
        Set(ByVal value)
            _nodoSig = value
        End Set
    End Property
    Public Property nodoVis()
        Get
            nodoVis = _nodoVis
        End Get
        Set(ByVal value)
            _nodoVis = value
        End Set
    End Property
    Public Property objSig()
        Get
            objSig = _objSig
        End Get
        Set(ByVal value)
            _objSig = value
        End Set
    End Property
*****************************
    Public Property visitado()
        Get
            visitado = _visitado
        End Get
        Set(ByVal value)
            _visitado = value
        End Set
    End Property
    Public Property contador()
        Get
            contador = _contador
        End Get
        Set(ByVal value)
            _contador = value
        End Set
    End Property
End Class
Public Class Listanueva
    Inherits List(Of ElemLista)
End Class.
Muchas Gracias.