Quote Originariamente inviata da VanessaInfo Visualizza il messaggio
..... Voi come fate? Vi appuntate i riferimenti non di default e poi li rimettete a mano?!?!? ........
Per trovare i riferimenti che utilizza una applicazione puoi fare cosi:
codice:
Private Sub TrRi_Click()

Dim StUsa As String
Dim NuUsa As Integer
Dim NuMan As Integer
Dim accRef As Object

    For Each accRef In Application.References
        If (accRef.IsBroken = False) Then
            StUsa = StUsa & Left((accRef.Guid & String(50, "-")), 50) & Left((accRef.Name & String(20, "-")), 20) & accRef.FullPath & vbNewLine
            NuUsa = NuUsa + 1
        Else
            StUsa = StUsa & accRef.Guid & vbNewLine
            NuMan = NuMan + 1
        End If
    Next accRef

Me.txtUsati = "Totale Usati N° " & NuUsa & "            Totale Manca N° " & NuMan & vbNewLine & StUsa

End Sub

.