- Код: Выделить всё
Private Sub Form_Load()
Dim ref As Reference
' Enumerate through References collection.
For Each ref In References
' Check IsBroken property.
If ref.IsBroken = True Then
MsgBox "GUIDs of broken references:" & ref.Guid, vbCritical, "Ошибка! Библиотека не подключена."
End If
Next ref
End Sub
Коллекция References не позволяет подкючать новые библиотеки. Может есть еще возможности ?