Assigning value to properties of an object in VB OOP

See more:

VB

VBA

Hi,

I'm Having a class which holds some fields and properties in it,
The problem is when I try to assign value to its variables I fail, and all I see when I trace it is that the fields of my code have not taken any values,
Here is the code of my object named 'MenuLogItem'
...

Public Class MenuLogItem
#Region "Fields"
    Private _menuName As String
    Private _formEntrance As DateTime
#End Region

#Region "Methods"
     ''' <summary>
    ''' Creates an object of MenuLogItem Class Which holds the information of the formEntrance
    ''' </summary>
    ''' <param name="menuName"></param>
    ''' <param name="EntranceDateTime"></param>
    ''' <remarks></remarks>
    Public Sub New(newMenuName As String,
                   newEntranceDateTime As DateTime)
        menuName = newMenuName
        formEntrance = newEntranceDateTime
    End Sub

    ''' <summary>
    ''' Stores the object of form entrance log into the database
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub Store()
        'Me.menuName
        'Me.formEntrance
        'TODO write the code for saving the information
        System.Windows.Forms.MessageBox.Show(Me.menuName.ToString() + vbCrLf +
                                             Me.formEntrance.ToString() + vbCrLf +
                                             "Stored.")
    End Sub

#End Region

#Region "Properties"
    ''' <summary>
    ''' menuName Set Get
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property menuName() As String
        Get
            Return _menuName
        End Get

        Set(value As String)
            _menuName = menuName
        End Set
    End Property

    ''' <summary>
    ''' formEntrance Get Set
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property formEntrance() As DateTime
        Get
            Return _formEntrance
        End Get
        Set(value As DateTime)
            _formEntrance = formEntrance
        End Set
    End Property

#End Region
End Class

Here is the code which is being used to create and fill one object of this class
...

Dim lastClick As New MenuLogItem(Me.value, DateTime.UtcNow)

Lets say the Me.vlaue is already assigned with "menuItem7" and the dateTime is the Utc DateTime,

But when I trace it and the cursor goes on the line below
...

Public Sub New(newMenuName As String,
                   newEntranceDateTime As DateTime)
        menuName = newMenuName
        formEntrance = newEntranceDateTime
    End Sub

and passes it, I still don't see what I expect which is the new object to be istanciated with the current values (the properties do not get any values).

Regards,

What I have tried:

I'm still working on it, but yet I haven't received any answer.