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

comments powered by Disqus


Upcoming Events