Mayumi Blogger Template

Public
Class Form1

Private
Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

txtpass.Text = ""

txtpass.Focus()

End
Sub

Private
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim peringatan As MsgBoxResult

If txtpass.Text = "TEST"
Then

form2.show()

Else

peringatan = MsgBox("Password anda salah, apakah mau diulangi?", MsgBoxStyle.OkCancel Or MsgBoxStyle.Critical, "Peringatan")

If peringatan = MsgBoxResult.Ok Then

txtpass.Text = ""

txtpass.Focus()

Else : End

End
If

End
If

End
Sub

End
Class