```vb
Public Property Get RowCount() As Integer
RowCount = MSFlexGrid1.Rows
End Property
Public Property Let RowCount(ByVal NewValue As Integer)
MSFlexGrid1.Rows = NewValue
End Property
Public Property Get ColCount() As Integer
ColCount = MSFlexGrid1.Cols
End Property
Public Property Let ColCount(ByVal NewValue As Integer)
MSFlexGrid1.Cols = NewValue
End Property
Public Property Get CellValue(ByVal Row As Integer, ByVal Col As Integer) As Variant
CellValue = MSFlexGrid1.TextMatrix(Row, Col)
End Property
Public Property Let CellValue(ByVal Row As Integer, ByVal Col As Integer, ByVal NewValue As Variant)
MSFlexGrid1.TextMatrix(Row, Col) = NewValue
End Property
```
```vb
Public Sub ClearColumn(ByVal Col As Integer)
Dim i As Integer
For i = 0 To MSFlexGrid1.Rows - 1
MSFlexGrid1.TextMatrix(i, Col) = ""
Next i
End Sub
Public Sub ImportData(ByVal Data As String)
' 这里需要实现从数据源导入数据的逻辑，例如从逗号分隔的字符串或其他格式导入数据
' 你可以根据需要自定义这个方法的参数和实现
End Sub
Public Function ExportData() As String
Dim i As Integer, j As Integer
Dim Result As String
For i = 0 To MSFlexGrid1.Rows - 1
For j = 0 To MSFlexGrid1.Cols - 1
Result = Result & MSFlexGrid1.TextMatrix(i, j) & ","
Next j
Result = Left(Result, Len(Result) - 1) & vbCrLf
Next i
ExportData = Result
End Function
```
VBFlexGridDemo.zip