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
Most   Popular
Upcoming Events

.NET Insight

Sign up for our newsletter.

Terms and Privacy Policy consent

I agree to this site's Privacy Policy.