Public Class Form1
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
If nama.Text = "dimas" And pasword.Text = "123" Then
Me.Hide()
Else
MsgBox("Perhatikan Pasword Anda")
nama.Text = ""
pasword.Text = ""
End If
End Sub
End Class
Maka Akan Tampil Seperti Gambar Berikut :
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
If nama.Text = "dimas" And pasword.Text = "123" Then
Me.Hide()
Else
MsgBox("Perhatikan Pasword Anda")
nama.Text = ""
pasword.Text = ""
End If
End Sub
End Class
Maka Akan Tampil Seperti Gambar Berikut :
Tidak ada komentar:
Posting Komentar