Como Criar um Gerador de Palavras Avançado #2

Video aula # 1 Click aqui e assista para entender essa

Para fazer esse tutorial 

você ira precisar do 

Visual Studio Community que é a Versão Gratuita que usei

DOWNLOAD

Se Inscrevendo no

Meu Canal

VER Canal

--------------------------------------------------------------
Código do programa Completo

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim key As Integer        key = (Rnd() * 5)
        Select Case key
            Case 0
                Label1.Text = (TextBox1.Text + " é Viado")
            Case 1
                Label1.Text = (TextBox1.Text + " é Lindão")
            Case 2
                Label1.Text = (TextBox1.Text + " é Gostoso")
            Case 3
                Label1.Text = (TextBox1.Text + " é Feio")
            Case 4
                Label1.Text = (TextBox1.Text + " é Legal")
            Case 5
                Label1.Text = (TextBox1.Text + " é Burro")
        End Select        TextBox1.Clear()
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If TextBox1.TextLength = 0 Then
            Button1.Enabled = False
        Else
            Button1.Enabled = True
        End If
    End Sub

Private Sub Label2_MouseMove(sender As Object, e As MouseEventArgs) Handles Label2.MouseMove
        Label2.BackColor = Color.Black
        Label2.ForeColor = Color.White
    End Sub

    Private Sub Label2_MouseLeave(sender As Object, e As EventArgs) Handles Label2.MouseLeave
        Label2.BackColor = Color.White
        Label2.ForeColor = Color.Black
    End Sub

Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        TextBox1.Clear()
        Label1.Text = ("")
    End Sub

--------------------------------------------------------------

--------------------------------------------------------------