VB Net Problema con codice

[tibedeoro]

Ciao...ho problemi con la comprensione di questo codice.
Chi può darmi una mano? Grazie.

Public Class CPoint
Private X As Single
    Private Y As Single
    Public Sub New()
        X = 0
        Y = 0
    End Sub

    Public Sub New(ByVal X As Single, ByVal Y As Single)
        Me.X = X
        Me.Y = Y
        
    End Sub

    Public Sub Move(ByVal X As Single, ByVal Y As Single)
        'sposta il punto sulle nuove coordinate
        Me.X = X
        Me.Y = Y
    End Sub

    Public Overrides Function toString() As String
        Dim str As String = "(" & X & "," & Y & ")"
        Return str
    End Function

   Public Overridable Sub Write()
        MsgBox("Il punto e' localizzato in " & Me.toString, , "Write")
    End Sub
End Class