[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 ببینید.