Originariamente inviato da deluxpc
Non riesco però ad adattarla per farla funzionare col minimo
Non ci sono tante modifiche da fare ... possibile che non ci arrivi da solo ?

codice:
    MSFlexGrid1.Col = 1
    MSFlexGrid1.Row = 1
    datomin = Val(MSFlexGrid1.Text)

    For indice = 2 To Val(Text3.Text)
        MSFlexGrid1.Row = indice
        dato = Val(MSFlexGrid1.Text)
        If dato < datomin Then
            datomin = dato
            Label3.Caption = datomin
            DoEvents
        End If
    Next indice