Private Sub cmdUp_Click()
    Dim oItem1 As sevDataGrid2.ListItem
    Dim oItem2 As sevDataGrid2.ListItem
    Dim sINI As String
 
    With gridINIs
        If .SelCount = 1 Then
            If .SelRow(0) > 1 Then
                .LockUpdate True
                Set oItem2 = .ListItems(.SelRow(0))
                Set oItem1 = .ListItems(.SelRow(0) - 1)
                sINI = oItem2.CellText(1)
                oItem2.CellText(1) = oItem1.CellText(1)
                oItem1.CellText(1) = sINI
                .LockUpdate False
                .Refresh
            End If
        End If
 
    End With
 
    Set oItem1 = Nothing
    Set oItem2 = Nothing
End Sub