Создание собственной коллекции

Public Class VKData
    Public Sub New()
    End Sub
    Public Property Group As ListGroup
End Class
Public Class ListGroup
    Public Sub New()
    End Sub
    Public Property Id As Long
    Public Property Name As Long
    Public Property Video As Video
End Class
 
Public Class Video
    Public Sub New()
    End Sub
    Public Property Id As Long
End Class
Class Test
    Dim Test As New List(Of VKData)
    Sub Test01()
        Test.Item(0).Group.Id = 0
        Test.Item(0).Group.Video.Id = 0
    End Sub
End Class

Imports VkNet.Model
Namespace DataVk
    Public Class ListDataVk
        Public Sub New()
        End Sub
        Public Property Group As ListGroup
    End Class
    Public Class ListGroup
        Inherits VkNet.Model.Group
        Public Sub New()
        End Sub
        Public Property Video As Attachments.Video
        Public Property Almum As VideoAlbum
    End Class
 
End Namespace

Namespace DataVk
    Public Class ListDataVk
        Inherits List(Of Group)
        Public Sub New()
        End Sub
        Public Property ListVideo As ListVideo
        Public Property ListAlbum As ListAlbum
    End Class
 
    Public Class ListVideo
        Inherits List(Of Attachments.Video)
        Public Sub New()
        End Sub
    End Class
    Public Class ListAlbum
        Inherits List(Of VideoAlbum)
        Public Sub New()
        End Sub
    End Class
End Namespace

Namespace DataVk
    Public Class ListDataVk
        Inherits List(Of Group)
 
        Public Property ListVideo As List(Of Attachments.Video)
        Public Property ListAlbum As List(Of VideoAlbum)
    End Class
End Namespace

Public Sub New()
    MyBase.New() 'в случае применения наследования
End Sub