[T.ALKATHIRI]

الأخوة الأعزاء
السلام عليكم ورحمة الله وبركاته
واجهتني مشكلة بسيطة في تحويل الكود من C#.Net إلى VB.Net في تقنية WPF.
انا احاول اعمل WPF Custom control من عدة زراير واريد هذا الكنترول ان يكون متاح لجميع الويندو التي سوف أقوم بعملها في وقت لاحق ، مع استطاعة عمل Mouse Click Overridable.
قمت بتحويل المثال من على الرابط التالي http://alanbeech.wordpress.com/2011/05/0...controls//

وهذه نتيجة التحويل 

كود :

Public Class ExampleControl
       Inherits Control
       Private _clickMeButton As Button
       Private _noMeButton As Button

       ' events exposed to container
       Public Shared ReadOnly OnClickMeClickedEvent As RoutedEvent = EventManager.RegisterRoutedEvent("OnClickMeClicked", RoutingStrategy.Direct, GetType(RoutedEventHandler), GetType(ExampleControl))

       Public Shared ReadOnly OnNoMeClickedEvent As RoutedEvent = EventManager.RegisterRoutedEvent("OnNoMeClicked", RoutingStrategy.Direct, GetType(RoutedEventHandler), GetType(ExampleControl))

       Shared Sub New()
           DefaultStyleKeyProperty.OverrideMetadata(GetType(ExampleControl), New FrameworkPropertyMetadata(GetType(ExampleControl)))
       End Sub

       ' get the button objects as the templete is applied and add click event handlers
       Public Overrides Sub OnApplyTemplate()
           MyBase.OnApplyTemplate()

           _clickMeButton = TryCast(GetTemplateChild("PART_ClickMeButton"), Button)
           _noMeButton = TryCast(GetTemplateChild("PART_NoMeButton"), Button)

           If _clickMeButton IsNot Nothing Then
               AddHandler _clickMeButton.Click, AddressOf ClickMeClicked
           End If
           If _noMeButton IsNot Nothing Then
               AddHandler _noMeButton.Click, AddressOf NoMeClicked
           End If

       End Sub

       ' expose and raise 'OnClickMeClicked' event
       Public Custom Event OnClickMeClicked As RoutedEventHandler
           AddHandler(ByVal value As RoutedEventHandler)
               [AddHandler](OnClickMeClickedEvent, value)
           End AddHandler
           RemoveHandler(ByVal value As RoutedEventHandler)
               [RemoveHandler](OnClickMeClickedEvent, value)
           End RemoveHandler
       End Event

       Private Sub ClickMeClicked(sender As Object, e As RoutedEventArgs)
           [RaiseEvent](New RoutedEventArgs(OnClickMeClickedEvent))
       End Sub

       ' expose and raise 'OnNoMeClicked' event
       Public Custom Event OnNoMeClicked As RoutedEventHandler
           AddHandler(ByVal value As RoutedEventHandler)
               [AddHandler](OnNoMeClickedEvent, value)
           End AddHandler
           RemoveHandler(ByVal value As RoutedEventHandler)
               [RemoveHandler](OnNoMeClickedEvent, value)
           End RemoveHandler
       End Event

       Private Sub NoMeClicked(sender As Object, e As RoutedEventArgs)
           [RaiseEvent](New RoutedEventArgs(OnNoMeClickedEvent))
       End Sub
   End Class

التحويل تم بغير أخطاء
ما عدا سطرين هم التي فيهم الخطاء
 Public Custom Event OnClickMeClicked As RoutedEventHandler
يعطيني الخطاء التالي
'RaiseEvent' definition missing for event 'OnClickMeClicked'
وكذلك هذا السطر
Public Custom Event OnNoMeClicked As RoutedEventHandler
يعطيني نفس الخطاء مع تغيير اسم الكائن.
أرجو منكم أخواني الأعزاء اذا عندكم حل لهذه المشكلة ان لا بتخلوا علي به
ولكم جزيل الشكر والتقدير