كود ناقص فمن يكمله اكون شاكرا له

وجدت كود ولكنه ناقص اريد منكم المساعدة في اكمالة

Private Enum SCRIPTITEM

Const SCRIPTITEM_GLOBALMEMBERS = 8

Const SCRIPTITEM_ISSOURCE = 4

Const SCRIPTITEM_ISVISIBLE = 2

End Enum

Private cObjects As New Collection

Sub AddObject(sName As String, obj As Object)

If obj Is Nothing Then

Err.Raise vbObjectError, "AddObject", "Object can not be nothing"

End If

cObjects.Add obj, sName

IScript.AddNamedItem StrPtr(sName), SCRIPTITEM_ISVISIBLE Or SCRIPTITEM_GLOBALMEMBERS

End Sub

Sub AddNamedItem(pstrName As Long, dwFlags As SCRIPTITEM)

'ماهو الكود الذي يوضع هنا

End Sub

وتحياتي للجميع