Error in UserControi subclassing

الدالة

   Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal Hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

	Dim PrevProc	 As Long
	Public CTRl As UserControl
	Const WM_MOUSEMOVE	As Long = &H200
	Const WM_MOUSELEAVE   As Long = &H2A3
	Const GWL_WNDPROC = (-4)


Public Sub hock(Hwnd As Long)

   PrevProc = SetWindowLong(Hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Public Sub UnHock(Hwnd As Long)
  SetWindowLong Hwnd, GWL_WNDPROC, PrevProc
End Sub

Public Function WindowProc(ByVal Hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  WindowProc = CallWindowProc(PrevProc, Hwnd, uMsg, wParam, lParam)
  Select Case uMsg
	Case WM_MOUSEMOVE: ForeColor = vbBlue
	Case WM_MOUSELEAVE: ForeColor
  End Select
  Debug.Print uMsg
End Function

شغاله تمام عندى , الخطأ الوحيد بيها هو :

	Case WM_MOUSEMOVE: ForeColor = vbBlue
	Case WM_MOUSELEAVE: ForeColor

تعديل , أستعمل الـ Self sub أضمنلك

للاسف انا لا مبعرفش اشتغل ب Self sub ولو عندك لينك يا ريت

وافتح المسنجر هتشوف حاجات

موجود بـ Yomna Link Control بالرابط بتاعه , و هو هيغنيك عن أستعمال Module هفتح الياهو اهه رغم أنى كنت فى طريقى الى النــــــــــــــــــــــــــومـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

بالنسبة لخطا ميكروسوفت الظاهر ان العيب فى نظام التشغيل او الفيجوال استوديو

اما السيلف سب انا حاولت فيه واتعقدت من كتر عمليات الفحص على رسائل النظام ودوال الاي بى اى التى تعود مقبض العملية التى تتم عليها المعالجة الحالية وووو شكلها مدى على اسمبلى اكتر خلينا مع السب كلاس العادى لحد ما ربنا ينفخ فى صورتنا ونتعلم ال Self sub اما اذا كان احد الاعضاء عندة فكرة عنه فليتفضل مشكورا

أشتعل نظامي ولم يظهر عندي خطأ سوى نفس الذي تفضل به محمد سيد

انا اعرف ما هو السبب فى ظهولر ذلك الخطا لكنى كنت اتحدث عن خطا رسالة نظام التشغيل وجربت البرنامج على جهاز اخر واشتغل والحمد لله