codice:
Private Sub HandleListbox(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butInsert.Click, InsertToolStripMenuItem.Click

Select Case DirectCast(sender,Control).Text
Case bla bla
End Select

End Sub