scrolling through listbox item's with button's

Try this

   Dim sSel   As Integer
    With Me.Listbox1
        For sSel = IIf(.ColumnHeads, 1, 0) To .ListCount - 1
            If .Selected(sSel) Then
                Me.Label1.Caption = .List(sSel)
            End If
        Next sSel
    End Wi