[عبد الهادي بهاب]

ممكن هذا السيناريو
في العام نعلن عن مصفوفة  اليبالات الخمسة

PHP كود :

 Dim lst_labl() As Label 


الان في form_load نضع فيها قائمة الليبلات  الخمسة

PHP كود :

lst_labl = {Label1, Label2, Label3, Label4, Label5} 


الان في نضيف هذا الحدث الذي يشمل الليبلات الخمسة اي نضع فيها نفس الشرط  

PHP كود :

Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click, Label4.Click, Label3.Click, Label2.Click, Label1.Click
        Dim labclicker As Label = DirectCast(sender, Label)

        If labclicker.Text = "bonne_reponse" Then
            labclicker.BackColor = Color.Green
        Else
            labclicker.BackColor = Color.Red
            For i = 0 To 4
                If lst_labl(i).Text = "bonne_reponse" Then
                    lst_labl(i).BackColor = Color.Green
                End If
            Next
        End If
    End Sub 


في الشكل المرافق الليبال هو الذي فيه a2 a3 a4 a5a6 وليس r1 .........الخ
اجعل التكست بوكس للقراءة فقط و  eanable = false