LOGIN E SENHA

Vamos precisar de:
2 Forms
2 TextBox
1 Botão

Form1 - Text: Login
Form2 - Text: Logado - Name: frmLogado
Botão - Text: Login
TextBox1 - Name: txtLogin
TextBox2 - Name: txtSenha - Propriedade: UseSystemPassword = True

Clique duas vezes no botao Login e coloque o código abaixo:

 If txtLogin.Text = "Admin" And txtSenha.Text = "123456" Then
            frmLogado.Show()
        ElseIf txtLogin.Text <> "Admin" Or txtSenha.Text <> "123456" Then
            MsgBox("Usuário ou Senha inválidos!")
        End If

Obs: Login: Admin - Senha: 123456 Para mudar a senha e o login altere as partes em vermelho do código com dados de sua preferência...