перемещение строк в списке

Воскресенье, 28 Августа 2016 г. 17:14 + в цитатник

приветствую,
делаю форму где можно перемещать строки,сейчас столкнулся с проблемой,хотелось бы чтобы в текст бокс записывались значения больше на один,но ничего не выходит
вот код:

Private Sub List0_BeforeUpdate(Cancel As Integer)
Dim i, s

    With Me.List0
    s = s + 1
    For i = 1 To .ListCount - 1
        If .Selected(i) Then
            
            s = s & "," & .Column(0, i)
            
        End If
    Next
    End With
    Me.txtkod = Mid(s, 2)
End Sub