Да, а если vibor заявить как integer и при нажатии каждой кнопки vibor'у присваивать значения 1,2,3 и т.д., то можно текст-боксах ещё и указывать, что именно выбранно. Изначально vibor=0 (при загрузке первой формы, например)
Public vibor as integer
Public kind as string
.
.
Private button1_click sub()
* *if i then
* * * Select case i
* * * * * * case 1
* * * * * * * * * s="мясо"
* * * * * * case 2
* * * * * * * * * s="рыба"
.
.
* * * *end select
* * * *textBox.text="Уже выбрано - " & s
* *else
* * * *vibor=1 (или 2,3.. в зависимости от того, какая кнопка нажата)
* *end if
.
.
End sub
