Mason thanks sons' school

  08 August 2024 Posted by ::   Sharuq

Code:
Private Sub cmdMoveUp_Click()
Dim tempItem As String, tempIndex As Integer

tempItem = lstSorter.Value
tempIndex = lstSorter.ListIndex

lstSorter.RemoveItem lstSorter.ListIndex
lstSorter.AddItem tempItem, tempIndex - 1

Call ToggleButtons(tempIndex - 1)
End Sub

Private Sub cmdMoveDown_Click()
Dim tempItem As String, tempIndex As Integer

tempItem = lstSorter.Value
tempIndex = lstSorter.ListIndex

lstSorter.RemoveItem lstSorter.ListIndex
lstSorter.AddItem tempItem, tempIndex + 1

Call ToggleButtons(tempIndex + 1)

End Sub