عندي طريقة حلوة  
أعتبر التليفونات فورم أسمه x 
أعمل نموذج تاني اسمه  Password  
أعمل Text Box : UserName  And PassWord  
,اعمل ايكون Ok  
في Icon Ok Procedure  
Write This Code  
If UserName.Value = "ashraf" 
And Passeword.value = " Madkour 
then 
 Open X  
Else  
close me  
close X  
End If  
 
و قققوللى