Kod:
Private Sub Command1_Click()
Select Case Text1.Text
Case Is = ""
MsgBox " Bu kısmı boş bırakamassınız."
[COLOR=Red]Case Is = "haibbi"[/COLOR]
[COLOR=YellowGreen]If Text2.Text = "turkhackteam" Then[/COLOR]
MsgBox ("Hoşgeldiniz")
End If
Case Else
MsgBox "Böyle bir kullanıcı adı bulunmamaktadır."
End Select
End Subkodumuz bu
kırmızı ile gösterdiğim " " yere kullanıcı adınızı
yeşil ile gösterdiğim yere şifrenizi yazabilirsiniz.
bu kodlar daha fazlada eklenebilir böylece kullanıcı sayısını arttırmış olursunuz.
