Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Accueil Private Sub Accueil_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load cBox.Tag = 2.5 End Sub Private Sub bAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bAdd.Click Dim x As Double If cBox.Checked Then x = CDbl(cBox.Tag) x = x + 3.7 cBox.Tag = x End If End Sub Private Sub bAff_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bAff.Click MessageBox.Show(cBox.Tag.ToString) End Sub End Class