ник: Алексей М.
Изначально мучился с потерей и передачей фокуса кнопкам.
Использовал события LostFocos и GetFocus. Но получалось громоздко.
А в итоге все гораздо проще. Смотрите код.
'---------------------------------------
'включить Кнопку2 и отключить Кнопку1
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Кнопка2.Enabled = True
Кнопка2.SetFocus
Кнопка1.Enabled = False
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click
End Sub
'--------------------------------------
'включить Кнопку1 и отключить Кнопку2
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
Кнопка1.Enabled = True
Кнопка1.SetFocus
Кнопка2.Enabled = False
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
'---------------------------------------
В пустых промежутках - ваши действия.