Bonjour,  
 
Sujet pas nouveau mais malgré toutes mes recherches, je ne trouve pas le pourquoi du comment.
Voici mon code :
-----------
"Form TDB"
Public Class TDB
    Public produit_trouve As Integer
        Public Sub Init()
            choix_centrale.Show()
                Select Case (produit_trouve)
                   Case 0
                      Label1.Text = "SIR3"
                   Case 1
                      Label1.Text = "GSM"
                   Case 2
                      Label1.Text = "SIRGSM"
                End Select
        End Sub
End Class
-----------
"Form choix_centrale"
Public Class choix_centrale
    Private Sub Bouton_SIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton_SIR.Click
        TDB.produit_trouve = 0
        Me.Hide()
    End Sub
 
    Private Sub Bouton_GSM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton_GSM.Click
        TDB.produit_trouve = 1
        Me.Hide()
    End Sub
 
    Private Sub Bouton_SIRGSM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton_SIRGSM.Click
        TDB.produit_trouve = 2
        Me.Hide()
    End Sub
End Class
 
---------
 
Pourtant, le Label1 affiche toujours le cas "0"

 
           Bonjour.
 
           Je ne comprend pas ce choix de classe …
 
           Utiliser la propriété  Tag  par exemple est une solution simple pour passer un paramètre à un Userform …