Login
Program
ini adalah langkah untuk membuat From
Login
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Password.PasswordChar = "*"
End Sub
Private Sub Btn_OK_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btn_OK.Click
If
Username.Text = "Dwi Nuraini" And Password.Text = "1701"
Then
MsgBox("Selamat
Datang")
Form2.Show()
Else
MsgBox("Maaf!
Password Anda SALAH!")
Username.Text = ""
Password.Text = ""
Username.Focus()
End If
End Sub
Private Sub Btn_Keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btn_Keluar.Click
End
End Sub
End Class
Read Users' Comments (0)