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

Se Inscrevendo no
Meu 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
--------------------------------------------------------------

--------------------------------------------------------------
você ira precisar do 
Visual Studio Community que é a Versão Gratuita que usei

Se Inscrevendo no
Meu Canal
--------------------------------------------------------------
Código do programa Completo
Public Class Form1    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ComboBox1.Items.Add("o que eu faço")

        ComboBox1.Items.Add("o que eu quero")

        ComboBox1.Items.Add("o que eu pretendo")
    End Sub    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Select Case ComboBox1.SelectedIndex
            Case 0
                Dim key As Integer
                  key = (Rnd() * 5)
                Select Case key 

                Case 0

                    TextBox1.Text = ("Tutorial 1")

                Case 1

                    TextBox1.Text = ("Tutorial 2")
                Case 2
                    TextBox1.Text = ("Tutorial 3")
                Case 3
                    TextBox1.Text = ("Tutorial 4")
                Case 4
                    TextBox1.Text = ("Tutorial 5")
                Case 5
                    TextBox1.Text = ("Tutorial 6")
            End Select                            

                Case 1

                    Dim key As Integer

                      key = (Rnd() * 5)

                    Select Case key                                 

                    Case 0   

                        TextBox1.Text = ("gostei 1")

                    Case 1

                        TextBox1.Text = ("gostei 2")

                    Case 2
                        TextBox1.Text = ("gostei 3")
                    Case 3
                        TextBox1.Text = ("gostei 4")
                    Case 4
                        TextBox1.Text = ("gostei 5")
                    Case 5
                        TextBox1.Text = ("gostei 6")
                End Select
                Case 2
                    Dim key As Integer
                      key = (Rnd() * 5)
                    Select Case key                                   

                    Case 0                        

                        TextBox1.Text = ("gostei 1")                   

                    Case 1                        

                        TextBox1.Text = ("Ensinar 2")

                    Case 2

                        TextBox1.Text = ("Ensinar 3")

                    Case 3
                        TextBox1.Text = ("Ensinar 4")
                    Case 4
                        TextBox1.Text = ("Ensinar 5")
                    Case 5
                        TextBox1.Text = ("Ensinar 6")
                End Select                  

             End Select   

         End Sub

End Class

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

--------------------------------------------------------------
-----------------------------------------------------------------------------
Imagens do Programa
-----------------------------------------------------------------
-----------------------------------------------------------------
-----------------------------------------------------------------
Versão 1.6
atualização de Desempenho,
agora quando clica em ativar ou em desativar
ira mostra um janela perguntando se você 
deseja mesmo prosseguir ou não
para evitar de você ter clicado sem querer
e dado inicio ao procedimento

Versão 1.5
Melhorias de Desempenho

 Programa Foi atualizado para Versão 1.4
Foram aplicadas varias Melhorias de Desempenho
e tb implementado a função Sim ou não quando você clica
em ativar ou desativar, quando você clicar em um dos dois
ira mostra a opção se você deseja mesmo prosseguir ou
não se a resposta for sim o processo sera continuado
se for não o processo sera encerrado
Porem a principal mudança foi na forma de Ativação
antes ativação era permanente porem tava tendo
uma certa imcopatibilidade com as versões
insider do Windows 10, então mudei o o modo
de ativação, Agora ativação ativa
qualquer uma das Versões Citadas abaixo
porem ele ativa por 180 Dias tanto o
office tanto Windows, caso o Seu 180
dias chega ao Fim e só ir la e ativar de novo
bem simples, assim ira evita ter complicações
na Hora de ativa
Obrigado a todos pela Compreensão
Sei que muitas Pessoas não gosta de depois ter
que reativar o Windows porem 180 Dias é muito
dias e mais fácil seu PC ter que ser formatado antes disso
do que você ter que reativar, porem agora ativação
sempre ira Funcionar sem nem um Problema

antes que o pc seja reiniciado
-----------------------------------------------------------------
Essa Ativador Foi Criado Por mim
e um ativador leve e simples e ativa de primeiro o Windows
Totalmente em Portuguese ele Ativa

 Todas Versões do :Windows 10, Windows 8.1, Windows 8, Windows 7,

 Todas Versões do: Office
-----------------------------------------------------------------
Se Inscreva no Meu Canal

VER Canal

Duvidas , ou Bug no Ativado envie uma Mensagem a mim

Contato



-----------------------------------------------------------------------------
Links Para Baixa o Ativador
-----------------------------------------------------------------------------
oque precisa para esse tutorial 
para instala online precisa de net

 e para instala offline precisa
ou da iso do windows 10 windows 8 /8.1
ou do DVD do windows 10 windows 8 /8.1

 Como Instalar o net framework 3 5 Sem Internet e com Internet no Windows 10 rápido e fácil 

 Se Inscrevendo no

Meu Canal
-----------------------------------------------------------------------------
Dism /online /enable-feature /featurename:NetFx3 /All /Source:H:\sources\sxs /LimitAccess
-----------------------------------------------------------------------------
Duvidas comenta

