Может, кто-нибудь знает, как сделать.
В форме есть список. Несвязное выделение - простой (выбирать надо несколько записей). Но есть еще поле со списком. И на его обновление я присваиваю списку значение поля со списком (чтобы в списке выделился тот, кого я выбрала в поле со списком, если нужен только один конкретный человек). Присвоить значение я могу, выделить запись тоже могу (насильно), а вот если стать на нее не могу. Т.е. если выделенная запись не видна сразу (список длинный, в форму не помещается), то она, хоть и выделяется, но не видна, остается внизу. Как на нее стать?

Private Sub ПолеСоСписком_AfterUpdate()
    Me.Список = ПолеСоСписком
    For varItm = 0 To Список.ListCount - 1
     If Список.Column(0, varItm) = ПолеСоСписком Then Список.Selected(varItm) = True
    Next
    Me.Список.SetFocus
End Sub