VB login.. ehehe

ahaha,, sekarang mari kita bikin login.. tapi ga pake database,,hehehehe !
ntar deh..
yang kita butuhin,
-textbox2
-commandbutton2
-label2
ganti propetis nya seperti dibawah ini..
textbox1 = name : txtnama
textbox2 = name : txtpass
command1 = name : cmdlogin
= caption : LOGIN
command2 = name : cmdkeluar
= caption : Keluar
label1 = caption : Nama :
label2 = caption : password :
atau seperti gambar dibawah ini..

nah.. kalo bisa mending samain,, ehehhee
ok,sekarang tulis coding di cmd login..
seperti ini..

Private Sub cmdlogin_Click()
If txtnama.Text = "ichamganteng" And txtpass.Text = "123" Then
MsgBox "yeah.. anda login sebagai " & txtnama.Text + vbCrLf + "" + vbCrLf + "selamat datang " & txtnama.Text, vbInformation, "Selamat datang"
Else
MsgBox "maaf salah satu,salah semuanya.. ehehe" + vbCrLf + "silahkan coba lagi user " & txtnama.Text, vbInformation, "DOTCOMNET"
End If
End Sub
dan tulis kan coding di cmdkeluar,,
seperti ini..
Private Sub cmdkeluar_Click()
a = MsgBox("yakin lu mau keluar ?", vbYesNo + vbQuestion, "DOTCOMNET")
If a = vbYes Then
MsgBox "terima kasih telah memakai soft kami..", vbInformation, "DOTCOMNET"
End
ElseIf a = vbNo Then
MsgBox "asikk euyy,, ga jadi keluar ahahaha", vbInformation, "DOTCOMNET"
End If
End Sub
ok.. tinggal jalanin.. eheheh !
oyah misalkan pengen diganti nama ama pass nya.. ganti ajah di txtnama dan txtpass nya.
ehehehe!
SEKIAN..
salam dari DOTCOMNET.