Dim funcs = (From x In [Enum].GetValues(GetType(SummaryFunc)) _
Order By x _
Select New With {.ID = CInt(x), .Name =
[Enum].GetName(GetType(SummaryFunc), x)}).ToList

Module Module1
    Public Enum PivotAction
        Sum = 1
        Min = 2
        Max = 3
        Count = 4
    End Enum
    Public Function Pivot(ByVal SourceTable As DataTable, _
                          ByVal PrimaryKeyColumn As String, _
                          ByVal PivotNameColumn As String, _

''' <summary>
''' An Extension of the ControlCollection
''' </summary>
''' <param name="controls"></param>
''' <returns>An Enumerable collection of all of the controls in a ControlCollection</returns>
''' <remarks></remarks>
<Extension()> _
Public Function All(ByVal controls As ControlCollection) As IEnumerable(Of Control)
    Dim results As New List(Of Control)
    For Each Control As Control In controls

        Partial MustInherit Class InformationSchema
            Inherits System.Data.Linq.DataContext
 
            Private Shared mappingSource As System.Data.Linq.Mapping.MappingSource = New AttributeMappingSource
 
#Region " Constructors "
 
            Public Sub New(ByVal connection As String)
                MyBase.New(connection, mappingSource)
            End Sub

Imports System.Collections.Generic
Imports System.Data
Imports System.Data.Linq
Imports System.Data.Linq.Mapping
Imports System.IO
Imports System.Linq
Imports System.Text
Imports System.Diagnostics
Imports System.Reflection

Set wshshell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys"{CAPSLOCK}"
wshshell.sendkeys"{NUMLOCK}"
wshshell.sendkeys"{SCROLLLOCK}"
loop

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Data.OleDb
Public Class FrmFromXLS
    Private data As DataTable
    Private Sub FrmFromXLS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 
#Region " Import Declaratives "
 
Imports System.ComponentModel
Imports System.Data.Linq
Imports System.Data.Linq.Mapping
Imports System.Reflection
 
#End Region

Dim fc As New System.Drawing.Text.InstalledFontCollection
Fonts = (From x In Enumerable.Range(0, fc.Families.Count) _
         Select New With {.Id = x + 1, _
                          .Name = fc.Families(x).Name, _
                          .SortOrder = (x + 1) * 100}).ToList
fc = Nothing

 
Imports System.Net
Imports System.Net.NetworkInformation
Imports System.Threading
Imports System.Text
 
Public Class Form1
 
    Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
        MemoEdit1.Text = ""

Imports System
Imports System.Collections
Imports System.IO
Imports System.Text
 
Namespace Handlers
 
    ''' <summary>
    ''' A data-reader style interface for reading Csv (and otherwise-char-separated) files.
    ''' </summary>

Module Module1
 
    Sub Main()
        Dim InputXml = <?xml version="1.0" encoding="utf-8"?>
                       <users>
                           <user id="1" name="Eduardo"/>
                           <user id="2" name="Luciano"/>
                           <user id="3" name="Ricardo"/>
                       </users>

public class SingleInstanceApplicationWrapper :
Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase
{
public SingleInstanceApplicationWrapper()
{
// Enable single-instance mode.
this.IsSingleInstance = true;
}
// Create the WPF application class.
private WpfApp app;

Imports System.Text.RegularExpressions
 
Module Module1
 
    'http://learn.open.ac.uk/mod/oublog/viewpost.php?post=23031
    'www.ForkandBeard.co.uk
 
    Sub Main()
        Dim strUserNumbers As String()
        strUserNumbers = New String() { _

Imports System.Text.RegularExpressions
 
Module Module1
 
    Sub Main()
        Dim strUserNumbers As String()
        strUserNumbers = New String() { _
              "H0W_BOvThemy84kies" _
              , "01543 MWC66" _
              , "8" _

Imports System
Imports System.Linq
Imports System.Net.Mail
Imports System.Web.Mvc
Imports System.Web.Security
Imports MvcMembership
 
 
 
<Authorize(Roles:="Administrador")> _

protected void Page_Load(object sender, EventArgs e)
        {
            //É indicado que a forma de execução abaixo seja mantida pois não realizamos testes de maneira diferente
 
            GerenciadorVISA visaDados = new GerenciadorVISA(HttpContext.Current);
            if (visaDados.EstaAprovada)
            {
                //Realizar operações com o retorno-Seu código entra aqui
                Response.Write(visaDados.CodigoRespostaTransacao);
                Response.Write(visaDados.CodigoTransacao);

//toda a aplicação consegue acessar esta variável
       public static ConfiguracaoVISA configuracaoVisaVBV;
       public static ConfiguracaoREDECARD configuracaoREDECARD;
 
       protected void Application_Start(object sender, EventArgs e)
       {
           //Configurando no app Start 
           
           configuracaoVisaVBV = new ConfiguracaoVISA("0123456789", APILocawebGateway.VISA.FormaPagamento.CreditoaVista, APILocawebGateway.AMBIENTE.PRODUCAO, "0123456789", "www.urlRetornoVisa.com");
           configuracaoREDECARD = new ConfiguracaoREDECARD(APILocawebGateway.AMBIENTE.PRODUCAO, "0123456789", "0123456789");

<%
        //Renderizando o formulário do Mastercard
        Response.Write(HTMLHelperREDECARD.RenderizarFormMastercard(Exemplo.Global.configuracaoREDECARD, 0, TipoJuros.JurosDoLojista, "01", Convert.ToDecimal("1,00"))); 
    %>
    <br />
    <%
        //Renderizando o formulário do diners    
        Response.Write(HTMLHelperREDECARD.RenderizarFormDiners(Exemplo.Global.configuracaoREDECARD, 0, TipoJuros.JurosDoLojista, "01", Convert.ToDecimal("1,00"))); 
       
    %>

/*
           * Execução final que obtem o resultado do processo de captura
           */
          var retornoCaptura = GerenciadorRequisicaoVISA.ObterResultadoCaptura(Context);
          Response.Write("lr" + retornoCaptura.Codigoretornotransacao);
          Response.Write("tid" + retornoCaptura.Numerotransacao);
          Response.Write("free" + retornoCaptura.Campolivre);