Passing a delegate to procedure

See more:

VB

In my form I have:

Private Sub AssignMenuHandler
  For Each historyItem In _historyMenu.HistoryItems
    menItem = historyItem.MenuItem
    AddHandler menItem.Click, AddressOf MenuHandler
  Next
End Sub

Public Sub MenuHandler(ByVal sender As Object, ByVal e As EventArgs)
  Dim menuItem As ToolStripMenuItem = CType(sender, ToolStripMenuItem)
  Dim historyItem As String

  historyItem = menuItem.Text .....

But I want to do the asignment in the HistoryMenu class when the historyItem.MenuItems are created. To do that I need something like

Private Sub LoadHistory(ByVal mainMenuItem As ToolStripMenuItem, delegateProcedure as ???)
  Dim menTemp As System.Windows.Forms.ToolStripMenuItem
  Dim menuText As String

  Dim historyItem As HistoryItem
  For Each historyItem In _historyItems
    menTemp = historyItem.MenuItem
    AddHandler menTemp.Click, AddressOf delegateProcedure
  Next
End Sub

How do I declare delegateProcedure? How do I define it in the form? Can it be done?

[edit]Code blocks added - OriginalGriff[/edit]