Dim i As Integer
Private Sub Command1_Click()
Select Case Combo1.ListIndex
Case 0
If Val(Text1.Text) = 1988 Then
Form5.Show
Form6.Hide
Else
MsgBox "كلمة السر خاطئه", vbCritical, "تحذير"
End If
Case 1
If Val(Text1.Text) = 1989 Then
Form5.Show
Form6.Hide
Else
MsgBox "كلمة السر خاطئه", vbCritical, "تحذير"
End If
Case 2
If Val(Text1.Text) = 1988 Then
Form5.Show
Form6.Hide
Else
MsgBox "كلمة السر خاطئه", vbCritical, "تحذير"
End If
Case 3
If Val(Text1.Text) = 1987 Then
Form5.Show
Form6.Hide
Else
MsgBox "كلمة السر خاطئه", vbCritical, "تحذير"
End If
Case 4
If Val(Text1.Text) = 4 Then
Form5.Show
Form6.Hide
Else
MsgBox "كلمة السر خاطئه", vbCritical, "تحذير"
End If
Case 5
If Val(Text1.Text) = 5 Then
Form5.Show
Form6.Hide
Else
MsgBox "كلمة السر خاطئه", vbCritical, "تحذير"
End If
Case 6
If Val(Text1.Text) = 1990 Then
Form5.Show
Form6.Hide
Else
MsgBox "كلمة السر خاطئه", vbCritical, "تحذير"
End If
Case 7
If Val(Text1.Text) = 1985 Then
Form5.Show
Form6.Hide
Else
MsgBox "كلمة السر خاطئه", vbCritical, "تحذير"
End If
Case 8
If Val(Text1.Text) = 8 Then
Form5.Show
Form6.Hide
Else
MsgBox "كلمة السر خاطئه", vbCritical, "تحذير"
End If
Case 9
If Val(Text1.Text) = 9 Then
Form5.Show
Form6.Hide
Else
MsgBox "كلمة السر خاطئه", vbCritical, "تحذير"
End If
End Select
i = i + 1
If i = 3 Then End
End Sub
Private Sub Command2_Click()
ans = MsgBox("هل تريد الخروج", vbYesNo + vbQuestion, "خروج")
If ans = vbYes Then
End
Else
MsgBox ("أنت لا تريد الخروج")
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.ListIndex = 0
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.Value = True
End If
End Sub