VSFlexGrid1内如何求最大值、最小值？

VSFlexGrid1内如何求最大值、最小值？（举例如下：）

ID     第1列     第2列     第3列     第4列    ...
1        5        10         E         8
2        B        8                    12
3        7                   ku        16
4        1        dd         2         19.
.
.
MAX:  Text1.text = 19 
MIN:  Text2.text = 1 
注：1.以上不连接数据库（不需要返回数据库记录集）
    2.数据表内存在空格、字符、数字 --------------------编程问答-------------------- 遍历呀。 --------------------编程问答-------------------- 遍历 比较 没有别的办法 --------------------编程问答-------------------- Dim 字符账号量 As Long, 英文账号量 As Long, 空格数 As Long, 最小数字 As Long, 最大数字 As Long
CountVsFlexGridMaxMin VSFlexGrid1, 1, 7, 2, 3, 字符账号量, 英文账号量, 空格数, 最小数字, 最大数字
MsgBox "字符账号量=" & 字符账号量 & vbCrLf & "英文账号量=" & 英文账号量 & vbCrLf & "空格数=" & 空格数
MsgBox "最小值=" & 最小数字 & ",最大值=" & 最大数字

VB函数工具下载,http://www.taobaosoft.com/netvb.zip --------------------编程问答-------------------- 高手能不能告诉具体的方法。
如何遍历求最大值或者如何将VSFlexGrid1内数据放入数组在遍历求最大值，或有什么更好的方法。
好像VB是没有最大值最小值的函数，只有自己写。 --------------------编程问答-------------------- 它带的DEMO里就有,cellchange这个工程,
text1.text=fg.aggregate(flexSTMin,r1,c,r2,c) 就计算了c列从第r1到r2行的最小值了

补充：VB ,  控件