Public Class MyObj
        Implements ICloneable
        Public int1 As Integer
        Public str1 As String
 
        Public Function Clone() As Object Implements System.ICloneable.Clone
            Return Me.MemberwiseClone()
        End Function
    End Class

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov