Button1.Enabled:=yes;

Ответ:

Частный подпроцессTakingALongTime()

   Для целого числа = от 1 до 10

     Для b как целое число = от 1 до 100000000

       сделать что-то действительно важное здесь

     Следующий

     'имитировать индикатор выполнения

     Label2.Text = a.ToString

     Метка2.Обновить()

   Следующий

 Конец сабвуфера

Чтобы запустить это:

КОД

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Обрабатывает Button1.Click

   Button1.Enabled = Ложь

   ProcessTakingALongTime()

   Button1.Enabled = Истина

 Конец сабвуфера

Объяснение: