هل يمكنني إنشاء Handle جديد؟؟

Public Class Form1

Private Sub Form1_Load( Byval Sender As System.Object, Byval E As System.EventArgs ) Handles MyBase.Load

Dim Top, Left As Integer

For I As Integer = 0 To 4

Dim TXT As New TextBox

TXT.Size = New Size( 100, 25 )

TXT.Location = New Point( Top, Left )

AddHandler TXT.TextChanged, AddressOf TXT_TextChanged

Controls.Add( TXT )

If Left = 100 Then

Top += 25

Left = 0

End If

Left += 100

Next I

End Sub

Private Sub TXT_TextChanged( Byval Sender As System.Object, Byval E As System.EventArgs )

Dim TXT As TextBox = DirectCast( Sender, TextBox )

Msgbox( TXT.Text )

End Sub

End Class

Public Class Form1

Private WithEvents ColorPicker1 As New ColorPicker

Private Sub ColorPicker1_ColorChanged(ByVal OColor As System.Drawing.Color _

, ByVal NColor As System.Drawing.Color) Handles ColorPicker1.ColorChanged ' عميل للحدث

Me.BackColor = OColor

End Sub

Private Sub ColorPicker1_Click(ByVal Sender As System.Object _

, ByVal E As System.EventArgs) Handles ColorPicker1.Click

Dim CD As New ColorDialog

If CD.ShowDialog = 1 Then

ColorPicker1.Color = CD.Color

End If

End Sub

End Class

Public Class ColorPicker

Inherits Button

Private _OldColor As Color

Public Property Color() As Color

Get

Return _OldColor

End Get

Set(ByVal Value As Color)

RaiseEvent ColorChanged(_OldColor, Value) ' تفجير الحدث

_OldColor = Value : BackColor = Value

End Set

End Property

Public Event ColorChanged(ByVal OColor As Color, ByVal NColor As Color) ' الحث الرئيسي

End Class