İyi Günler ArkadaşLar Şimdi ÖnceLikLe Visual ßasic 6 Açıy0ruz.
2 adet Textß0x ve ßir adet ßut0n oLuturalım.
ßuttonumuza tıklayıp kod hanemize girip Şunları tanımıyoruz
Önelikle Textimizi Tanımlıyalım

s1 = text1.text
s2 = text2.text

ßöyLeLikLe napmış olduk diceksiniz
oluşturudğumzuz TextLere İsim verdik Text1.Text Değilde s1 diye tanımlıyacağız.Kodumuza Dewam edeLim.

s1 = text1.Text
s2 = text2.Text
If s1 = "Stres" and s2 = "123456" Then

ßurdada dedikki s1 stres s2 123456 ise o zaman ( Diyelimki form2 yada ßir mesaj yazsın veyatta 2 sini ßirden yapsın )

s1 = Text1.Text
s2 = text2.Text
If s1 = "Stres" And s2 = "123456" then
Form2.show
Msgbox "Başarıyla Giriş Yaptın" , vbInformation , "ßurayada ßaşlığımız"
End If

yukarda dedikki kullanıcı adı o ise şifre o ise ßana form2yi açıy0sun ve 0ndan s0nra ßana ßaşarılı Giriş Yaptın Diye vbInformation yani haßer ßilgi Uyarı Ver diy0sun ve 0ndan s0nra ßaşlığımız neyse yaz dedik taßikide ondan sonra açtığımız If'i end ıf olarak ßitiriy0ruz.
Diyelimki ßir Yaratık GeLdi Hiç ßişi Yazmadı.
Onada Sizlerle ßir Çözüm Üretelim.

s1 = Text1.Text
s2 = Text2.Text
[COLOR="Blue"]If s1 = "" And s2 = "" Then
MsgBox "Boş Bıraktın Kamil", vbCritical, "ßaşlık"[/COLOR]
ElseIf s1 = "Stres" And "123456" Then
Form2.Show
MsgBox "Başarıyla Giriş Yaptın", vbInformation, "ßurayada ßaşlığımız"
End If

0raya ek olarak dedikki eğerki "" "" yani ßoşlık ßırakılırsa "ßoş ßıraktın Kamil" yazdır dedim.
Kolay GeLsin (: