[VB_Coder]

السلام عليكم

- تستطيع ذلك بنفس الطريقة . لنفترض أن ملف الـ DLL لديك بإسم MyDll وإسم الكلاس MyClass . فسيكون الكود كالتالي :

كود :

Private Declare Function LoadLibrary Lib "kernel32" Alias _
                "LoadLibraryA" (ByVal lpLibFileName As String) As Long


Private Declare Function FreeLibrary Lib "kernel32" _
                (ByVal hLibModule As Long) As Long

Private Sub Form_Load()

Dim H As Long

H = LoadLibrary("C:\MyDll.dll")
DoEvents

Set mClass = CreateObject("MyClass")
DoEvents

' هنا قم بإستدعاء الدالة الموجودة في الكلاس

Set mClass = Nothing

Call FreeLibrary(H)

End Sub

- تحياتي .