[ربيع]

نحمده ونصلي على رسوله الكريم

انظر لما بعد handles وقس على ذلك باقي الكود

كود :

Private Sub TextBox1_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating, TextBox3.Validating, TextBox2.Validating

    Dim tb As TextBox = CType(sender, TextBox)

    Select Case tb.Name
        Case "TextBox1"
            If tb.Text.Trim().ToLower() = "1s" Then
                MsgBox("اجابتك صحيحة")
                tb.BackColor = SystemColors.Window
            Else
                MsgBox("اجابتك خاطئة")
                tb.BackColor = Color.Red
            End If

        Case "TextBox2"
            If tb.Text.Trim().ToLower() = "2s" Then
                MsgBox("اجابتك صحيحة")
                tb.BackColor = SystemColors.Window
            Else
                MsgBox("اجابتك خاطئة")
                tb.BackColor = Color.Red
            End If

        Case "TextBox3"
            If tb.Text.Trim().ToLower() = "3s" Then
                MsgBox("اجابتك صحيحة")
                tb.BackColor = SystemColors.Window
            Else
                MsgBox("اجابتك خاطئة")
                tb.BackColor = Color.Red
            End If
    End Select
End Sub