Bonjour, j'ai une erreur qui apparait à un certain moment dans mon application :
Erreur lors d'un handle de fenêtre

L'application est un simple jeu de lettre mélangé dont il faut retrouver le mot. A chaque nouveau jeu, l'application choisi un mot au hasard et créé dynamiquement des labels (le nombre de label correspond au nombre de lettre du mot).

Voila comment je créé et supprime les composants :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
        For a = 0 To lstl.Count - 1
            lstl(a).lbl.Dispose()
            Me.Controls.Remove(lstl(a).lbl)
        Next
 
        lstl.Clear()
 
        Dim r As New Random
        Dim m As String = bdd(r.Next(0, bdd.Count - 1))
        Dim i As Int16 = 0
        Dim n As Int16 = m.Count
 
        mot = m
        While m.Count <> 0
            Dim nb As Int16 = r.Next(0, m.Count - 1)
 
            lstl.Add(New lettre With {.number = i, .frm = Me})
            lstl(i).lbl.Text = m(nb)
            lstl(i).add(n)
 
            m = m.Remove(nb, 1)
            i = i + 1
        End While
La class lettre :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class lettre
    Public number As Int16
    Public texte As String = ""
    Public frm As New Form1
 
    Public lbl As New Label With {
        .AutoSize = False, .Size = New Size(50, 50), .ForeColor = Color.White,
        .BackColor = Color.CadetBlue, .BorderStyle = BorderStyle.FixedSingle,
        .TextAlign = ContentAlignment.MiddleCenter, .Font = New Font("Consolas", 16)
    }
 
    Public Sub add(ByVal n As Integer)
        Dim x As Int16 = ((750 - (n * 60)) / 2) + (60 * number)
        lbl.Location = New Point(x, 130)
        frm.Controls.Add(lbl)
    End Sub
End Class
D'après mes recherches l'erreur proviens d'un trop grand nombre de composants créé mais je supprime toutes mes labels à chaque nouveau jeu.

Merci d'avance.