[الاستاذ خليل]

قومي بجعل خاصية الاخفاء للاجابات TextBox1 و غيره الى مخفية
و امسحي جميع الكود في الشريحة رقم 5 و استبدليه بهذا الكود
اذا ضغطتي على ليبل Label1 سيقوم باضهار مربعات النصوص TextBox1 و غيره و سم يحسب الوقت في Label1 و بعدما سينتهي الوقت سيخفي مربعات النصوص TextBox1 و غيره

اليكم الكود

Private Sub CommandButton1_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub




Private Sub CommandButton3_Click()

sumq = sumq + 1
If TextBox1.Text = 3 Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If
sumq = sumq + 1
If TextBox2.Text = 4 Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If
sumq = sumq + 1
If TextBox3.Text = 2 Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If
sumq = sumq + 1
If TextBox4.Text = 1 Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If
Label2 = " عدد الأسئلة: " & sumq & "         عدد الإجابات الصحيحة: " & trueq & "          التقدير:             " & taqdeeruzer
Call taqdeer
End Sub

Private Sub Label1_Click()
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
Dim a As Integer
'If a <> 0 Then GoTo 10

a = 0
' تم تسجيل الماكرو 19 شباط، 08 بواسطة khalil
10
a = a + 1

'Slide5.Label2.Caption = a
  Label1.Caption = a
  Dim Start As Long
    Start = Timer
    Do While Timer < Start + 1 'a 3 second delay (Change To any numer you want)


        DoEvents ' Yield To other processes.
        Loop
       If a = 10 Then
     'MsgBox ("نفذ الوقت")
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
CommandButton3_Click
     Exit Sub
     
     End If
     
      GoTo 10
 

End Sub