Imports System.Windows.Forms
 
Public Class HelpTextBox
    Inherits System.Windows.Forms.UserControl
 
    Public Event HelpAquired As EventHandler
 
    Public Delegate Sub HelpTextBoxEventHandler(ByVal sender As Object, ByVal e _
      As HelpTextBoxEventArgs)
 
...
 
    Private Sub raise_HelpEvent()
        Dim e As HelpTextBoxEventArgs
        e = New HelpTextBoxEventArgs(strHelpID, CObj(Me))
        RaiseEvent HelpAquired(CObj(Me), e)
    End Sub

Public Class HelpTextBoxEventArgs
    Inherits EventArgs
 
    Private strHelpID As String
    Private objControl As Object
 
    Public Sub New(ByVal HelpID As String, ByRef Control As Object)
        MyBase.New()
        strHelpID = HelpID
        objControl = Control
    End Sub
 
    Public Property HelpID() As String
        Get
            Return strHelpID
        End Get
        Set(ByVal Value As String)
            strHelpID = Value
        End Set
    End Property
 
    Public Property Control() As Object
        Get
            Return objControl
        End Get
        Set(ByVal Value As Object)
            objControl = Value
        End Set
    End Property
 
End Class

    Private Sub HelpTextBox1_HelpAquired(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles HelpTextBox1.HelpAquired
 
    End Sub