Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            CreateTableList()
        End If
    End Sub

    Private Function CreateLink(ByVal Index As Integer) As LinkButton
        Dim HL As LinkButton = New LinkButton
        HL.ID = "HL_" & Index
        HL.Text = "Load"
        Return HL
    End Function

    Private Function CreateCallBackPanel(ByVal Index As Integer, ByVal HL As LinkButton) As EO.Web.CallbackPanel
        Dim CBP As EO.Web.CallbackPanel = New EO.Web.CallbackPanel
        CBP.ID = "CBP_" & Index
        CBP.LoadingHTML = "<DIV><IMG src='images/manage/loading.gif'></DIV>"
        CBP.Controls.Add(New LiteralControl("->"))

        Dim Trigger As EO.Web.CallbackTrigger = New EO.Web.CallbackTrigger(HL.ClientID, Index)
        CBP.Triggers.Add(Trigger)

        AddHandler CBP.Execute, AddressOf CallbackPanelExecute
        Return CBP
    End Function

    Private Sub CallbackPanelExecute(ByVal sender As System.Object, ByVal e As EO.Web.CallbackEventArgs)
        System.Threading.Thread.CurrentThread.Sleep(1000)
    End Sub

    Private Sub CreateTableList()
        For Index As Integer = 1 To 10
            Dim Cell As TableCell = New TableCell
            Dim HL As LinkButton = CreateLink(Index)
            Cell.Controls.Add(HL)

            Dim Row As TableRow = New TableRow
            Row.Cells.Add(Cell)

            Cell = New TableCell
            Cell.Controls.Add(CreateCallBackPanel(Index, HL))
            Row.Cells.Add(Cell)

            TblList.Rows.Add(Row)
        Next
    End Sub