Есле я правильно понял то ты просто напиши в коде каждой кнопки типа на этой форме TextBox ВЫБРАНО, а в других уже выбрано.

[melix]

Как я понял, сообщение "Уже выбрано" должно присутствовать на данной форме, если предварительно была нажата кнопка на другой форме, тогда надо объявить в модуле логическую переменную, скажем vibor:

Public vibor As Boolean

а в button_click:

If vibor=true then
 txtBox.text="Уже выбрано"
else
 vibor=true
end if

[Vavanchik]

Да, а если 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