Scroll a list box to selected item (Repost)

I have code that selects an item in a list box that works fine (below) but I
would like to add code to scroll down to the selected item to show it. The
ListBox.Mutiselect is set to extended (3)

Anyone know how I would do that?
TIA
Nelson

If OpenArgs "" Then
For i = 0 To PatientList.ListCount - 1
If PatientList.ItemData(i) = OpenArgs Then
PatientList.Selected(i) = True
Exit For
End If
Next i
If i = PatientList.ListCount Then
DoCmd.Close
MsgBox "There are no claims to print for this patient."
End If
End If