ник: snipe
ну еще можно выдернуть
имя контрола на котором установлен фокус
Screen.ActiveControl.Name
потом в функции сначала обнулить все контролы (сделать фоновыми)
а потом нужный контрол покрасить в нужный цвет
при таком раскладе нужно будет просто вызвать функцию без передачи ей переменных
как-то так
Private Sub ПолеСоСписком36_GotFocus()
call ColorSet()
End Sub
Private Sub ПолеСоСписком37_GotFocus()
call ColorSet()
End Sub
Private Sub ПолеСоСписком38_GotFocus()
call ColorSet()
End Sub
Private function ColorSet ()
dim asd as string
asd=Screen.ActiveControl.Name
Me!ПолеСоСписком36.BackColor = RGB(255, 255, 255)'белое поле
Me!ПолеСоСписком37.BackColor = RGB(255, 255, 255)'белое поле
Me!ПолеСоСписком38.BackColor = RGB(255, 255, 255)'белое поле
Me(asd).BackColor = RGB(255, 0, 0) 'красное поле
end function