[Anas Mahmoud]

يجب ان تضيف عمود اخر في الجدول من نوع Integer يحتوي على Index الاجابة الصحيحة وليكن اسمه Answer

بعد ذلك تقوم بتعريف array تحتوي على الليبلات الخمسة كما اخبرك اخي عبد الهادي بارك الله فيه

وفي حدث الضغط على الليبلات  تقوم باحضار الاجابة الصحيحة الحالية واختبار اذا تم الضغط على الليبل المقابل لها ام لا :

كود :

   Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click,
       Label2.Click, Label3.Click, Label4.Click, Label5.Click

       Dim lbl As Label = sender
       Dim AnswerIndex As Integer = Me.BindingContext(DataSet1, "Table1").Current.Item("Answer")



       If lst_labl(AnswerIndex) Is lbl Then
           lbl.BackColor = Color.Green
       Else
           lbl.BackColor = Color.Red
       End If
   End Sub