...ops... maledetto mouse....

allora in un modulo:
codice:
Public Type RigheVisibili
    PrimaRiga As Integer
    UltimaRiga As Integer
    TotaleRighe As Integer
End Type

Public Function RilevaRigheVisibili(miaFlexGrid As MSFlexGrid) As RigheVisibili

Dim MieRighe As RigheVisibili
Dim PrimaRigaVisibile As Boolean
Dim PrimaRiga As Integer, UltimaRiga As Integer
Dim i As Integer

With miaFlexGrid
    For i = 1 To .Rows - 1
    
        If .RowIsVisible(i) And Not PrimaRigaVisibile Then
                PrimaRiga = i
                PrimaRigaVisibile = True
        ElseIf .RowIsVisible(i) And PrimaRigaVisibile Then
                UltimaRiga = i
        End If
        
    Next i
End With


RilevaRigheVisibili.PrimaRiga = PrimaRiga
RilevaRigheVisibili.UltimaRiga = UltimaRiga
RilevaRigheVisibili.TotaleRighe = UltimaRiga - PrimaRiga

End Function

' in un form:
Text1 = RilevaRigheVisibili(MSFlexGrid1).PrimaRiga
Text2 = RilevaRigheVisibili(MSFlexGrid1).UltimaRiga
Text3 = RilevaRigheVisibili(MSFlexGrid1).TotaleRighe
L'ho buttato giù in fretta quindi dovresti un po' vedertelo....
dovrebbe restituirti le righe visibili (naturalmente escluse le Fixed).
Fammi sapere!
Ciao.
Janx.