Extraer el maximo valor de un MSflexgrid

[fhuaylla]

Private Sub Command4_Click()
Dim X_Col As Integer
Dim X_Temp As Double, X_Max As Double
Dim X_Min As Double
Do While X_Col < MSFlexGrid1.Rows - 1
X_Col = X_Col + 1
X_Temp = MSFlexGrid1.TextMatrix(X_Col, 1)
If X_Temp > X_Max Then
X_Max = X_Temp
' Else
' If X_Temp < X_Min Then
' X_Min = X_Temp
' End If
End If
Loop
MsgBox X_Max '+ " " + X_Min
End Sub