Private Sub Command1_Click()
If txtuser.Text = "я" And txtpassword.Text = "1122" Then
MDIform1.Show
Unload Me
Else
MsgBox "Sxl e", vbCritical, "error"
End If
End Sub

Private Sub Command2_Click()
End
End Sub



Private Sub Command3_Click()
frmChangePass.Show vbModal
End Sub

Private Sub Form_Load()
Me.Height = 2250
End Sub