dependiendo del rat, tienen funciones para ocultarse del admin de tareas 

Un Easter Egg o huevo de pascua virtual es un mensaje o capacidad oculta contenido en películas, discos compactos, DVD, programas informáticos, o videojuegos. El origen del término se encuentra en el videojuego de Atari Adventure de 1978, que contenía el primer huevo de pascua virtual que se conoce, introducido por el programador Warren Robinett (su propio nombre).

http://es.wikipedia.org/wiki/Huevo_de_pascua_(virtual)

Segui los pasos y todo va a salir bien.
1.- Abri un nuevo proyecto.
2.- En el menu "VER" anda a "Barra de herramientas" y entra en personalizar.
3.- Abri la pestaña Comandos dentro de la ventanita que se abrio.
4.- En la lista de categorias eleji "Ayuda"
5.- Arrastra el que dice "Acerca de Microsoft Visual Basic" a cualquier menu (como ser el de archivo, o edicion o ver, o cualquiera )
6.- En el nuevo botoncito que creaste arrastrando en el paso anterior, apreta el segundo boton y cambiale el nombre a:
7.- Abrilo y cagate de risa con la musiquita

Fuente: http://adf.ly/3kb4H

PD: Si alguno de los superpros del foro saben como hacer que se muevan asi las cosas con visual basic que avise

EDIIIITO:

Con arriba y abajo (flechitas del teclado) cambias la velocidad

dije que estaba en la lista negra, sos o te haces? 

si no meto la pata como aprendo?   

proba de sacarles los atributos de hidden, system, y read only primero  

---

EDITO:
Se que es de malware pero viene al caso.
SINAV:
EDITADO: Buscalo en google, al parecer el sitio esta en la lista negra

blackzero, acostumbrate a poner

Randomize Timer

Siguen siendo "pseudoaleatorios" pero como la seed timer cambia por segundo es mas dificil que sean siempre en el mismo orden.

Se entiende? :S

---

EDITO


http://msdn.microsoft.com/en-us/library/Aa263387

asi se genera un numero pseudoaleatorio

Private Function RandomNumBetween(ByVal LowerLimit As Long, ByVal UpperLimit As Long) As Long
 Randomize Timer
  ' This function returns a pseudo-random number between
  ' the specified limits (inclusive).
  RandomNumBetween = Rnd * (UpperLimit - LowerLimit) + LowerLimit
End Function

esta mal tu algoritmo para generar el numero aleatorio o te falta el "randomize (seed)" timer es un valor del sistema que si no me equivoco es la cantidad de segundos hasta la medianoche, por lo cual nunca va a ser el mismo

si bien un keylogger de software lo agarra la pulsacion he visto unos de hardware (son una cosa como un adaptador PS/2 - USB) que tienen como 8GB de memoria y son keylogger.

Ya no tiene nada que ver, pero para que conste