Hi everyone. I'm new to VB.net and I'm trying so hard to get this simple code to work.

My problem lies at the event handler of the menuitem. The messagebox at the event handler correctly displays the selected menuitem's text from the contextmenu, but the second messagebox in the Button1_Click sub routine doesn't display it correctly.

But if I uncomment the MsgBox("delay") statement the code works well.
What am I doing wrong.

Any help will be very much appreciated

--------------------------------------------------------------------------------------------
Public Class Form1
Inherits System.Windows.Forms.Form


Private selected As String = ""
Private cm As New ContextMenu

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cm.MenuItems.Add("Text1", AddressOf mnuHandler)
cm.MenuItems.Add("Text2", AddressOf mnuHandler)
cm.MenuItems.Add("Text3", AddressOf mnuHandler)
cm.MenuItems.Add("Text4", AddressOf mnuHandler)
End Sub

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

selected = "INIT"

cm.Show(TextBox1, New Point(0, 0))

'IF THE LINE BELOW IS UNCOMMENTED, THE CODE WORKS
'MsgBox("delay")

'must display the clicked menuitem's text
MsgBox(selected)
End Sub

Private Sub mnuHandler(ByVal sender As Object, ByVal e As System.EventArgs)
selected = CType(sender, MenuItem).Text

'this displays the correct selected menuitem's text
MsgBox(selected + " inside")
End Sub
End Class
--------------------------------------------------------------------------------------------