Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long
 
Dim center As Long
Dim listtop As Integer
Dim listy As Long
 
Private Sub Form_Load()
  For fill = 0 To 25
    List1.AddItem Chr(65 + fill)
  Next
  Timer1_Timer
  List1.ListIndex = 0
End Sub
 
Private Sub List1_Click()
  listy = listtop + (List1.ListIndex + 1 - List1.TopIndex) * 13
  SetCursorPos center, listy
End Sub
 
Private Sub Timer1_Timer()
  center = (Me.Left + (Me.Width - Me.ScaleWidth) / 2 + _
           List1.Left + List1.Width / 2) / Screen.TwipsPerPixelX
  listtop = ((Me.Top + (Me.Height - Me.ScaleHeight - _
            (Me.Width - Me.ScaleWidth) / 2) + List1.Top) / _
            Screen.TwipsPerPixelY) - List1.Appearance - 5
End Sub