Private Feld(29) As String
Private Sub Form_Load()
Dim i As Long
For i = 1 To 30
    List1.AddItem i
    Feld(i - 1) = "Wort" & CStr(i)
Next
List1.ListIndex = 0
End Sub
 
Private Sub List1_Click()
Dim Beginn As Long
Dim Ende As Long
Beginn = List1.ListIndex - 10
If Beginn < 0 Then Beginn = 0
Ende = List1.ListIndex + 10
If Ende > 29 Then Ende = 29
List2.Clear
For i = Beginn To Ende
    List2.AddItem Feld(i)
Next
End Sub