قم بانشاء مشروع جديد من نوع ActiveX Dll
ثم من خصائص الكلاس قم بتغيير خاصية Instancing الي GlobalMuliUse
ثم قم بكتابة Function ولتكن لاستدعاء Msgbox .
مثال
Public Function Testdll (TextMsg as string )
Msgbox TextMsg,vbinformation
end Function
ثم بعد ذلك قم باستخراجه ملف DLL ، من قائمة ملف اضغط علي
Make Project1.DLl
---------
الان انشئ مشروع جديد من نوع Standerd EXE واستدعي الملف Project1.dll الجديد ، من قائمة Project >References>Browse
والان اشئ زر امر واكتب في داخله الكود التالي :
Private sub Command1_Click()
'
TestDll "ArabTeam2000"
End Sub
تحاتي Dark Angle