PROGRAMA PARA [Ô]EXTRAIR[Ô] ARQUIVO.

  Public Class LoginForm1

    [ô] TODO: Insert code to perform custom authentication using the provided username and password 
    [ô] (See http://go.microsoft.com/fwlink/?LinkId=35339).  
    [ô] The custom principal can then be attached to the current thread[ô]s principal as follows: 
    [ô]     My.User.CurrentPrincipal = CustomPrincipal
    [ô] where CustomPrincipal is the IPrincipal implementation used to perform authentication. 
    [ô] Subsequently, My.User will return identity information encapsulated in the CustomPrincipal object
    [ô] such as the username, display name, etc.

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If UsernameTextBox.Text = [Ô]user7[Ô] Then
            If PasswordTextBox.Text = [Ô]clam[Ô] Then
                MsgBox([Ô]Acesso Permitido.[Ô], MsgBoxStyle.Information, [Ô]Acesso Permitido[Ô])
            End If
        End If
        If UsernameTextBox.Text <> [Ô]user7[Ô] Or PasswordTextBox.Text <> [Ô]clam[Ô] Then
            MsgBox([Ô]ACESSO NEGADO![Ô], MsgBoxStyle.Critical, [Ô]ACESSO NEGADO[Ô])
        End If
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

    Private Sub UsernameTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsernameTextBox.TextChanged

    End Sub
End Class