Listing 2, Adding Events to User Controls
Private Sub AButton_Click(....) Handles AButton.Click, BButton.Click, ...
Dim lea As ButtonDataEventArgs
Dim btn As Button
btn = CType(Sender, Button)
lea = New ButtonDataEventArgs(btn.CommandArgument)
RaiseEvent LinkEvent(Me, lea)
End Sub
About the Author
Peter Vogel is a system architect and principal in PH&V Information Services. PH&V provides full-stack consulting from UX design through object modeling to database design. Peter tweets about his VSM columns with the hashtag #vogelarticles. His blog posts on user experience design can be found at http://blog.learningtree.com/tag/ui/.