Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Char = Chr(KeyAscii)
KeyAscii = Asc(Char)
If KeyAscii = 13 Then
If Text1.Text = "özlem esra" Then
MsgBox ("şifreyi giriniz")
Else
MsgBox ("yanlış/ad soyad")
Form1.Show
Form2.Hide
End...