I am creating a class that displays student names on a contextmenu. The class exposes a funtion GetStudid, which displays the contextmenu and must return the corresponding studid of the selected student. The problem is I can't get the correct studid. What is returned is the studid of the student that was previously clicked.

I have atteched my code for clarity.

Public Class myStudent
    Public student_name, studid As String

    Private DS As New DataSet

    Sub New()
        ' POPULATE THE DATASET.  In my program, these data come from an SQL table
        DS.Tables.Add("students")
        DS.Tables("students").Columns.Add("studid")
        DS.Tables("students").Columns.Add("studname")

        Dim dt As DataRow

        dt = DS.Tables("students").NewRow
        dt.Item("studid") = "2001-00234"
        dt.Item("studname") = "DOE, JOHN"
        DS.Tables("students").Rows.Add(dt)

        dt = DS.Tables("students").NewRow
        dt.Item("studid") = "2002-00230"
        dt.Item("studname") = "DORRIS, PAUL"
        DS.Tables("students").Rows.Add(dt)

        dt = DS.Tables("students").NewRow
        dt.Item("studid") = "2002-00418"
        dt.Item("studname") = "DJANGO, MANDRID"
        DS.Tables("students").Rows.Add(dt)

        dt = DS.Tables("students").NewRow
        dt.Item("studid") = "2001-00994"
        dt.Item("studname") = "DARRYL, JOSEPH"
        DS.Tables("students").Rows.Add(dt)

    End Sub

    Public Function GetStudid(ByVal pTextBox As TextBox) As String
        'Shows a context menu and returns the STUDID of the selected student
        Dim cm As New ContextMenu
        Dim mnuItem As MenuItem
        For Each dr As DataRow In DS.Tables("students").Rows
            mnuItem = New MenuItem(dr.Item("studname"))
            AddHandler mnuItem.Click, AddressOf cmEventhandler
            cm.MenuItems.Add(mnuItem)
        Next
        cm.Show(pTextBox, New Point(0, 0))
    End Function

    Private Sub cmEventhandler(ByVal sender As Object, ByVal e As EventArgs)
        Dim cm_index = CType(sender, MenuItem).Index
        studid = DS.Tables("students").Rows(cm_index).Item("studid")
    End Sub
End Class

---------------------------------------------------------------------
This is the main form
---------------------------------------------------------------------

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "
#End Region

    Dim mystud As New myStudent
    'A Textbox and a Command Button was placed at design time

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        mystud.GetStudid(TextBox1)

        'MsgBox("delay")

        MsgBox(mystud.studid)
    End Sub
End Class

But if I uncomment the line ['MsgBox("delay")], the code works fine.

Any help would be very much appreciated