Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Cadena Seleccionada: " & RichTextBox1.SelectedText)
    End Sub
End Class

Me.Refresh()

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim palabras As Integer = 0
        Dim letras As Integer = 0
        Dim numeros As Integer = 0
 
        Dim lineas As String() = File.ReadAllLines("C:\1.txt")
        For Each linea As String In lineas
            For Each palabra As String In linea.Split(" ")
                If (palabra.Length > 0) Then
                    palabras = palabras + 1
                    For Each letra As Char In palabra.ToCharArray()
                        If (Asc(letra.ToString()) > 47 And Asc(letra.ToString()) < 58) Then
                            numeros = numeros + 1
                        ElseIf (Asc(letra.ToString()) > 64 And Asc(letra.ToString()) < 123) Then
                            letras = letras + 1
                        End If
                    Next
                End If
            Next
        Next
 
        Label1.Text = "Palabras: " & palabras & Microsoft.VisualBasic.vbNewLine & "Letras: " & letras & Microsoft.VisualBasic.vbNewLine & "Numeros: " & numeros
 
    End Sub
End Class

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;
using System.Threading;
 
namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        Thread myThread;
        delegate void SetValueCallback(int valor);
 
        public Form1()
        {
            InitializeComponent();
        }
 
        private void button1_Click(object sender, EventArgs e)
        {
            myThread = new Thread(new ThreadStart(listar));
            myThread.Start();
        }
        private void Form1_Load(object sender, EventArgs e)
        {
            progressBar1.Minimum = 0;
        }
        private void listar()
        {
            int i = 0;
            DirectoryInfo dInfo = new DirectoryInfo(@"C:\Windows\");
            FileInfo[] finfo = dInfo.GetFiles("*.*", SearchOption.AllDirectories);
            this.SetMax(finfo.Length);
            foreach (FileInfo f in finfo)
            {
                this.SetValue(i += 1);
                System.Threading.Thread.Sleep(50);
            }
        }
        private void SetValue(int valor)
        {
            if (this.InvokeRequired)
            {
                SetValueCallback d = new SetValueCallback(SetValue);
                this.Invoke(d, new object[] { valor });
            }
            else
            {
                this.progressBar1.Value = valor;
            }
        }
        private void SetMax(int valor)
        {
            if (this.InvokeRequired)
            {
                SetValueCallback d = new SetValueCallback(SetMax);
                this.Invoke(d, new object[] { valor });
            }
            else
            {
                this.progressBar1.Maximum = valor;
            }
        }
    }
}
 

System.EnterpriseServices

C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727