Public Class Form1

    Private Sub CommandA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CommandA.Click
        MsgBox("You clicked Button A")
    End Sub

    Private Sub Command B_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CommandB.Click
        MsgBox("You clicked Button B")
    End Sub