各位帮帮忙吧。不胜感激！
   换个说法吧，比如：经鼠标点击，msflexgrid当前行为第5行，整行红色高亮，现有一名称为“下一个”  的command按钮，当点击这个按钮时，msflexgrid由第五行移动到第六行，同时红色高亮背景也由第五行移动到第六行。如何实现？
   现已完成：
Private Sub MSFlexGrid1_Click()     '鼠标选中一行，text1显示选中数据
      Dim i As Integer
      Arow = MSFlexGrid1.RowSel           '鼠标选中一行，高亮
      Data1.Caption = Arow
      MSFlexGrid1.FocusRect = 0
      MSFlexGrid1.BackColorSel = vbRed
      MSFlexGrid1.HighLight = flexHighlightAlways
      MSFlexGrid1.SelectionMode = flexSelectionByRow
   
      If MSFlexGrid1.RowSel = 0 Then Exit Sub  '禁止选中固定行
   
      For i = 1 To MSFlexGrid1.Cols - 1    'text1显示选中数据
         Text1.Item(i - 1).Text = MSFlexGrid1.TextMatrix(Arow, i)
      Next i
End Sub

Private Sub MSFlexGrid1_SelChange()           '仅让选中一行
    If MSFlexGrid1.Row = 1 Then Exit Sub     '避免数据仅剩一行时出现错误
    MSFlexGrid1.RowSel = MSFlexGrid1.Row
End Sub

    下面当点击command按钮时，msflexgrid由第五行移动到第六行，同时红色高亮背景也由第五行移动到第六行。如何实现？跪求。\(^o^)/~