VB.Net by API/System/ICloneable

Implements ICloneable

<source lang="vbnet"> Public Class Point

 Implements ICloneable
 Public X as Integer
 Public Y as Integer
 Sub New(XX as Integer, YY as Integer)
   X = XX
   Y = YY
 End Sub
 Public Overloads Function ToString() As String
   Return "(" & X & "," & Y & ")"
 End Function
 Public Overridable Function Clone() As Object _
                    Implements ICloneable.Clone
   Return New Point(X, Y)
 End Function

End Class Module Test

 Sub Main()
   Dim P1 As New Point(5, 5)
   Dim P2 As Point
   P2 = P1.Clone()
   Console.WriteLine("First Object: " & P1.ToString()) 
   Console.WriteLine("Cloned Object: " & P2.ToString())
 End Sub

End Module

 </source>