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