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

If Text1.Text = "Admin" And Text2.Text = "1234" Then

Form2.Show

Exit Sub

Else

MsgBox "تأكد من بيانت الدخول "

Text2.Text = ""

End If

بالنسبة للحدث يمكن ك إختياره على كل حال

رد ألاخ akram_awad كامل ووافى وانا قمت بتجربته على أحد المشاريع التى أقوم عليها واعطى النتيجه المطلوبه

الا أنه يطلب ألاسم والبسوورد كل مره هل توجد طريقه لجعلها مره واحد فقط

هذا هو الكود المطلوب إن شاء الله :

Private Sub Command1_Click()
	If Text1.Text = "Admin" And Text2.Text = "1234" Then
		Open App.Path & "\File.txt" For Output As #1
			Write #1, Text1.Text & vbCrLf & Text2.Text
			Form2.Show
			Unload Me
		Close #1
	Else
		MsgBox "تأكد من بيانات الدخول"
		Text2.Text = ""
	End If
End Sub

Private Sub Form_Load()
	If Dir(App.Path & "\File.txt") <> "" Then
		Form2.Show
		Unload Me
	Else
		Exit Sub
	End If
End Sub

المثال مرفق

Password.rar

Private Sub Command1_Click()

If Text1.Text = "Admin" And Text2.Text = "1234" Then

Form2.Show

Unload Me

Exit Sub

Else

MsgBox "Make sure ur data is true"

End If

End Sub