Listbox Item "top" position

[dglienna]

He wants the TOP index?

If it can show all 6 rows, it scrolls. Otherwise, it goes to the TOP

Option Explicit

Private Sub Command1_Click()
   Dim s%, x As Integer
   s = List1.TopIndex
   If s < List1.ListCount - 6 Then
     List1.TopIndex = List1.TopIndex + 5
   Else
     List1.TopIndex = 0
   End If
   For x = 0 To List1.ListCount - 1
    If List1.Selected(x) = True Then
      List1.Selected(x) = False
    End If
   Next x
End Sub

Private Sub Form_Load()
Dim x%
For x = 0 To 15
  List1.AddItem x + 1
Next x
End Sub