Test Test

        Public Property PollId() As Integer
            Get
                If Not IsNothing(Me.PollReference.EntityKey) Then
                    Return Me.PollReference.EntityKey.EntityKeyValues(0).Value
                End If
                Return 0
            End Get
            Set(ByVal Value As Integer)
                If Not IsNothing(Me.PollReference.EntityKey) Then
                    Me.PollReference = Nothing
                End If
                Me.PollReference.EntityKey = New EntityKey("PollEntities.Polls", "PollID", Value)
            End Set
        End Property
Snappycatchy.com

Test Test
