Подскажите как создать винлок в Microsoft Visual Basic Express 2010 (хочу друга разыграть) или исходник киньте

Вот исходник на бейсике. http://www.youtube.com/watch?v=39wwPYzomv4
Правда это не VB, а PB. На PureBasic намного проще делать такие вещи.
И .NET Framework не нужен.