17-05-14, 06:42 PM
ده كود اسم المستخدم ali وكلمة السر 123456
Private Sub Command2_Click()
If Text1.Text = "ALI" And Text2.Text = "123456" Then
Form1.Hide
Form2.Show
Text1.Text = ""
Text2.Text = ""
Else
MsgBox "password worng", vbOKOnly + vbCritical, "worng"
End If
End Sub
Private Sub Command2_Click()
If Text1.Text = "ALI" And Text2.Text = "123456" Then
Form1.Hide
Form2.Show
Text1.Text = ""
Text2.Text = ""
Else
MsgBox "password worng", vbOKOnly + vbCritical, "worng"
End If
End Sub
