如何在vb6中使特定列可编辑

Private Sub Form_Load()
    ' 设置FlexGrid控件属性
    FlexGrid1.Rows = 5
    FlexGrid1.Cols = 3
    FlexGrid1.Editable = True
    
    ' 设置ListView控件属性
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "Column 1"
    ListView1.ColumnHeaders.Add , , "Column 2"
    ListView1.ColumnHeaders.Add , , "Column 3"
    
    ' 添加数据到控件
    For i = 1 To 5
        FlexGrid1.TextMatrix(i, 1) = "Value " & i
        ListView1.ListItems.Add , , "Item " & i
        ListView1.ListItems(i).SubItems(1) = "Value " & i
    Next i
End Sub

Private Sub FlexGrid1_DblClick()
    ' 编辑特定列
    FlexGrid1.Row = FlexGrid1.MouseRow
    FlexGrid1.Col = 2
    FlexGrid1.StartEditing
End Sub

Private Sub ListView1_DblClick()
    ' 编辑特定列
    ListView1.SelectedItem.EditLabel
End Sub