Adding MenuItems & Events at Runtime

[nolc]

Does anyone know how to add MenuItems at runtime? Well...the below code does add them at runtime, but how do I add events to each added MenuItem? Basically I want to be able to change the Checked property to true and false and set the "checked" variable.

DIM checked as Integer
IF SubItem1 is Clicked THEN
SubItem1.Checked = True
SubItem2.Checked = False
SubItem3.Checked = False
checked = 1
ELSEIF SubItem2 is Clicked THEN
SubItem1.Checked = False
SubItem2.Checked = True
SubItem3.Checked = False
checked = 2
ELSEIF SubItem3 is Clicked THEN
SubItem1.Checked = False
SubItem2.Checked = False
SubItem3.Checked = True
checked = 3
END IF

CODE:
Dim mnuSubItem As New MenuItem()
mnuSubItem.Text = myGroup.GroupName

If table.Rows(i).Item(1) = True Then
USER_DEFAULTGROUP = table.Rows(i).Item(0)
mnuSubItem.Checked = True
Else
mnuSubItem.Checked = False
End If

frmMAIN.mnuOffice.MenuItems.Add(mnuSubItem)