Public Class c
        Public s As String
 
        Public Function Clone() As c
            Dim c1 As c = Me.MemberwiseClone()
            Return c1
        End Function
 
    End Class
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim s1 As New c()
        Dim s2 As New c()
 
        s1.s = "abc"
 
        s2 = s1.Clone()
 
        s2.s = "pqr"
        Debug.WriteLine(s1.s)
 
    End Sub
End Class