brentp.net

I love Microsoft Word for one reason, because you can make macros in Visual Basic 6 (wish they would use VB.NET). I discovered a really cool use of the macros at school the other week. Without further ado:


Sub test()
If (Application.Assistant.Visible = True) Then
Application.Assistant.Animation = msoAnimationEmptyTrash
Else
Application.Assistant.Visible = True
Application.Assistant.Animation = msoAnimationEmptyTrash
End If
End Sub


Select your office assistant as that robot dude (F1) and then run that macro, it makes him explode over and over and over again!

Enjoy.