ho trovato questo:

codice:
Sub BtnSort_Click()
  dim I as integer
  dim limit as integer
  dim MaxIndex as integer
  dim last as integer
  dim Appoggio as double
  dim SV as string

  'ordinamento del vettore
  MaxIndex = Val(LblNMax.Caption)
  limit = MaxIndex - 1
  Do While limit > 1
    last = 1
    For I = 1 To limit
      If V(I) > V(I + 1) Then 
        Appoggio = V(I)
        V(I) = V(I + 1)
        V(I + 1) = Appoggio
        last = I
      End If
    Next I
    limit = last
  Loop

ma non ho capito questo:

codice:
MaxIndex = Val(LblNMax.Caption)
cosa fa di preciso ????


grazie a tutti ciao