مساعده في تصميم شاشة اسم المستخدم وكلمة المرور

Dim s As Integer 
Dim passw As String 
Do Until (s = 5 Or passw = "00000") 
passw = InputBox("ادخل كلمة المرور", "كلمة مرور مطلوبة") 
s = s + 1 
Loop 
If s = 5 Then 
MsgBox "كلمة المرور التي ادخلتها خاطئة... الرجاء حاول مرة أخرى", vbOKOnly, "خطأ في كلمة المرور" 
End 
'عرض النموذج بعد التأكد من تحقق الشرط 
frmLogo.Show "frmlogo" 
'خروج من التكرار 
End If
End Sub

 
 
if text2.text="khaled helal" then 
form2.show
else
exit sub
end if