Planst du den Matrix-Effekt nachzubauen?
Das selbe hab ich auch schonmal gemacht, siehe hier:
Das ganze hab ich zwar in C++ geschrieben, es ist jedoch 1:1 in VB übersetzbar, hier der orginale C++-Code
Code:
[COLOR=#000000][COLOR=#FF8000]#include "stdafx.h"
#include <windows.h>
#include <iostream>
[/COLOR][COLOR=#0000BB]using namespace std[/COLOR][COLOR=#007700];
[/COLOR][COLOR=#0000BB]int _tmain[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]int argc[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]_TCHAR[/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]argv[/COLOR][COLOR=#007700][])
{
static const [/COLOR][COLOR=#0000BB]char alphanum[/COLOR][COLOR=#007700][] =
[/COLOR][COLOR=#DD0000]"0123456789"
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
"abcdefghijklmnopqrstuvwxyz"[/COLOR][COLOR=#007700];
[/COLOR][COLOR=#0000BB]SetConsoleTextAttribute[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]GetStdHandle[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]STD_OUTPUT_HANDLE[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]10[/COLOR][COLOR=#007700]);
while ([/COLOR][COLOR=#0000BB]true[/COLOR][COLOR=#007700]){
[/COLOR][COLOR=#0000BB]cout [/COLOR][COLOR=#007700]<< [/COLOR][COLOR=#0000BB]alphanum[/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]rand[/COLOR][COLOR=#007700]() % ([/COLOR][COLOR=#0000BB]sizeof[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]alphanum[/COLOR][COLOR=#007700]) - [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])] << [/COLOR][COLOR=#DD0000]" "[/COLOR][COLOR=#007700];
}
return [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700];
} [/COLOR][/COLOR]
Verwende hierfür keine Windows-Forms-Anwendung sondern eine Konsolen-Anwendung, im Endeffekt machst du nicht mehr als aus einem Array ein zufälliges Zeichen auszuwählen und dieses dann auszugeben, dafür brauchst du kein Batch ;O