vb6 - vb6で特定の列を編集可能にする方法

Question

セルをクリックするとこのイベントが発生し、クリックされた列 (列挙型) がチェックされ、列が編集可能である必要がある場合は編集が有効になります。

次の列は編集可能で正常に機能している必要がありますが、else ステートメントでは、これらの列を編集できないようにしたいと考えています。

強調表示されたものを使用しています (Farpoint Spread 6.0 (OLEDB)、手動でロードしています)

これは私が持っているコードであり、編集を無効にするものではありません。何か案は？

Select Case Col
        
        Case gcQtyDelivered, gcQtyFOC, gcQtyDelivered, gcCostPrice, gcRetailprice
            With lstTheLines
                .Row = Row
                .UserResizeCol = UserResizeOn
                .EditMode = True
                .Protect = False
            End With
        Case Else
            With lstTheLines
                .Row = Row
                '.Locked = True
                '.ReadOnly = True
                '.Enabled = False ' locks the full grid
                '.EditMode = False
                '.EditMode = False
                '.Col.ReadOnly = True
                .Enabled = True
                .Locked = False
                
            End With
            
End Select