A friend gave me the following solution.It is exactly what I need!Thanks you anyway!
Dim names() As String = {"james", "steve", "dave", "fred"}
Private Sub ContextMenu1_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles...