[CSHARP]using System;
using System.Drawing;
using System.Windows.Forms;

namespace TypeEffect
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
int i = 0;
int currindex = 0;
string hold;
/// <summary>
/// author:M-ramezanpour
/// Please visit us at http://softafzar.net :)
/// </summary>
private void button1_Click(object sender, EventArgs e)
{
System.Threading.Thread tr1 = new System.Threading.Thread(typeEffect);
tr1.Start();
}

    private void typeEffect()
    {
        string MSG = "http://softafzar.net";
    re:
        Control.CheckForIllegalCrossThreadCalls = false;
        System.Threading.Thread.Sleep(1);
        label1.Text = hold + ((Char)i).ToString();
        if (MSG.Substring(currindex, 1) == ((Char)i).ToString())
        {
            hold += ((Char)i).ToString();
            currindex++;
            i = 0;
        }
        else
        {
            i++; Text = i.ToString();
        }
        if (label1.Text != MSG) goto re;
    }
}

}
[/CSHARP]

همین کد را به زبان ویژوال بیسیک 6 ببینید.