Public Sub Equals(Obj As clsEmployee) As Boolean
Return (GetObjHashCode(Obj) = GetObjHashCode(Me))
End Sub
Private Sub GetObjHashCode(Obj As Object) As Int
Private r As Reflector
Return r.RunStaticMethod("java.lang.System", "identityHashCode", Array As Object(Obj), Array As String("java.lang.Object"))
End Sub