programmer l`evenement click dynamiquement

salut a tous, mon probleme est un peu special (peut etre classique aussi;))
je fais le parcours de ma table "EXAMEN" et avec un data reader j`affiche les nom des examens sous forme de boutons :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub ListeExamens_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim x As Integer = 70
            ' Préparer la requete.
            Dim sqlQRY1 As String = "SELECT Int_Exa FROM EXAMEN"
            myConnexion.Open()
            ' exécuter la requete
            Dim cmd1 As OleDbCommand = New OleDbCommand(sqlQRY1, myConnexion)
            Dim data_reader As OleDbDataReader = cmd1.ExecuteReader()
            Do While data_reader.Read()
                ' Déclarer le bouton
                Dim btn As New Button
                'lui donner une dimension
                btn.Size = New Drawing.Size(200, 30)
 
                'lui attribuer un texte
                btn.Text = data_reader.GetString(0)
 
                ' Lui donner une position
                btn.Location = New Drawing.Point(300, x)
                x += 50
                ' L'ajouter à la collection des contrôles de la fenêtre
                Me.Controls.Add(btn)
            Loop
            data_reader.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            myConnexion.Close()
        End Try
    End Sub

ceci est dans le load du form.
Jusque la tout se passe bien.
Maintenant je veux que lorsque je clique sur n`importe quel bouton un msgbox s`affiche avec message genre "vous avez choisi l`examen 2"
ou "vous avez choisi l`examen 3" ou tel.
Pour cela j`ai ecrit:

Code:

1
2
3
 Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("vous avez choisi l`examen tel")
    End Sub

mon probleme ici lorsque je clique sur n`importe quel bouton rien ne s`affiche :?
merci pour toutes interventions:zoubi: