Resaltar una fila en un MSFlexGrid (VB6)

Escenario

Sistema Operativo: Windows 7 Enterprise
Lenguaje de Programación: Visual Basic 6.0

Implementación

Public Sub pResaltarFila(ByVal poGrilla As MSFlexGrid)
    Dim I As Long
    With poGrilla
        If .Rows = 0 Then Exit Sub
        .Col = 0
        .Row = .Row
        .ColSel = .Cols - 1: .RowSel = .Row
        .SetFocus
    End With
End Sub