Private Sub Cmd_Click(Index As Integer)
    Dim nSelCount   As Integer
    Dim i           As Integer
    Dim sHelp       As String
    Dim sID         As String
 
    Select Case Index
    Case 0 '<
 
    Case 1 '>
        With GridColumnsL '---------------------------------------------
            .LockUpdate True
            .DataMode = Mode_List
            nSelCount = .SelCount
            For i = 0 To nSelCount - 1
                sID = .Text(.SelRow(i), 1)
                ReDim Preserve AyColumns(i)
                AyColumns(i).id = sID
                AyColumns(i).key = .Text(.SelRow(i), 2)
                AyColumns(i).Visibility = .Text(.SelRow(i), 3)
                AyColumns(i).Changable = .Text(.SelRow(i), 4)
                AyColumns(i).Caption = .Text(.SelRow(i), 5)
                AyColumns(i).Number = .Text(.SelRow(i), 6)
                AyColumns(i).Row = .SelRow(i)
                DoEvents
            Next
            .LockUpdate False
            .Refresh
            .RefreshEx
        End With
        DoEvents
        With GridColumnsR '---------------------------------------------
            .LockUpdate True
            .DataMode = Mode_List
            For i = 0 To UBound(AyColumns())
                sHelp = AyColumns(i).key & vbTab
                sHelp = sHelp & AyColumns(i).Visibility & vbTab
                sHelp = sHelp & AyColumns(i).Changable & vbTab
                sHelp = sHelp & AyColumns(i).Caption & vbTab
                sHelp = sHelp & AyColumns(i).Number
                FillListItemR sHelp
            Next
            .DoSort "Number"
            .LockUpdate False
            .Refresh
            .RefreshEx
        End With
        DoEvents
        With GridColumnsL '---------------------------------------------
            .LockUpdate True
            .DataMode = Mode_List
            For i = UBound(AyColumns()) To 0 Step -1
                .DeleteRow AyColumns(i).Row
            Next
            .LockUpdate False
            .Refresh
            .RefreshEx
        End With '---------------------------------------------
    End Select
End Sub