إضافة أداة DLL أو OCX عن طريق الكود

السلام عليكم ورحمة الله وبركاته

تفضل اخي العزيز كود اضافة أو حذف دليل او مرجع

Function MyRefrance()
On Error GoTo Errr
Dim Ref As Reference
'MsgBox "عددالمراجع الكلي" & Application.References.Count
'For Each Ref In Application.References
'	MsgBox "الاسم: " & Ref.Name & " " & vbCr & vbCr & "المسار: " & Ref.FullPath
'If Not Ref.BuiltIn Then
'	If MsgBox("هل تود ازالته انه غير مستخدم", vbYesNo + vbDefaultButton2, mycapion) = vbYes Then _
						References.Remove Ref
'	 End If
'Next Ref
Application.References.AddFromFile Application.CurrentProject.Path & "\MagicGraduateColor.ocx"	  '  البوبليشر'
Application.References.AddFromFile Application.CurrentProject.Path & "\flash.ocx"	  '  البوبليشر'
Application.References.AddFromFile Application.CurrentProject.Path & "\XceedZip.dll"	  '  البوبليشر'

'Application.References.AddFromFile Application.CurrentProject.Path & "\mso.dll"	'اوفس '
'Application.References.AddFromFile Application.CurrentProject.Path & "\dao360.dll"   'اوفس '
'Application.References.AddFromFile "msacc.olb"	'  الاكسس'
'Application.References.AddFromFile "excel.exe"   'الاكسل'
'Application.References.AddFromFile "msword.olb"	'  الوورد'
'Application.References.AddFromFile "msppt.Olb"	'  البوور بوينت'
'Application.References.AddFromFile "mspub.tlb"	'  البوبليشر'

Exit Function
Errr:
'MsgBox Err.Number
If err.Number = 32813 Then Resume Next
If err.Number = 29060 Then Resume Next
Exit Function
End Function

وارجو لك دوام التوفيق

بورك فيك أخي CompuTeam وسلمت أناملك وزادك الله بسطة في العلم على سرعة ردك وتجاوبك

سأقوم بتجربة الكود وانشاء تنجح العملية