private void button1_Click(object sender, RoutedEventArgs e)
        {
            System.Timers.Timer aTimer = new System.Timers.Timer();
            aTimer.Interval = 2000;
            aTimer.Elapsed += new System.Timers.ElapsedEventHandler(aTimer_Elapsed);
            aTimer.Start();
        }

        public delegate void onTimeElapsedDelegate();

        void aTimer_Elapsed(object sender, System.Timers.ElapsedEventArgs e)
        {
            writeLabelContent();
        }

        private void writeLabelContent()
        {
            if (label1.Dispatcher.Thread == Thread.CurrentThread)
            {
                ////Visualizza i secondi.
                label1.Content = DateTime.Now.ToString("ss");
            }
            else
            {
                onTimeElapsedDelegate timeElapsedDelegate = new onTimeElapsedDelegate(writeLabelContent);
                label1.Dispatcher.BeginInvoke(timeElapsedDelegate, null);
            }
        }

////Visualizza la classica FolderBrowserDialog

System.Windows.Forms.FolderBrowserDialog dg = new System.Windows.Forms.FolderBrowserDialog();
if (dg.ShowDialog() == System.Windows.Forms.DialogResult.OK)
{
   MessageBox.Show(dg.SelectedPath);
}

        'Data di Partenza
        Dim dataBase As DateTime = New DateTime(1900, 1, 1)
        '7 anni 8 mesi 12 giorni                       
        dataBase = dataBase.AddYears(7)
        dataBase = dataBase.AddMonths(8)
        dataBase = dataBase.AddDays(12)
        '5 anni 3 mesi 1 giorno
        dataBase = dataBase.AddYears(5)
        dataBase = dataBase.AddMonths(3)
        dataBase = dataBase.AddDays(1)
        '12 anni 0 mese 17 giorni
        dataBase = dataBase.AddYears(12)
        dataBase = dataBase.AddMonths(0)
        dataBase = dataBase.AddDays(17)
        Dim dataRiferimento As DateTime = New DateTime(1900, 1, 1)

        Dim dataRisultato As DateTime = New DateTime(dataBase.Subtract(dataRiferimento).Ticks)
        'Visualizza 25
        MessageBox.Show("Anni " & dataRisultato.Year)

        Dim ListaStringhe As New List(Of String)
        ListaStringhe.Add("Pippo")    ' 0
        ListaStringhe.Add("Pluto")    ' 1
        ListaStringhe.Add("Paperino") ' 2
        ListaStringhe.Add("Pluto")    ' 3

        Dim sStringaRiferimento As String = "Pluto"

        Dim q As IEnumerable(Of Integer) = ListaStringhe.Select( _
             Function(nome, indice) New With {nome, indice}) _
             .Where(Function(item) item.nome.Equals(sStringaRiferimento)) _
             .Select(Function(item) item.indice)

Dim q1 = Nomi.Select(Function(v, i) RicercaNome(v, "Antonio", i)).Where(Function(i) i >= 0)

Private Function RicercaNome(ByVal a As String, ByVal b As String, ByVal c As Integer) As Integer
        If (a.Equals(b)) Then
            Return c
        Else
            Return -1
        End If
    End Function