Private Sub BTS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTS.Click Dim index As Integer With LB1 If .Items.Count > 0 Then index = .SelectedIndex If index = -1 Then .SelectedIndex = 0 Else If index = .Items.Count - 1 Then MessageBox.Show("Vous êtes arrivé en fin de liste") Else .SelectedIndex = index + 1 End If End If Else MessageBox.Show("Aucun élément à sélectionner") End If End With End Sub