Public Class Class1
    Public Sub New()
        Dim bIdentisch As Boolean
        Dim myObj As New Object
        If myObj Is Me.Test1(myObj) Then
            bIdentisch = True
        Else
            bIdentisch = False
        End If
    End Sub
    Private Function Test1(ByVal Obj As Object) As Object
        Return Obj
    End Function
    Private Function Test2(ByRef Obj As Object) As Object
        Dim newObj As Object = Obj.Clone 'Mache Kopie von Obj in neuem Adreßraum 
        Return newObj
    End Function
End Class

Micke