COMO FAZER SISTEMA DE LOGIN C/ GERAÇÃO DE SENHAS NOVAS!

COMO FAZER SISTEMA DE LOGIN C/ GERAÇÃO DE SENHAS NOVAS! [VB.Net]

NESSE VIDEO USEI O VISUAL BASIC 2008, MAS TAMBÉM SERVE O 2010!

CÓDIGOS: 

INSTRUÇÕES: CLIQUE 2 VEZES NA FORM , DE CTRL+A , E APAGUE TUDO, AGORE COLE ISTO:

Public Class Form1

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

        If TextBox3.Text = (TextBox1.Text) And TextBox2.Text = "Admin" Then

            Form2.ShowDialog()

        Else

            MsgBox("Erro, Tente Novamente!")

        End If

    End Sub

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

        If TextBox3.Text = "" Then

            Dim alfabeto As String = ""

            For i = 65 To 90

                alfabeto += Chr(i)

            Next

            Dim numero As New Random

            Dim letra As String = ""

            For i = 0 To 7

                letra += alfabeto(numero.Next(0, 24).ToString())

            Next

            TextBox1.Text = letra

            TextBox1.SelectAll()

            TextBox1.Copy()

            TextBox3.Paste()

        Else

            TextBox3.Clear()

            Dim alfabeto As String = ""

            For i = 65 To 90

                alfabeto += Chr(i)

            Next

            Dim numero As New Random

            Dim letra As String = ""

            For i = 0 To 7

                letra += alfabeto(numero.Next(0, 24).ToString())

            Next

            TextBox1.Text = letra

            TextBox1.SelectAll()

            TextBox1.Copy()

            TextBox3.Paste()

        End If

    End Sub

End Class

ASSISTA AO VIDEO COMPLETO: