Login System no database [VB.NET] - free

Form1

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox2.Text = "12" And TextBox1.Text = "12" Then
MsgBox("Logado com Sucesso")
Form2.ShowDialog()
Me.Close()



Else
If TextBox1.Text = "" And TextBox2.Text = "" Then
MsgBox("Usuario ou senha incorretos")
End If



End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()

End Sub
End Class

Form2

Public Class Form2
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "N9TT-9G0A-B7FQ-RANC" Then
MsgBox("You activated 1 hour to play")
Form3.ShowDialog()
Me.Close()

End If
End Sub
End Class

Form3

Public Class Form3
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Process.Start("")

End Sub
End Class