[Durson]

Могу пососоветовать написать безобидную программу прикол (хотя это скорее игра а не вирус) на бэйсике:
Расположи на форме кнопку:

Код:

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Top = Rnd(100) * 1500 
Command1.Left = Rnd(100) * 3000  
End Sub

И откомпилируй.

Кстатии я тут описание одного вируса нашел называется он Win32.Bugaga.exe говорят что он открывает консоль и по этой консоли мечется курсор, и виснет компьютер, правда на моем компе он не работает