İlk once 1 form oluşturalim

bu formda

2 label,2 text box , 2 command buton olusturalim.

labellerden birine ıd karsisina text1 koyalim (text box)

labellerden diğerine password karsisina text2 koyalim (text box)

dugmelerden birinin adini login, baglan istediginizi koyun

diğer dugmeyede exit ve ya cikiş adini veya istediginiz bir şey yazin

şimdi sira kodlara geldi

bağlan yazdiğimiz dugmeminin ustune tiklayip bu kodu yazin



Private Sub Command1_Click()

Select Case Text1.Text ’Bu kısımda kullanıcı adı kısmını tanıtıyoruz

Case Is = "" ’Burada ise kullanıcı kısmı boş olduğunda ne yapmak istediğiniz secersiniz

MsgBox " Bu kısmı boş bırakamssınız"

Case Is = "Sabote" ’kullanıcı adının Sabote olduğunu tanıttık

If Text2.Text = "Sabote" Then ’Yapılmasını istenen olay yani şifremiz

MsgBox ("Hoşgeldiniz")

End If

Case Else ’Eğer kullanıcı doğru değilse

MsgBox "Boyle bir kullanıcı adı bulunmamaktadır"
__________________