I need help with context menu

What I have in my project:

01 btnphone
01 context menu 2 items (phone,mobile)
associated to btnphone
01 textBox (txtPhone)
==============
Private btnphoneContextMenu As ContextMenu
Private Sub btnphone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If btnphoneContextMenu Is Nothing Then
btnphoneContextMenu = New ContextMenu()
With btnphoneContextMenu
.MenuItems.Add("Phone Home", AddressOf ButtonMenuHandler)
.MenuItems.Add("Phone work", AddressOf ButtonMenuHandler)
End With
Button1.ContextMenu = btnphoneContextMenu
End If
End Sub


Private Sub ButtonMenuHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim item As MenuItem
item = CType(sender, MenuItem)

'//NOW I AM LOST

End Sub

===================

I have and address book user inputs Name,surname,City etc....
now when user gets to the type in the phone number,they
write the phoneNumber in the txtphone.text and
then press btnphone and the context menu appear
toogle the menu items the associated number must appear in the
txtphone.text and persist in a variable.
so that i can later save them .

I HAVE ASSOCIATED THE MENU WITH A BTN BUT I AM LOST
WHEN I HAVE TO PERSIST THE PHONE NUMBERS SOMEWHERE
SO THAT THE USER CAN TOOGLE THE MENU ITEMS AND THE ASSOCIATED PHONE NUMBER WILL APPEAR.

Can you help me with a small example .?
Getting crazy here

thanks a lot anyway.

Gabriel

Hey welcome to the forum. For future reference, when posting code use the

VB Code:

code

tags, you'll get a lot more response that way. I 'll to figure out something and post it later.

Dev

VB Code:

Private btnphoneContextMenu As ContextMenu
Private Sub btnphone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If btnphoneContextMenu Is Nothing Then
btnphoneContextMenu = New ContextMenu()
With btnphoneContextMenu
.MenuItems.Add("Phone Home", AddressOf ButtonMenuHandler)
.MenuItems.Add("Phone work", AddressOf ButtonMenuHandler)
End With
Button1.ContextMenu = btnphoneContextMenu
End If
End Sub
 
 
Private Sub ButtonMenuHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim item As MenuItem
item = CType(sender, MenuItem)
 
'//NOW I AM LOST 
 
End Sub