' Ve tdch Point a Rectangle jsme sti implementace skryli.
Public Class Point
Private _x, _y As Integer
Public Property X ... ' Integer  implementace skryta
Public Property Y ... ' Integer - implementace skryta
End Class

Public Class Rectangle
Private _tl, _br As Point
Public Property TL() ... ' Point - implementace skryta
Public Property BR() ... ' Point - implementace skryta
End Class

' mon kd uvnit metody
Dim r = New Rectangle With { _
.TL = New Point With {.X = 0, .Y = 1}, _
.BR = New Point With {.X = 2, .Y = 3} _
