Private Sub cmdZufall_Click()
Dim iCount As Integer, iAct As Integer
iAct = lstZufall.ListIndex
Randomize
iCount = Int((100 * Rnd) + 1)
iCount = iCount - 1
If iCount > 2 And iCount < 98 Then
If iAct > iCount Then
lstZufall.ListIndex = iCount - 2
lstZufall.ListIndex = iCount
Else
lstZufall.ListIndex = iCount + 2
lstZufall.ListIndex = iCount
End If
Else
lstZufall.ListIndex = iCount
End If
End Sub