Private Sub Buttons_Clicked( ... ) Handles Button1.Click, Button2.Click, _
  Button3.Click
    Select Case sender
        case Button1
             ...
        case Button2
             ...
        case Button3
             ...
    end select
end Sub

Meine Homepage: www.dartrax.de