[vb6.0] كيف تلون البيانات المكررة في العمود وتلوين اكبر قيمة في العمود في mshflexgrid1

PHP كود :
Public Sub Loadx()
Dim XCol As Integer
Dim txt As String
        Dim vMe
        Dim vMin
        Dim vMax
Dim I, x, xx, II As Integer
Dim s As String
xx = 0
s = ""
 
    If rs.State = adStateOpen Then rs.Close
    rs.Open "select * from T_DATE", Con, adOpenStatic, adLockPessimistic
    Set mshflexgrid1.DataSource = rs
    
    With Me.mshflexgrid1
     vMin = Val(.TextMatrix(1, 3))
     vMax = Val(.TextMatrix(1, 3))
    For XCol = 0 To .Cols - 1
    For I = 1 To .Rows - 1
    xx = 0
    s = .TextMatrix(I, 3)
    For x = 1 To .Rows - 1
    If .TextMatrix(x, 3) = s And xx < 1 Then
    xx = xx + 1
    .Col = XCol
    .Row = x
    .CellBackColor = vbGreen
    ElseIf .TextMatrix(x, 3) = s And xx > 0 Then
    For II = 0 To .Rows - 1
    If .TextMatrix(II, 3) = s Then
    .Col = XCol
    .Row = II
    .CellBackColor = vbRed
    End If
    Next
    End If
    Next
    Next
    Next
    For I = 1 To .Rows - 1
    
    vMe = Val(.TextMatrix(I, 3))
                        If vMe < vMin Then
                            vMin = vMe
                            
                        End If
                        If vMe > vMax Then
                            vMax = vMe
                            
                        End If
                Next
                
               
                For I = 1 To .Rows - 1
               
                            .Row = I
                            .Col = 3
                 If Val(.TextMatrix(I, 3)) = vMin Then
    
                            .CellBackColor = vbYellow
                            End If
                       If Val(.TextMatrix(I, 3)) = vMax Then
                            .CellBackColor = vbYellow
                            End If
    
    
    
    Next
    End With
End Sub