Public Class cPosition
    Public Property x As Integer
    Public Property y As Integer
 
    Public Sub New()
        x = 0 : y = 0
    End Sub
 
    Public Sub New(ByVal xpos As Integer, ypos As Integer)
        x = xpos : y = ypos
    End Sub
End Class
 
Public Class cKoord
 
    Public Property F1 As cPosition
    Public Property F2 As cPosition
    Public Property F3 As cPosition
    Public Property F4 As cPosition
    Public Property F5 As cPosition
    Public Property F6 As cPosition
    Public Property F7 As cPosition
    Public Property F8 As cPosition
 
    Public Sub New()
        F1 = New cPosition
        F2 = New cPosition
        F3 = New cPosition
        F4 = New cPosition
        F5 = New cPosition
        F6 = New cPosition
        F7 = New cPosition
        F8 = New cPosition
    End Sub
End Class

Dim R As New List(Of cKoord)
 
R.Add(New cKoord With {.F1 = New cPosition(10, 20), .F2 = New cPosition(30, _
  40)})
R.Add(New cKoord With {.F1 = New cPosition(50, 60), .F2 = New cPosition(90, _
100)})
 
Dim x As Integer = R(1).F1.X
 
R(1).F1.x = 200
 
Dim y As Integer = R(1).F2.y