Private Sub Command1_Click()
If Text1 = "isim" And Text2 = "parola" Then
cevap = MsgBox("Kullanıcı Adı Ve Parola Doğru", vbInformation, "Giriş Doğru")
Form2.Show
Form1.Hide
ElseIf Text1 = "" And Text2 = "" Then
cevap = MsgBox("Lütfen Kullanıcı Adı Ve Parola Giriniz", vbExclamation, "Giriş Eksik")
ElseIf Text1 = "" Then
cevap = MsgBox("Lütfen Kullanıcı Adı Giriniz", vbExclamation, "Giriş Eksik")
ElseIf Text2 = "" Then
cevap = MsgBox("Lütfen Parola Giriniz", vbExclamation, "Giriş Eksik")
Else
cevap = MsgBox("Kullanıcı Adı Veya Parola Hatalı", vbCritical, "Giriş Hatalı")
End If
End Sub

Private Sub Command2_Click()
cevap = MsgBox("Çıkmak İstediğinizden Emin misiniz", vbQuestion + vbYesNo, "Çıkış")
If cevap = vbNo Then
Else
End
End If
End Sub