Addhandler......

how do i do get menuitem "Connect" in addhandler ?

Private Sub mnuIrc_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnuIrcConnect.Click, mnuIrcPref.Click,
mnuIrcExit.Click

Dim mi As MenuItem = CType(sender, MenuItem)
Select Case mi.Text
Case "Connect"
Dim p As Integer = 6667

DisplayMessage(nStatus.rtbStatus, "Connection
established..." & Netsock.ServerName)
Netsock.Connect(Netsock.ServerName, p)
Netsock.SendData(Netsock.StringToBytes("PASS
PirateChat" & vbCrLf))
Netsock.SendData(Netsock.StringToBytes("NICK " &
Netsock.Nick & vbCrLf))
Netsock.SendData(Netsock.StringToBytes("USER " &
Netsock.Nick & " " & Netsock.RealName & vbCrLf))
nStatus.Text = "Status :" & Netsock.ServerName

Case "Preferences..."
frmPref.MdiParent = Me
frmPref.Show()

Case "Exit"
Me.Close()
End Select

AddHandler mnuIrcConnect.Click, AddressOf mnuIrc_Click ===> i
wanted to select "Connect"

i can used this addhandler above and no problem.
regards