Контекстное меню и вывод текста на рамку (frame) - VB

Формулировка задачи:

Имеется 6 рамок (frame) и необходимо чтобы при нажатии правой кнопкой мыши на любое место в пределах соответствующей рамки, открывалось контекстное меню и выбрав в нём определённый пункт, то его название пишется в рамку, если выбрать другой пункт то на рамке пишется другое заместо того что раньше. Например есть рамка с названием ПОЛ и при нажатии на неё правой кнопкой открывается контекстное меню в котором два пункта МУЖСКОЙ и ЖЕНСКИЙ, и нужно чтобы если я нажму на МУЖСКОЙ , то это напишется в рамке, а если ЖЕНСКИЙ, то напишется ЖЕНСКИЙ, а МУЖСКОЙ пропадёт.

Решение задачи: «Контекстное меню и вывод текста на рамку (frame)»

textual
                            Листинг программы 
                        

                            Sub L(ByVal i As Integer, s As String)
    Label1(i) = s
End Sub
                        