Public Sub ReferenceMoveUp()
        If ReferencesBinding.Position > 0 Then
            SwapElements(ReferencesBinding.Current, _
                         ReferencesBinding.Item(ReferencesBinding.Position - 1))
        End If
    End Sub
 
    Public Sub ReferenceMoveDown()
        If ReferencesBinding.Position < ReferencesBinding.Count - 1 Then
            SwapElements(ReferencesBinding.Current, _
                         ReferencesBinding.Item(ReferencesBinding.Position + 1))
        End If
    End Sub
 
    Private Sub SwapElements(Of T)(ByRef value1 As T, ByRef value2 As T)
        Dim temp As T = value1
 
        value1 = value2
        value2 = temp
    End Sub

         SwapElements(ReferencesBinding.Item(ReferencesBinding.Position + 1), _
                      ReferencesBinding.Item(ReferencesBinding.Position - 1))