-----------------------------------------------------------------------------
este Programa Foi Criado para que você de forma rápida e fácil possa
remover os Aplicativos que vem padrão instalado no Windows 10
não recomendo em hipótese alguma você remover a loja do Windows
tome cuidado com a Opção "Dell All Apps" porque ela Remove
Todos os Aplicativos listado no Programa 'menos a loja' a loja
você tem que clica só nela para remover porque não aconselho
tirar ela, e a opção "Reset Apps" ela reinstala todos os apps
padrão que você desinstalo porem alguns ela instala em "inglês"
porque ele restaura o app ao original de fabrica
"mais é só dps ver quais apps ficarão em inglês ai desinstala ele e instala pela loja que fica em pt-br de novo"
-----------------------------------------------------------------
Modo de Uso
------------------
abra o programa " a primeira vez que abrir ele pode ser meio lento"
escolha o app que quer excluir e clica nele "primeira que você clicar demora um pouquinho para aparecer a janela de opção em quando não aparecer não clica em nada"
escolha sim / não se escolher sim o app sera desinstalado
se escolher não ele não sera desinstalado
se você escolher sim aguarde sem clica em nem uma parte do programa
ate aparece a janela informando que o procedimento foi um sucesso
apareceu isso da ok e pode desinstala outro app ou fechar o programa
enquanto o programa tiver desinstalando app não clica nele
e nem abra os apps padrão da microsoft, mais pode continua mexendo
em apps ou programa de terceiros que você instalo ate o processo chegar
ao fim que não a vera complicações



-----------------------------------------------------------------------------
Links Para Baixa o Programa

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

Corrigindo Erro steam needs to be online to update. please confirm your network connection and try again Atualizado

-----------------------------------------------------------------------------
a ums anos atrás meu steam deu um erro na hora da instalação
'steam needs to be online to update. please confirm your network connection and try again'
então eu postei no fórum do steam e mandei uma massagem para o suporte do steam e nada
procurei em vários fórum e um cara falo que eu tinha que exclui o
'crashhandler.dll' e o 'bootstrap_log.txt" exclui e nada  tive que
instala de novo então eu lembrei que o log era .txt abri ele com bloco de
notas e percebi que tudo que tava na caixa de carregamento tava
escrito no bloco de notas eu vi la download e ums nomes com
vários números e letras então pesquisei o nome e achei em um fórum
sobre o mac e que tinha dado um erro semelhante
e no fórum tava que era para eu pega o código e junta com
'media.steampowered.com' fiz e deu certo depois que baixei tudo suponho que eu tinha que
coloca na pasta packages coloquei abri meu steam e tudo ok
e resolvi fazer o tutorial. falow galera avalia o vídeo e é isso
-----------------------------------------------------------------------------
Links Para Baixa o Programa

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

Atenção só é recomendado a utilização desse programa a parti da BUILD 10586

-----------------------------------------------------------------------------
Ola Meu Nome nome é Victor Sou Criador desse
Programa e Criei ele Com Muito Esforço Para
Que Facilitasse a Vida de Voçes na hora que vocês
fossem Personalizar seu Windows 10 Coloquei
4 Opções nesse Programa 1° é o Thema White
que deixa os App com Fundo Branco e a cor segundaria
que voce coloca em opção de cor sera a cor de inicialização
desse app, 2° é o thema black só que deferente do White
ele deixa o funto dos App escuro e os mesmo inicia com
a tela escura, esse tema com a cor secundaria escura fica muito
show, as janelas inativa fica com a cor escuras 3° e o Rest Thema
que restalra as configurações Padrão do Windows 10
4° e a Opção de costumização de cor onde voce pode
coloca a cor deseja nas janelas inativa usando codigo das
cores. Se Gosto do Progama me Ajuda Se Inscrevendo no
Meu Canal
VER Canal
-----------------------------------------------------------------------------
Links Para Baixa o Programa

 DOWNLOAD¹ DOWNLOAD²


    Atualização Recente 17/03/2016
    Inserido Remover Marca D’Água e opção .de Bloqueio e foi corrigido bugs

     o Novo ativado ta com designer mais elegante e simples
    todas as funções foram melhoradas

     agora nessa versão ele veio completo com todas as funções do VKS antigo

     o sistema de registro de atualização para verificar se o Ativador tem uma nova atualização foi melhorado agora com links clicáveis para baixar nova versão

     agora também possui a opção de remover a marca d'agua do windows

     o ativador ativa

     todas versões do windows
    todas versões do windows Serve
    todas versões do office

     ativador criado pelo Fernando da smalltech
    em parceria comigo Victor Matos

    Inscreva-se No Meu Canal

    NOVO CANAL  Da Smalltech

    LIKE + FAVORITO + COMPARTILHE + INSCREVA-SE!
    TWITTER.COM/SMALLTECH_ OU @SMALLTECH_

    Clique Donload e Baixe A Verção Mais Recente do Ativador
    Opção 2° de dowload do ativador VKS LITE
    Visite A Pagina Da SmallTech E Desfrute de Varios Downloads
    Assinar: Postagens (Atom)