'--- CODE FOR USER CONTROL-----------
Imports System
Imports System.Web.UI.WebControls
Imports System.Data
Public Class Ctrl
    Inherits System.Web.UI.UserControl

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents ddlTest As System.Web.UI.WebControls.DropDownList

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Public Delegate Sub SelectedIndexChangedHandler(ByVal sender As Object, ByVal args As SelectedIndexChangedEventArgs)
    Public Event myselectedIndexChanged As SelectedIndexChangedHandler

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub ddlTest_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlTest.SelectedIndexChanged

        RaiseEvent myselectedIndexChanged(Me, New SelectedIndexChangedEventArgs(ddlTest.SelectedItem))
    End Sub

    Public Class SelectedIndexChangedEventArgs
        Inherits EventArgs
        Private m_selectedItem As ListItem
        Dim a As Integer

        Public ReadOnly Property SelectedItem() As ListItem
            Get
                Return m_selectedItem
            End Get
        End Property
        Public Sub New(ByVal selectedItem As ListItem)
            m_selectedItem = selectedItem
        End Sub

    End Class

End Class

'----CODE FOR THE ASPX PAGE-----------

Public Class WebForm2
    Inherits System.Web.UI.Page

    Protected myCtrl As Ctrl.SelectedIndexChangedHandler
    'Protected tempCtrl As New Ctrl
    Private WithEvents xyz As New Ctrl
    Protected obj As New Ctrl.SelectedIndexChangedHandler(AddressOf ProcessIndexChangedEvent)
#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()

    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here

    End Sub
    Private Sub ProcessIndexChangedEvent(ByVal Sender As Object, ByVal e As DelegateInVB.Ctrl.SelectedIndexChangedEventArgs) Handles xyz.myselectedIndexChanged
        Response.Write("U Selected: " & e.SelectedItem.Text)
    End Sub

    Public Sub New()
        AddHandler xyz.myselectedIndexChanged, obj
    End Sub
End Class