Forms

3.20 Selezionare/deselezionare tutte le righe di una casella di riepilogo.
  Luciano (Doc)
Function selunsel(casriep As Control, puls As Control)
   Dim cont As Integer
   If puls.Caption = "Select all" Then
      For cont = 0 To casriep.ListCount - 1
         casriep.Selected(cont) = True
      Next cont
      puls.Caption = "Unselect all"
   Else
      For cont = 0 To casriep.ListCount - 1
         casriep.Selected(cont) = False
      Next cont
      puls.Caption = "Select all"
   End If
End Function
Unica condizione perchè funzioni a dovere è quella di avere la caption del pulsante = "Select all" all'apertura della maschera.

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.