Infested Cleaner Source | HF White Hat Program | SKIDS

Decompiled and Re-Assembled By Exploit
Contact Me If You Want The Full Project
AIM - exploit@about.me
Program Made In VB.NET
HB Exploit
Roll With Us Or Get Rolled Over!
Fuck White Hats

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

Imports Microsoft.Win32
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Management
Imports System.Windows.Forms

Namespace White
    Public Class Form1
        Inherits Form
        ' Methods
        Public Sub New()
            Me.InitializeComponent
        End Sub

        Public Sub Clean(ByVal process As String, ByVal delete As Boolean)
            process = process.Replace(".exe", "")
            Try
                Dim process3 As Process
                For Each process3 In Process.GetProcesses
                    If (process3.ProcessName = process) Then
                        Try
                            Dim process2 As Process = process3
                            process2.Kill
                            If delete Then
                                File.Delete(process2.Modules.Item(0).FileName)
                            End If
                        Catch obj1 As Object
                        End Try
                    End If
                Next
            Catch obj2 As Object
            End Try
        End Sub

        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            If (disposing AndAlso (Not Me.components Is Nothing)) Then
                Me.components.Dispose
            End If
            MyBase.Dispose(disposing)
        End Sub

        Private Sub flowButton1_Click(ByVal sender As Object, ByVal e As EventArgs)
            If Me.checkBox1.Checked Then
                Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System").SetValue("DisableTaskMgr", 0)
            End If
            If Me.checkBox2.Checked Then
                Dim key2 As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System", True)
                key2.SetValue("DisableRegistryTools", 0, RegistryValueKind.DWord)
                key2.Close
            End If
            If Me.checkBox3.Checked Then
                Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System").SetValue("EnableLua", 1)
            End If
            If Me.checkBox4.Checked Then
                Registry.LocalMachine.CreateSubKey("SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore").SetValue("DisableConfig", 0)
            End If
            MessageBox.Show("Selected Items Enabled")
        End Sub

        Private Sub flowButton10_Click(ByVal sender As Object, ByVal e As EventArgs)
            If (MessageBox.Show("Make sure the file you are deleting is not a system file. (MUST HAVE FULL DIRECTORY)", "Delete", MessageBoxButtons.YesNo) = DialogResult.Yes) Then
                File.Delete(Me.lblPath.Text)
                MessageBox.Show("File Deleted! You may now use MSCONFIG to disable the registry key.")
            End If
        End Sub

        Private Sub flowButton11_Click(ByVal sender As Object, ByVal e As EventArgs)
            If (MessageBox.Show("Do you want to run Botkill?", "BotKill", MessageBoxButtons.YesNo) = DialogResult.Yes) Then
                Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
                Dim i As Integer
                For i = 0 To key.GetValueNames.Length - 1
                    Try
                        If (key.GetValueNames(i).ToString <> "msnmsgr") Then
                            key.SetValue(key.GetValueNames(i).ToString, "")
                        End If
                    Catch obj1 As Object
                    End Try
                    MessageBox.Show("Bots Killed!")
                Next i
            End If
        End Sub

        Private Sub flowButton12_Click(ByVal sender As Object, ByVal e As EventArgs)
            Process.Start("https://sci.libertyreserve.com/en?lr_acc=U8569673&lr_currency=LRUSD")
        End Sub

        Private Sub flowButton13_Click(ByVal sender As Object, ByVal e As EventArgs)
            If (MessageBox.Show("Quarantined file will have -quarantine added to file extension. (MUST HAVE FULL DIRECTORY)", "Quarantine", MessageBoxButtons.YesNo) = DialogResult.Yes) Then
                File.Move(Me.lblPath.Text, (Me.lblPath.Text & "quarantine"))
                MessageBox.Show("File Quarantined! You may now use MSCONFIG to disable the registry key.")
            End If
        End Sub

        Private Sub flowButton2_Click(ByVal sender As Object, ByVal e As EventArgs)
            File.Move("C:\windows\system32\drivers\etc\hosts", "C:\windows\system32\drivers\etc\hostsINFECTED")
            MessageBox.Show("All Websites Unblocked! All Website Redirections Fixed!")
        End Sub

        Private Sub flowButton3_Click(ByVal sender As Object, ByVal e As EventArgs)
            If (Me.comboBox1.SelectedIndex = 0) Then
                Process.Start("http://www.techspot.com/downloadget.php?id=4716&file=1&evp=1122fe6321e11cac39948ab07d144765")
            End If
            If (Me.comboBox1.SelectedIndex = 1) Then
                Process.Start("http://www.amtsc.com/OldTimer/OTL.scr")
            End If
            If (Me.comboBox1.SelectedIndex = 2) Then
                Process.Start("http://www.gmer.net/download.php")
            End If
            If (Me.comboBox1.SelectedIndex = 3) Then
                Process.Start("http://www.amtsc.com/OldTimer/TFC.exe")
            End If
            If (Me.comboBox1.SelectedIndex = 4) Then
                Process.Start("http://www.superantispyware.com/downloadfile.html?productid=SUPERANTISPYWAREFREE")
            End If
            If (Me.comboBox1.SelectedIndex = 5) Then
                Process.Start("http://darkcomet-rat.com/downloads/FixComet.zip")
            End If
            If (Me.comboBox1.SelectedIndex = 6) Then
                Process.Start("http://www.emptyloop.com/unlocker/")
            End If
        End Sub

        Private Sub flowButton4_Click(ByVal sender As Object, ByVal e As EventArgs)
            If (MessageBox.Show("Are you sure you want to kill this process? (Do not kill system processes)", "Process Kill", MessageBoxButtons.YesNo) = DialogResult.Yes) Then
                Me.Clean(Me.textBox1.Text, False)
                MessageBox.Show("Process Killed")
            End If
        End Sub

        Private Sub flowButton5_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim process As Process
            For Each process In Process.GetProcesses
                Dim item As New ListViewItem(process.ProcessName)
                item.SubItems.Add(process.ProcessName)
                item.Tag = process
                Me.listview1.Items.Add(item)
            Next
        End Sub

        Private Sub flowButton6_Click(ByVal sender As Object, ByVal e As EventArgs)
            Process.Start("http://www.hackforums.net/showthread.php?tid=686793")
        End Sub

        Private Sub flowButton7_Click(ByVal sender As Object, ByVal e As EventArgs)
            Environment.Exit(-1)
        End Sub

        Private Sub flowButton8_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim class2 As New ManagementClass("Win32_StartupCommand")
            Dim obj2 As ManagementObject
            For Each obj2 In class2.GetInstances
                Dim strArray As String() = New String() { Me.lstServices.Items.Add(obj2.GetPropertyValue("Caption").ToString).ToString, obj2.GetPropertyValue("Name").ToString }
                Me.arrServices.Add(strArray)
            Next
            MessageBox.Show("Click on a startup item to view its details.")
        End Sub

        Private Sub flowButton9_Click(ByVal sender As Object, ByVal e As EventArgs)
            MyBase.WindowState = FormWindowState.Minimized
        End Sub

        Private Sub InitializeComponent()
            Dim bloom As New Bloom
            Dim bloom2 As New Bloom
            Dim bloom3 As New Bloom
            Dim bloom4 As New Bloom
            Dim bloom5 As New Bloom
            Dim bloom6 As New Bloom
            Dim bloom7 As New Bloom
            Dim bloom8 As New Bloom
            Dim bloom9 As New Bloom
            Dim bloom10 As New Bloom
            Dim bloom11 As New Bloom
            Dim bloom12 As New Bloom
            Dim bloom13 As New Bloom
            Dim group As New ListViewGroup("ListViewGroup", HorizontalAlignment.Left)
            Dim bloom14 As New Bloom
            Dim bloom15 As New Bloom
            Dim bloom16 As New Bloom
            Dim bloom17 As New Bloom
            Dim bloom18 As New Bloom
            Dim bloom19 As New Bloom
            Dim bloom20 As New Bloom
            Dim bloom21 As New Bloom
            Dim bloom22 As New Bloom
            Dim bloom23 As New Bloom
            Dim bloom24 As New Bloom
            Dim bloom25 As New Bloom
            Dim bloom26 As New Bloom
            Dim bloom27 As New Bloom
            Dim bloom28 As New Bloom
            Dim bloom29 As New Bloom
            Dim bloom30 As New Bloom
            Dim bloom31 As New Bloom
            Dim bloom32 As New Bloom
            Dim bloom33 As New Bloom
            Dim bloom34 As New Bloom
            Dim bloom35 As New Bloom
            Dim bloom36 As New Bloom
            Dim bloom37 As New Bloom
            Dim bloom38 As New Bloom
            Dim bloom39 As New Bloom
            Dim bloom40 As New Bloom
            Dim bloom41 As New Bloom
            Dim bloom42 As New Bloom
            Dim bloom43 As New Bloom
            Dim bloom44 As New Bloom
            Dim bloom45 As New Bloom
            Dim bloom46 As New Bloom
            Dim bloom47 As New Bloom
            Dim bloom48 As New Bloom
            Dim bloom49 As New Bloom
            Dim bloom50 As New Bloom
            Dim bloom51 As New Bloom
            Dim bloom52 As New Bloom
            Dim bloom53 As New Bloom
            Dim bloom54 As New Bloom
            Dim bloom55 As New Bloom
            Dim bloom56 As New Bloom
            Dim bloom57 As New Bloom
            Dim bloom58 As New Bloom
            Dim bloom59 As New Bloom
            Dim bloom60 As New Bloom
            Dim bloom61 As New Bloom
            Dim bloom62 As New Bloom
            Dim bloom63 As New Bloom
            Dim bloom64 As New Bloom
            Dim bloom65 As New Bloom
            Dim bloom66 As New Bloom
            Dim bloom67 As New Bloom
            Dim bloom68 As New Bloom
            Dim bloom69 As New Bloom
            Dim bloom70 As New Bloom
            Dim bloom71 As New Bloom
            Dim bloom72 As New Bloom
            Dim bloom73 As New Bloom
            Dim bloom74 As New Bloom
            Dim bloom75 As New Bloom
            Dim bloom76 As New Bloom
            Dim bloom77 As New Bloom
            Dim bloom78 As New Bloom
            Dim bloom79 As New Bloom
            Dim bloom80 As New Bloom
            Dim bloom81 As New Bloom
            Dim bloom82 As New Bloom
            Dim bloom83 As New Bloom
            Dim bloom84 As New Bloom
            Dim bloom85 As New Bloom
            Dim bloom86 As New Bloom
            Dim bloom87 As New Bloom
            Dim bloom88 As New Bloom
            Dim bloom89 As New Bloom
            Dim bloom90 As New Bloom
            Dim bloom91 As New Bloom
            Dim bloom92 As New Bloom
            Dim bloom93 As New Bloom
            Dim bloom94 As New Bloom
            Dim bloom95 As New Bloom
            Dim bloom96 As New Bloom
            Dim bloom97 As New Bloom
            Dim bloom98 As New Bloom
            Dim bloom99 As New Bloom
            Dim bloom100 As New Bloom
            Dim bloom101 As New Bloom
            Dim bloom102 As New Bloom
            Dim bloom103 As New Bloom
            Dim bloom104 As New Bloom
            Dim bloom105 As New Bloom
            Dim bloom106 As New Bloom
            Dim bloom107 As New Bloom
            Dim bloom108 As New Bloom
            Dim bloom109 As New Bloom
            Dim bloom110 As New Bloom
            Dim bloom111 As New Bloom
            Dim bloom112 As New Bloom
            Dim bloom113 As New Bloom
            Dim bloom114 As New Bloom
            Dim bloom115 As New Bloom
            Dim bloom116 As New Bloom
            Dim bloom117 As New Bloom
            Dim manager As New ComponentResourceManager(GetType(Form1))
            Me.flowTheme1 = New FlowTheme
            Me.listview1 = New ListView
            Me.columnHeader1 = New ColumnHeader
            Me.flowButton13 = New FlowButton
            Me.flowButton10 = New FlowButton
            Me.flowButton9 = New FlowButton
            Me.flowButton12 = New FlowButton
            Me.flowButton11 = New FlowButton
            Me.lblDesc = New TextBox
            Me.lblPath = New TextBox
            Me.lstServices = New ListBox
            Me.flowButton8 = New FlowButton
            Me.flowButton7 = New FlowButton
            Me.groupBox1 = New GroupBox
            Me.checkBox4 = New CheckBox
            Me.checkBox3 = New CheckBox
            Me.checkBox2 = New CheckBox
            Me.checkBox1 = New CheckBox
            Me.flowButton2 = New FlowButton
            Me.flowButton3 = New FlowButton
            Me.flowButton5 = New FlowButton
            Me.flowButton6 = New FlowButton
            Me.comboBox1 = New ComboBox
            Me.textBox1 = New TextBox
            Me.flowButton4 = New FlowButton
            Me.flowButton1 = New FlowButton
            Me.flowTheme1.SuspendLayout
            Me.groupBox1.SuspendLayout
            MyBase.SuspendLayout
            Me.flowTheme1.BackColor = Color.FromArgb(&H23, &H23, &H23)
            Me.flowTheme1.BorderStyle = FormBorderStyle.None
            bloom.Name = "Sides"
            bloom.Value = Color.FromArgb(40, 40, 40)
            bloom2.Name = "Gradient"
            bloom2.Value = Color.FromArgb(&H12, &H12, &H12)
            bloom3.Name = "Text"
            bloom3.Value = Color.FromArgb(0, &H84, &HFF)
            bloom4.Name = "Border1"
            bloom4.Value = Color.FromArgb(40, 40, 40)
            bloom5.Name = "Border2"
            bloom5.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom6.Name = "Border3"
            bloom6.Value = Color.FromArgb(&H41, &H41, &H41)
            bloom7.Name = "Border4"
            bloom7.Value = Color.Black
            bloom8.Name = "Hatch1"
            bloom8.Value = Color.FromArgb(&H27, &H27, &H27)
            bloom9.Name = "Hatch2"
            bloom9.Value = Color.FromArgb(&H23, &H23, &H23)
            bloom10.Name = "Hatch3"
            bloom10.Value = Color.FromArgb(&H1D, &H1D, &H1D)
            bloom11.Name = "Hatch4"
            bloom11.Value = Color.FromArgb(&H1A, &H1A, &H1A)
            bloom12.Name = "Shade1"
            bloom12.Value = Color.FromArgb(50, 7, 7, 7)
            bloom13.Name = "Shade2"
            bloom13.Value = Color.Transparent
            Me.flowTheme1.Colors = New Bloom() { bloom, bloom2, bloom3, bloom4, bloom5, bloom6, bloom7, bloom8, bloom9, bloom10, bloom11, bloom12, bloom13 }
            Me.flowTheme1.Controls.Add(Me.listview1)
            Me.flowTheme1.Controls.Add(Me.flowButton13)
            Me.flowTheme1.Controls.Add(Me.flowButton10)
            Me.flowTheme1.Controls.Add(Me.flowButton9)
            Me.flowTheme1.Controls.Add(Me.flowButton12)
            Me.flowTheme1.Controls.Add(Me.flowButton11)
            Me.flowTheme1.Controls.Add(Me.lblDesc)
            Me.flowTheme1.Controls.Add(Me.lblPath)
            Me.flowTheme1.Controls.Add(Me.lstServices)
            Me.flowTheme1.Controls.Add(Me.flowButton8)
            Me.flowTheme1.Controls.Add(Me.flowButton7)
            Me.flowTheme1.Controls.Add(Me.groupBox1)
            Me.flowTheme1.Controls.Add(Me.flowButton2)
            Me.flowTheme1.Controls.Add(Me.flowButton3)
            Me.flowTheme1.Controls.Add(Me.flowButton5)
            Me.flowTheme1.Controls.Add(Me.flowButton6)
            Me.flowTheme1.Controls.Add(Me.comboBox1)
            Me.flowTheme1.Controls.Add(Me.textBox1)
            Me.flowTheme1.Controls.Add(Me.flowButton4)
            Me.flowTheme1.Controls.Add(Me.flowButton1)
            Me.flowTheme1.Customization = "KCgo/xISEv//hAD/KCgo/xYWFv9BQUH/AAAA/ycnJ/8jIyP/HR0d/xoaGv8HBwcy////AA=="
            Me.flowTheme1.Dock = DockStyle.Fill
            Me.flowTheme1.Font = New Font("Arial", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
            Me.flowTheme1.Image = Nothing
            Me.flowTheme1.Location = New Point(0, 0)
            Me.flowTheme1.Movable = True
            Me.flowTheme1.Name = "flowTheme1"
            Me.flowTheme1.NoRounding = False
            Me.flowTheme1.Sizable = False
            Me.flowTheme1.Size = New Size(&H202, &H120)
            Me.flowTheme1.SmartBounds = True
            Me.flowTheme1.TabIndex = 15
            Me.flowTheme1.Text = "Infested Cleaner"
            Me.flowTheme1.TransparencyKey = Color.Fuchsia
            Me.listview1.BackColor = Color.FromArgb(&H23, &H23, &H23)
            Me.listview1.BorderStyle = BorderStyle.FixedSingle
            Me.listview1.Columns.AddRange(New ColumnHeader() { Me.columnHeader1 })
            Me.listview1.ForeColor = SystemColors.MenuHighlight
            group.Header = "ListViewGroup"
            group.Name = "listViewGroup1"
            Me.listview1.Groups.AddRange(New ListViewGroup() { group })
            Me.listview1.Location = New Point(11, &HC5)
            Me.listview1.Name = "listview1"
            Me.listview1.Size = New Size(&HE9, 50)
            Me.listview1.TabIndex = &H1C
            Me.listview1.UseCompatibleStateImageBehavior = False
            Me.listview1.View = View.List
            bloom14.Name = "DownGradient1"
            bloom14.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom15.Name = "DownGradient2"
            bloom15.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom16.Name = "NoneGradient1"
            bloom16.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom17.Name = "NoneGradient2"
            bloom17.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom18.Name = "Text"
            bloom18.Value = Color.FromArgb(0, &H84, &HFF)
            bloom19.Name = "Border1"
            bloom19.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom20.Name = "Border2A"
            bloom20.Value = Color.FromArgb(60, 60, 60)
            bloom21.Name = "Border2B"
            bloom21.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton13.Colors = New Bloom() { bloom14, bloom15, bloom16, bloom17, bloom18, bloom19, bloom20, bloom21 }
            Me.flowButton13.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton13.Font = New Font("Verdana", 8!)
            Me.flowButton13.Image = Nothing
            Me.flowButton13.Location = New Point(&H15F, &HA6)
            Me.flowButton13.Name = "flowButton13"
            Me.flowButton13.NoRounding = False
            Me.flowButton13.Size = New Size(&H4B, &H11)
            Me.flowButton13.TabIndex = &H1B
            Me.flowButton13.Text = "Quarantine"
            Me.flowButton13.Transparent = False
            AddHandler Me.flowButton13.Click, New EventHandler(AddressOf Me.flowButton13_Click)
            bloom22.Name = "DownGradient1"
            bloom22.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom23.Name = "DownGradient2"
            bloom23.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom24.Name = "NoneGradient1"
            bloom24.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom25.Name = "NoneGradient2"
            bloom25.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom26.Name = "Text"
            bloom26.Value = Color.FromArgb(0, &H84, &HFF)
            bloom27.Name = "Border1"
            bloom27.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom28.Name = "Border2A"
            bloom28.Value = Color.FromArgb(60, 60, 60)
            bloom29.Name = "Border2B"
            bloom29.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton10.Colors = New Bloom() { bloom22, bloom23, bloom24, bloom25, bloom26, bloom27, bloom28, bloom29 }
            Me.flowButton10.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton10.Font = New Font("Verdana", 8!)
            Me.flowButton10.Image = Nothing
            Me.flowButton10.Location = New Point(&H1B1, &HA6)
            Me.flowButton10.Name = "flowButton10"
            Me.flowButton10.NoRounding = False
            Me.flowButton10.Size = New Size(&H44, &H11)
            Me.flowButton10.TabIndex = &H1A
            Me.flowButton10.Text = "Delete"
            Me.flowButton10.Transparent = False
            AddHandler Me.flowButton10.Click, New EventHandler(AddressOf Me.flowButton10_Click)
            bloom30.Name = "DownGradient1"
            bloom30.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom31.Name = "DownGradient2"
            bloom31.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom32.Name = "NoneGradient1"
            bloom32.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom33.Name = "NoneGradient2"
            bloom33.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom34.Name = "Text"
            bloom34.Value = Color.FromArgb(0, &H84, &HFF)
            bloom35.Name = "Border1"
            bloom35.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom36.Name = "Border2A"
            bloom36.Value = Color.FromArgb(60, 60, 60)
            bloom37.Name = "Border2B"
            bloom37.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton9.Colors = New Bloom() { bloom30, bloom31, bloom32, bloom33, bloom34, bloom35, bloom36, bloom37 }
            Me.flowButton9.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton9.Font = New Font("Verdana", 8!)
            Me.flowButton9.Image = Nothing
            Me.flowButton9.Location = New Point(&H1D4, 3)
            Me.flowButton9.Margin = New Padding(0)
            Me.flowButton9.Name = "flowButton9"
            Me.flowButton9.NoRounding = False
            Me.flowButton9.Size = New Size(&H15, &H13)
            Me.flowButton9.TabIndex = &H19
            Me.flowButton9.Text = "-"
            Me.flowButton9.Transparent = False
            AddHandler Me.flowButton9.Click, New EventHandler(AddressOf Me.flowButton9_Click)
            bloom38.Name = "DownGradient1"
            bloom38.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom39.Name = "DownGradient2"
            bloom39.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom40.Name = "NoneGradient1"
            bloom40.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom41.Name = "NoneGradient2"
            bloom41.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom42.Name = "Text"
            bloom42.Value = Color.FromArgb(0, &H84, &HFF)
            bloom43.Name = "Border1"
            bloom43.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom44.Name = "Border2A"
            bloom44.Value = Color.FromArgb(60, 60, 60)
            bloom45.Name = "Border2B"
            bloom45.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton12.Colors = New Bloom() { bloom38, bloom39, bloom40, bloom41, bloom42, bloom43, bloom44, bloom45 }
            Me.flowButton12.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton12.Font = New Font("Verdana", 8!)
            Me.flowButton12.Image = Nothing
            Me.flowButton12.Location = New Point(&H19D, 3)
            Me.flowButton12.Margin = New Padding(0)
            Me.flowButton12.Name = "flowButton12"
            Me.flowButton12.NoRounding = False
            Me.flowButton12.Size = New Size(&H37, &H13)
            Me.flowButton12.TabIndex = &H18
            Me.flowButton12.Text = "Support"
            Me.flowButton12.Transparent = False
            AddHandler Me.flowButton12.Click, New EventHandler(AddressOf Me.flowButton12_Click)
            bloom46.Name = "DownGradient1"
            bloom46.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom47.Name = "DownGradient2"
            bloom47.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom48.Name = "NoneGradient1"
            bloom48.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom49.Name = "NoneGradient2"
            bloom49.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom50.Name = "Text"
            bloom50.Value = Color.FromArgb(0, &H84, &HFF)
            bloom51.Name = "Border1"
            bloom51.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom52.Name = "Border2A"
            bloom52.Value = Color.FromArgb(60, 60, 60)
            bloom53.Name = "Border2B"
            bloom53.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton11.Colors = New Bloom() { bloom46, bloom47, bloom48, bloom49, bloom50, bloom51, bloom52, bloom53 }
            Me.flowButton11.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton11.Font = New Font("Verdana", 8!)
            Me.flowButton11.Image = Nothing
            Me.flowButton11.Location = New Point(&HFD, &HC5)
            Me.flowButton11.Name = "flowButton11"
            Me.flowButton11.NoRounding = False
            Me.flowButton11.Size = New Size(&HF8, &H16)
            Me.flowButton11.TabIndex = &H17
            Me.flowButton11.Text = "BotKill"
            Me.flowButton11.Transparent = False
            AddHandler Me.flowButton11.Click, New EventHandler(AddressOf Me.flowButton11_Click)
            Me.lblDesc.BackColor = Color.FromArgb(&H23, &H23, &H23)
            Me.lblDesc.BorderStyle = BorderStyle.FixedSingle
            Me.lblDesc.ForeColor = SystemColors.MenuHighlight
            Me.lblDesc.Location = New Point(&H184, &H87)
            Me.lblDesc.Name = "lblDesc"
            Me.lblDesc.Size = New Size(&H71, 20)
            Me.lblDesc.TabIndex = 20
            Me.lblDesc.Text = "Startup Key"
            Me.lblPath.BackColor = Color.FromArgb(&H23, &H23, &H23)
            Me.lblPath.BorderStyle = BorderStyle.FixedSingle
            Me.lblPath.ForeColor = SystemColors.MenuHighlight
            Me.lblPath.Location = New Point(&HFD, &H87)
            Me.lblPath.Name = "lblPath"
            Me.lblPath.Size = New Size(&H81, 20)
            Me.lblPath.TabIndex = &H13
            Me.lblPath.Text = "Directory"
            Me.lstServices.BackColor = Color.FromArgb(&H23, &H23, &H23)
            Me.lstServices.BorderStyle = BorderStyle.FixedSingle
            Me.lstServices.ForeColor = SystemColors.MenuHighlight
            Me.lstServices.FormattingEnabled = True
            Me.lstServices.ItemHeight = 14
            Me.lstServices.Location = New Point(&HFD, &H22)
            Me.lstServices.Name = "lstServices"
            Me.lstServices.Size = New Size(&HF8, &H56)
            Me.lstServices.TabIndex = &H12
            AddHandler Me.lstServices.SelectedIndexChanged, New EventHandler(AddressOf Me.lstServices_SelectedIndexChanged)
            bloom54.Name = "DownGradient1"
            bloom54.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom55.Name = "DownGradient2"
            bloom55.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom56.Name = "NoneGradient1"
            bloom56.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom57.Name = "NoneGradient2"
            bloom57.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom58.Name = "Text"
            bloom58.Value = Color.FromArgb(0, &H84, &HFF)
            bloom59.Name = "Border1"
            bloom59.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom60.Name = "Border2A"
            bloom60.Value = Color.FromArgb(60, 60, 60)
            bloom61.Name = "Border2B"
            bloom61.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton8.Colors = New Bloom() { bloom54, bloom55, bloom56, bloom57, bloom58, bloom59, bloom60, bloom61 }
            Me.flowButton8.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton8.Font = New Font("Verdana", 8!)
            Me.flowButton8.Image = Nothing
            Me.flowButton8.Location = New Point(&HFD, &HA6)
            Me.flowButton8.Name = "flowButton8"
            Me.flowButton8.NoRounding = False
            Me.flowButton8.Size = New Size(&H5C, &H11)
            Me.flowButton8.TabIndex = &H11
            Me.flowButton8.Text = "Load Startup"
            Me.flowButton8.Transparent = False
            AddHandler Me.flowButton8.Click, New EventHandler(AddressOf Me.flowButton8_Click)
            bloom62.Name = "DownGradient1"
            bloom62.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom63.Name = "DownGradient2"
            bloom63.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom64.Name = "NoneGradient1"
            bloom64.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom65.Name = "NoneGradient2"
            bloom65.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom66.Name = "Text"
            bloom66.Value = Color.FromArgb(0, &H84, &HFF)
            bloom67.Name = "Border1"
            bloom67.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom68.Name = "Border2A"
            bloom68.Value = Color.FromArgb(60, 60, 60)
            bloom69.Name = "Border2B"
            bloom69.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton7.Colors = New Bloom() { bloom62, bloom63, bloom64, bloom65, bloom66, bloom67, bloom68, bloom69 }
            Me.flowButton7.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton7.Font = New Font("Verdana", 8!)
            Me.flowButton7.Image = Nothing
            Me.flowButton7.Location = New Point(&H1E9, 3)
            Me.flowButton7.Margin = New Padding(0)
            Me.flowButton7.Name = "flowButton7"
            Me.flowButton7.NoRounding = False
            Me.flowButton7.Size = New Size(&H15, &H13)
            Me.flowButton7.TabIndex = 15
            Me.flowButton7.Text = "X"
            Me.flowButton7.Transparent = False
            AddHandler Me.flowButton7.Click, New EventHandler(AddressOf Me.flowButton7_Click)
            Me.groupBox1.Controls.Add(Me.checkBox4)
            Me.groupBox1.Controls.Add(Me.checkBox3)
            Me.groupBox1.Controls.Add(Me.checkBox2)
            Me.groupBox1.Controls.Add(Me.checkBox1)
            Me.groupBox1.ForeColor = SystemColors.MenuHighlight
            Me.groupBox1.Location = New Point(&H1B, &H2A)
            Me.groupBox1.Margin = New Padding(2, 3, 2, 3)
            Me.groupBox1.Name = "groupBox1"
            Me.groupBox1.Padding = New Padding(2, 3, 2, 3)
            Me.groupBox1.Size = New Size(&H7C, &H76)
            Me.groupBox1.TabIndex = 0
            Me.groupBox1.TabStop = False
            Me.groupBox1.Text = "Registry"
            Me.checkBox4.AutoSize = True
            Me.checkBox4.Location = New Point(6, &H5D)
            Me.checkBox4.Name = "checkBox4"
            Me.checkBox4.Size = New Size(&H67, &H12)
            Me.checkBox4.TabIndex = 4
            Me.checkBox4.Text = "System Restore"
            Me.checkBox4.UseVisualStyleBackColor = True
            Me.checkBox3.AutoSize = True
            Me.checkBox3.Location = New Point(6, 70)
            Me.checkBox3.Margin = New Padding(2, 3, 2, 3)
            Me.checkBox3.Name = "checkBox3"
            Me.checkBox3.Size = New Size(&H30, &H12)
            Me.checkBox3.TabIndex = 3
            Me.checkBox3.Text = "UAC"
            Me.checkBox3.UseVisualStyleBackColor = True
            Me.checkBox2.AutoSize = True
            Me.checkBox2.Location = New Point(6, &H2D)
            Me.checkBox2.Margin = New Padding(2, 3, 2, 3)
            Me.checkBox2.Name = "checkBox2"
            Me.checkBox2.Size = New Size(&H3E, &H12)
            Me.checkBox2.TabIndex = 2
            Me.checkBox2.Text = "RegEdit"
            Me.checkBox2.UseVisualStyleBackColor = True
            Me.checkBox1.AutoSize = True
            Me.checkBox1.ForeColor = SystemColors.MenuHighlight
            Me.checkBox1.Location = New Point(6, &H15)
            Me.checkBox1.Margin = New Padding(2, 3, 2, 3)
            Me.checkBox1.Name = "checkBox1"
            Me.checkBox1.Size = New Size(&H5D, &H12)
            Me.checkBox1.TabIndex = 1
            Me.checkBox1.Text = "Task Manager"
            Me.checkBox1.UseVisualStyleBackColor = True
            bloom70.Name = "DownGradient1"
            bloom70.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom71.Name = "DownGradient2"
            bloom71.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom72.Name = "NoneGradient1"
            bloom72.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom73.Name = "NoneGradient2"
            bloom73.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom74.Name = "Text"
            bloom74.Value = Color.FromArgb(0, &H84, &HFF)
            bloom75.Name = "Border1"
            bloom75.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom76.Name = "Border2A"
            bloom76.Value = Color.FromArgb(60, 60, 60)
            bloom77.Name = "Border2B"
            bloom77.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton2.Colors = New Bloom() { bloom70, bloom71, bloom72, bloom73, bloom74, bloom75, bloom76, bloom77 }
            Me.flowButton2.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton2.Font = New Font("Verdana", 8!)
            Me.flowButton2.Image = Nothing
            Me.flowButton2.Location = New Point(11, &HA6)
            Me.flowButton2.Margin = New Padding(2, 3, 2, 3)
            Me.flowButton2.Name = "flowButton2"
            Me.flowButton2.NoRounding = False
            Me.flowButton2.Size = New Size(&HE9, &H19)
            Me.flowButton2.TabIndex = 10
            Me.flowButton2.Text = "Unblock Websites"
            Me.flowButton2.Transparent = False
            AddHandler Me.flowButton2.Click, New EventHandler(AddressOf Me.flowButton2_Click)
            bloom78.Name = "DownGradient1"
            bloom78.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom79.Name = "DownGradient2"
            bloom79.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom80.Name = "NoneGradient1"
            bloom80.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom81.Name = "NoneGradient2"
            bloom81.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom82.Name = "Text"
            bloom82.Value = Color.FromArgb(0, &H84, &HFF)
            bloom83.Name = "Border1"
            bloom83.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom84.Name = "Border2A"
            bloom84.Value = Color.FromArgb(60, 60, 60)
            bloom85.Name = "Border2B"
            bloom85.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton3.Colors = New Bloom() { bloom78, bloom79, bloom80, bloom81, bloom82, bloom83, bloom84, bloom85 }
            Me.flowButton3.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton3.Font = New Font("Verdana", 8!)
            Me.flowButton3.Image = Nothing
            Me.flowButton3.Location = New Point(&H199, &HE1)
            Me.flowButton3.Margin = New Padding(2, 3, 2, 3)
            Me.flowButton3.Name = "flowButton3"
            Me.flowButton3.NoRounding = False
            Me.flowButton3.Size = New Size(&H5C, &H16)
            Me.flowButton3.TabIndex = 11
            Me.flowButton3.Text = "Download"
            Me.flowButton3.Transparent = False
            AddHandler Me.flowButton3.Click, New EventHandler(AddressOf Me.flowButton3_Click)
            bloom86.Name = "DownGradient1"
            bloom86.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom87.Name = "DownGradient2"
            bloom87.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom88.Name = "NoneGradient1"
            bloom88.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom89.Name = "NoneGradient2"
            bloom89.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom90.Name = "Text"
            bloom90.Value = Color.FromArgb(0, &H84, &HFF)
            bloom91.Name = "Border1"
            bloom91.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom92.Name = "Border2A"
            bloom92.Value = Color.FromArgb(60, 60, 60)
            bloom93.Name = "Border2B"
            bloom93.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton5.Colors = New Bloom() { bloom86, bloom87, bloom88, bloom89, bloom90, bloom91, bloom92, bloom93 }
            Me.flowButton5.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton5.Font = New Font("Verdana", 8!)
            Me.flowButton5.Image = Nothing
            Me.flowButton5.Location = New Point(&HBB, &HFD)
            Me.flowButton5.Margin = New Padding(2, 3, 2, 3)
            Me.flowButton5.Name = "flowButton5"
            Me.flowButton5.NoRounding = False
            Me.flowButton5.Size = New Size(&H39, 20)
            Me.flowButton5.TabIndex = 13
            Me.flowButton5.Text = "Tasks"
            Me.flowButton5.Transparent = False
            AddHandler Me.flowButton5.Click, New EventHandler(AddressOf Me.flowButton5_Click)
            bloom94.Name = "DownGradient1"
            bloom94.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom95.Name = "DownGradient2"
            bloom95.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom96.Name = "NoneGradient1"
            bloom96.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom97.Name = "NoneGradient2"
            bloom97.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom98.Name = "Text"
            bloom98.Value = Color.FromArgb(0, &H84, &HFF)
            bloom99.Name = "Border1"
            bloom99.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom100.Name = "Border2A"
            bloom100.Value = Color.FromArgb(60, 60, 60)
            bloom101.Name = "Border2B"
            bloom101.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton6.Colors = New Bloom() { bloom94, bloom95, bloom96, bloom97, bloom98, bloom99, bloom100, bloom101 }
            Me.flowButton6.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton6.Font = New Font("Verdana", 8!)
            Me.flowButton6.Image = Nothing
            Me.flowButton6.Location = New Point(&HFD, &HFD)
            Me.flowButton6.Margin = New Padding(2, 3, 2, 3)
            Me.flowButton6.Name = "flowButton6"
            Me.flowButton6.NoRounding = False
            Me.flowButton6.Size = New Size(&HF8, 20)
            Me.flowButton6.TabIndex = 14
            Me.flowButton6.Text = "Still Need Help? Click Here"
            Me.flowButton6.Transparent = False
            AddHandler Me.flowButton6.Click, New EventHandler(AddressOf Me.flowButton6_Click)
            Me.comboBox1.AutoCompleteCustomSource.AddRange(New String() { "MBAM", "OTL", "GMER", "TFC", "SAntiSpyware", "FixComet", "Unlocker" })
            Me.comboBox1.BackColor = Color.FromArgb(&H23, &H23, &H23)
            Me.comboBox1.FlatStyle = FlatStyle.Flat
            Me.comboBox1.ForeColor = SystemColors.MenuHighlight
            Me.comboBox1.FormattingEnabled = True
            Me.comboBox1.Items.AddRange(New Object() { "MBAM - Scans System", "OTL - Scans Startup", "GMER - Scans Rootkits", "TFC - Scans System", "SAntiSpyware - Scans System", "FixComet - Fixes Registry", "Unlocker - Unlocks files" })
            Me.comboBox1.Location = New Point(&HFD, &HE1)
            Me.comboBox1.Margin = New Padding(1)
            Me.comboBox1.Name = "comboBox1"
            Me.comboBox1.Size = New Size(140, &H16)
            Me.comboBox1.TabIndex = 3
            Me.comboBox1.Text = "Choose a Program"
            Me.textBox1.BackColor = Color.FromArgb(&H23, &H23, &H23)
            Me.textBox1.BorderStyle = BorderStyle.FixedSingle
            Me.textBox1.ForeColor = SystemColors.MenuHighlight
            Me.textBox1.Location = New Point(11, &HFD)
            Me.textBox1.Margin = New Padding(2, 3, 2, 3)
            Me.textBox1.Name = "textBox1"
            Me.textBox1.Size = New Size(120, 20)
            Me.textBox1.TabIndex = 5
            Me.textBox1.Text = "process.exe"
            bloom102.Name = "DownGradient1"
            bloom102.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom103.Name = "DownGradient2"
            bloom103.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom104.Name = "NoneGradient1"
            bloom104.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom105.Name = "NoneGradient2"
            bloom105.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom106.Name = "Text"
            bloom106.Value = Color.FromArgb(0, &H84, &HFF)
            bloom107.Name = "Border1"
            bloom107.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom108.Name = "Border2A"
            bloom108.Value = Color.FromArgb(60, 60, 60)
            bloom109.Name = "Border2B"
            bloom109.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton4.Colors = New Bloom() { bloom102, bloom103, bloom104, bloom105, bloom106, bloom107, bloom108, bloom109 }
            Me.flowButton4.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton4.Font = New Font("Verdana", 8!)
            Me.flowButton4.Image = Nothing
            Me.flowButton4.Location = New Point(&H87, &HFD)
            Me.flowButton4.Margin = New Padding(2, 3, 2, 3)
            Me.flowButton4.Name = "flowButton4"
            Me.flowButton4.NoRounding = False
            Me.flowButton4.Size = New Size(&H30, 20)
            Me.flowButton4.TabIndex = 12
            Me.flowButton4.Text = "Kill"
            Me.flowButton4.Transparent = False
            AddHandler Me.flowButton4.Click, New EventHandler(AddressOf Me.flowButton4_Click)
            bloom110.Name = "DownGradient1"
            bloom110.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom111.Name = "DownGradient2"
            bloom111.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom112.Name = "NoneGradient1"
            bloom112.Value = Color.FromArgb(&H26, &H26, &H26)
            bloom113.Name = "NoneGradient2"
            bloom113.Value = Color.FromArgb(&H18, &H18, &H18)
            bloom114.Name = "Text"
            bloom114.Value = Color.FromArgb(0, &H84, &HFF)
            bloom115.Name = "Border1"
            bloom115.Value = Color.FromArgb(&H16, &H16, &H16)
            bloom116.Name = "Border2A"
            bloom116.Value = Color.FromArgb(60, 60, 60)
            bloom117.Name = "Border2B"
            bloom117.Value = Color.FromArgb(&H24, &H24, &H24)
            Me.flowButton1.Colors = New Bloom() { bloom110, bloom111, bloom112, bloom113, bloom114, bloom115, bloom116, bloom117 }
            Me.flowButton1.Customization = "GBgY/yYmJv8mJib/GBgY//+EAP8WFhb/PDw8/yQkJP8="
            Me.flowButton1.Font = New Font("Verdana", 8!)
            Me.flowButton1.Image = Nothing
            Me.flowButton1.Location = New Point(&H9B, &H87)
            Me.flowButton1.Margin = New Padding(2, 3, 2, 3)
            Me.flowButton1.Name = "flowButton1"
            Me.flowButton1.NoRounding = False
            Me.flowButton1.Size = New Size(&H59, 20)
            Me.flowButton1.TabIndex = 9
            Me.flowButton1.Text = "Enable"
            Me.flowButton1.Transparent = False
            AddHandler Me.flowButton1.Click, New EventHandler(AddressOf Me.flowButton1_Click)
            MyBase.AutoScaleDimensions = New SizeF(6!, 14!)
            MyBase.AutoScaleMode = AutoScaleMode.Font
            Me.BackColor = Color.FromArgb(&H23, &H23, &H23)
            MyBase.ClientSize = New Size(&H202, &H120)
            MyBase.Controls.Add(Me.flowTheme1)
            Me.Font = New Font("Arial", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
            Me.ForeColor = Color.FromArgb(&H80, &H80, &HFF)
            MyBase.FormBorderStyle = FormBorderStyle.None
            MyBase.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
            MyBase.Margin = New Padding(2, 3, 2, 3)
            MyBase.Name = "Form1"
            MyBase.StartPosition = FormStartPosition.CenterScreen
            Me.Text = "Infested Cleaner"
            MyBase.TopMost = True
            MyBase.TransparencyKey = Color.Fuchsia
            Me.flowTheme1.ResumeLayout(False)
            Me.flowTheme1.PerformLayout
            Me.groupBox1.ResumeLayout(False)
            Me.groupBox1.PerformLayout
            MyBase.ResumeLayout(False)
        End Sub

        Private Sub lstServices_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
            Dim class2 As New ManagementClass("Win32_StartupCommand")
            Dim obj2 As ManagementObject
            For Each obj2 In class2.GetInstances
                Dim strArray As String() = DirectCast(Me.arrServices.Item(Me.lstServices.SelectedIndex), String())
                If (obj2.GetPropertyValue("Name").ToString = strArray(1)) Then
                    Me.lblPath.Text = (obj2.GetPropertyValue("Command"))
                    Me.lblDesc.Text = obj2.GetPropertyValue("Location").ToString
                End If
            Next
        End Sub


        ' Fields
        Private arrServices As ArrayList = New ArrayList
        Private checkBox1 As CheckBox
        Private checkBox2 As CheckBox
        Private checkBox3 As CheckBox
        Private checkBox4 As CheckBox
        Private columnHeader1 As ColumnHeader
        Private comboBox1 As ComboBox
        Private components As IContainer
        Private flowButton1 As FlowButton
        Private flowButton10 As FlowButton
        Private flowButton11 As FlowButton
        Private flowButton12 As FlowButton
        Private flowButton13 As FlowButton
        Private flowButton2 As FlowButton
        Private flowButton3 As FlowButton
        Private flowButton4 As FlowButton
        Private flowButton5 As FlowButton
        Private flowButton6 As FlowButton
        Private flowButton7 As FlowButton
        Private flowButton8 As FlowButton
        Private flowButton9 As FlowButton
        Private flowTheme1 As FlowTheme
        Private groupBox1 As GroupBox
        Private lblDesc As TextBox
        Private lblPath As TextBox
        Private listview1 As ListView
        Private lstServices As ListBox
        Private textBox1 As TextBox
    End Class
End Namespace