Разбираю старую программу, доставшуюся в наследство. Есть в ней такое место.

Private Sub КодСостОбъект_Exit(Cancel As Integer)
If Nz(Me.КодСостОбъект, 0) < 1 Then
      MsgBox ("Состояние объекта должно быть заполнено!")
      Me.КодСостОбъект.SetFocus
      Exit Sub
End If
End Sub

КодСостОбъект - это группа переключателей. Пользователь должен ввести код состояния объекта. Иначе выдаётся сообщение и всё возвращается обратно. Но у группы переключателей нет событий GetFocus и LostFocus. Значит у него не и свойства SetFocus? Так или нет? Но программа не выдаёт ошибок, а фокус передаётся на первый контрол на форме (для списка переходов по Таб)
Зато каждый переключатель может иметь фокус. Пробую передать фокус первому переключателю в группе. Не срабатывает. Фокус всё равно переходит на первый контрол на форме. А мне надо, чтобы он никуда не переходил. Как быть?
Дело в том, что на событие получение фокуса я повесил подсветку поля. И получается не совсем хорошо.


-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1284874/bag-ili-ficha-o-fokuse-gruppy-perekluchateley