السلام عليكم و رحمة الله و بركاته , فى مشروعى الحالى Yomna Snapshooter أنا بستخدم بستخدم الـ Subcalsser ده ssubtmr6 و ده علشان الـ Scroll-able forms و عايز أعمل Subclass على حاجة تانية لرسالة WM_SYSCOMMAND طبعا مش حلوه أنى أستعمل أكتر من Subclasser فى نفس المشروع فنوعا ما أنا مجبر عليه المهم لما بعمل Subclassing للرسالة دى كل الـ Form بتقف فى أعلى يسار الشاشة و تتعطل كل حاجة فيها حتى زر أغلاقها , لو حد عنده فكرة عن الـ Subclasser ده ممكن يدلنى على المشكلة علما بأنى ماشى فيه طبيعى بنفس طريقة المؤلف الأصلى :
Implements ISubclass Private Sub Form_Load() AttachMessage Me, Me.hwnd, WM_SYSCOMMAND End Sub Private Sub Form_Unload(Cancel As Integer) DetachMessage Me, Me.hwnd, WM_SYSCOMMAND End Sub Private Property Let ISubClass_MsgResponse(ByVal RHS As EMsgResponse) ' End Property Private Property Get ISubClass_MsgResponse() As EMsgResponse Debug.Print CurrentMessage ISubClass_MsgResponse = emrConsume End Property Private Function ISubclass_WindowProc(ByVal hwnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If iMsg = WM_SYSCOMMAND Then Select Case wParam 'The rest of the code End Select End If End Function
بصراحة انا في بالي فكرة ولا ادري ان كانت تصلح ام لا ... وهي ان نقوم بتطبيق 
