Vb6 如何从msflexgrid中删除选定项

我使用的是VB6，其中我使用的是MSFlexGrid，现在我想删除一个完整的行，该行由用户选择，一旦完成，它会自动将焦点设置为textbox，在internet上搜索时，这很有用，但问题是当我单击按钮时，它会删除所有行，甚至第一行也是FlexGrid的标题，我不想删除第一行

这是密码

Private Sub cmdDell_Click()
Dim i As Integer

    With grdArticles 'the msflexgrid
        If .RowSel <> 0 Then 'check if there is a selected row
            For i = .RowSel To .Rows - 2 'loop from selected row to the las row
                .TextMatrix(i, 0) = .TextMatrix(i + 1, 0) 'set rows with 1 back
                .TextMatrix(i, 1) = .TextMatrix(i + 1, 1)
                .TextMatrix(i, 2) = .TextMatrix(i + 1, 2)
                .TextMatrix(i, 3) = .TextMatrix(i + 1, 3)
            Next i
                .Rows = .Rows - 1 'make the rows 1 less
        Else
            MsgBox "Selecet row to delete!!!", vbExclamation
        End If
    End With
End Sub

Private Sub-cmdDell\u Click（）
作为整数的Dim i
使用grdArticles的msflexgrid
If.RowSel 0则“检查是否存在选定行”
对于i=.RowSel To.Rows-2'循环，从所选行到las行
.TextMatrix（i，0）=.TextMatrix（i+1，0）”设置返回1的行
.TextMatrix（i，1）=.TextMatrix（i+1，1）
.TextMatrix（i，2）=.TextMatrix（i+1，2）
.TextMatrix（i，3）=.TextMatrix（i+1，3）
接下来我
.Rows=.Rows-1'使行数减少1
其他的
MsgBox“选择要删除的行！！！”，vb感叹号
如果结束
以
端接头

如果一次只允许选择一行，则只需使用

Me.MSFlexGrid1.removietem Me.MSFlexGrid1.RowSel

如果可以选择多行（用户单击并拖动以选择多行），则需要确定所选行的范围并分别删除每一行。此页面上的代码显示了如何获取所选行的开始和结束。删除行时需要反向循环