[العواد الصغير]

كود :

السلام عليكم اين الخطا بهذا الكود
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Globalization
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms



<DefaultEvent("ValueChanged")> _
Public Class DateControl1
   Inherits TextBox

   ' Events
   Public Custom Event ValueChanged As EventHandler
  Public Sub New()


       Me.ValueChanged = DirectCast([Delegate].Combine(Me.ValueChanged, New EventHandler(AddressOf Me.HjDataHijriDate_ValueChanged)), EventHandler)

       Me.Text = Now.Date
   End Sub
   Private Sub HjDataHijriDate_ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
   End Sub
End Class