Guest User

Untitled

a guest
Jan 22nd, 2018
27
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.59 KB | None | 0 0
  1. Public Class Form1
  2.  
  3. Dim Username As String = "Josh"
  4. Dim Password As String = "123"
  5.  
  6.  
  7.  
  8. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  9. Dim submituser As String = TextBox1.Text
  10. Dim submitpass As String = TextBox2.Text
  11.  
  12. If submituser = Username And submitpass = Password Then
  13.  
  14.  
  15.  
  16. MessageBox.Show("You are now logged in", "Confirmed")
  17.  
  18. ElseIf submituser = "" Or submitpass = "" Then
  19. MessageBox.Show("Wrong Login", "Error", MessageBoxButtons.OK)
  20.  
  21.  
  22. End If
  23. End Sub
  24. End Class
Add Comment
Please, Sign In to add comment