Several buttons doing the same actions on different controls

[AbhayD]

I am a beginner in programming and I would like you to help me to perform an action certainly basic. I created a sort of calendar with buttons to delete the appointment. Click on the button 9h delete rdv of 9h, 10h deletes rdv 10h and so on. The code is super heavy whether to put each time on each button.

Example:

 Private Sub btnSuppr9h_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuppr9h.Click
        btnrdv1.Text = "none rdv"
        lblProblem1.Text = ""
        Panel9h.BackColor = Color.ForestGreen
        btnSuppr9h.Enabled = False
    End Sub
 
    Private Sub btnSuppr10h_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuppr10h.Click
        btnrdv2.Text = "none rdv"
        lblProblem2.Text = ""
        Panel10h.BackColor = Color.ForestGreen
        btnSuppr10h.Enabled = False
    End Sub
 
    Private Sub btnSuppr11h_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuppr11h.Click
        btnrdv3.Text = "none rdv"
        lblProblem3.Text = ""
        Panel11h.BackColor = Color.ForestGreen
        btnSuppr11h.Enabled = False
    End Sub

Is there a way to make such a function that puts a number (1, 2, 3, 4, ..., 10) after the name of a control? (btnrdv1.text, btnrdv2.text, btnrdv10.text). I searched a lot but I have not found a solution corresponding to my case, even in the MSDN.

[kelfro]

Here is an example on a button

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_1.Click, Button_1.Click, Button_2.Click, Button_3.Click, .......

You must then retrieve/use sender who will have to click and action will be taken on your other objects.

[AbhayD]

Thank you very much, it taught me to use the sender. It gives me this:

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuppr9h.Click, btnSuppr10h.Click, btnSuppr11h.Click
 
        If DirectCast(sender, Button) Is btnSuppr9h Then
            btnrdv1.Text = "none rdv"
            lblProblem1.Text = ""
            Panel9h.BackColor = Color.ForestGreen
            btnSuppr9h.Enabled = False
        ElseIf DirectCast(sender, Button) Is btnSuppr10h Then
            btnrdv2.Text = "none rdv"
            lblProblem2.Text = ""
            Panel10h.BackColor = Color.ForestGreen
            btnSuppr10h.Enabled = False
        ElseIf DirectCast(sender, Button) Is btnSuppr11h Then
            btnrdv3.Text = "none rdv"
            lblProblem3.Text = ""
            Panel11h.BackColor = Color.ForestGreen
            btnSuppr11h.Enabled = False
        End If

There is not a means to further reduce the code?

[kelfro]

Avoid using If...Then...Else Statement. The Select...Case Statement might be more useful when evaluating a single expression that has several possible values. You can use multiple expressions or ranges in each Case clause.

[AbhayD]

Thank you very much, it reduces the code and makes it more readable.

Select Case True
            Case sender Is btnSuppr9h
                btnrdv1.Text = "none rdv"
                lblProblem1.Text = ""
                Panel9h.BackColor = Color.ForestGreen
                btnSuppr9h.Enabled = False
            Case sender Is btnSuppr10h
                btnrdv2.Text = "none rdv"
                lblProblem2.Text = ""
                Panel10h.BackColor = Color.ForestGreen
                btnSuppr10h.Enabled = False
            Case sender Is btnSuppr11h
                btnrdv3.Text = "none rdv"
                lblProblem3.Text = ""
                Panel11h.BackColor = Color.ForestGreen
                btnSuppr11h.Enabled = False
End Select

Is there still something to be done to improve a little?