السلام عليكم ورحمة

اولا صورة التصميم

بعدين نروح عند TEXT2

ونعمل مثل هذه االصورة الموجود بالخصائص

ونضع * لكي يصير كامثل الرقم السري >>>يعرف يتكلم

ثم نروح عند عند الزر

وندخل إلى صفحة البرمجة

 
Public Class Form1 
'هذا الكود مقدم من منتديات روابط الصداقة 
'Www.8amity.net 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
'هذا الكود مقدم من منتديات روابط الصداقة 
'Www.8amity.net 
Dim a As String, aa As String, ff As String, bb As String 
a = Text1.Text 
ff = Text2.Text 
aa = "منتديات روابط الصداقة" 
bb = "Www.8amity.net" 
'هذا الكود مقدم من منتديات روابط الصداقة 
'Www.8amity.net 

If a = aa And ff = bb Then 
MsgBox("تم الدخول") 
'هذا الكود مقدم من منتديات روابط الصداقة[/right] 
  
'Www.8amity.net [right] 
ElseIf a = a And ff = ff Then 
MsgBox("أدخل كلمة المرور أو اسم المستخدم الصحيح") 
End If 
End Sub 
End Class

مثل هذه الصورة

ثم أضغط F5

==----=-=-=-=-=-=-=-=-=
مع العلم ترى انا غيرت الصيغ
TEXTBOX1 إلى TEXT1
TEXTBOX2 إلى TEXT2
==----=-=-=-=-=-=-=-=-=
زورونا
بمنتديات روابط الصداقة
:: منـتديات روابط الصداقة ::