Public Class Form1
    Inherits Form
    ' Methods
    <DebuggerNonUserCode> _
    Shared Sub New()
    Public Sub New()
    Private Sub AutoInject_Tick(ByVal sender As Object, ByVal e As EventArgs)
    Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)
    <DllImport("kernel32.dll", SetLastError:=True)> _
    Private Shared Function CloseHandle(ByVal hHandle As IntPtr) As Boolean
    <DllImport("kernel32.dll")> _
    Private Shared Function CreateRemoteThread(ByVal hProcess As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal dwStackSize As UInt32, ByVal lpStartAddress As IntPtr, ByVal lpParameter As IntPtr, ByVal dwCreationFlags As UInt32, ByVal lpThreadId As IntPtr) As IntPtr
    <DebuggerNonUserCode> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    Private Sub ElectricButton1_Click_1(ByVal sender As Object, ByVal e As EventArgs)
    Private Sub ElectricButton2_Click_1(ByVal sender As Object, ByVal e As EventArgs)
    Private Sub ElectricButton3_Click_1(ByVal sender As Object, ByVal e As EventArgs)
    Private Sub ElectricButton4_Click(ByVal sender As Object, ByVal e As EventArgs)
    Private Sub ElectricMenuButton4_Click_1(ByVal sender As Object, ByVal e As EventArgs)
    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Private Shared Function GetModuleHandle(ByVal lpModuleName As String) As IntPtr
    <DllImport("kernel32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Shared Function GetProcAddress(ByVal hModule As IntPtr, ByVal procName As String) As IntPtr
    <DebuggerStepThrough> _
    Private Sub InitializeComponent()
    Private Sub Inject(ByVal dllPath As String)
    Private Sub ListBox1_SelectedIndexChanged_1(ByVal sender As Object, ByVal e As EventArgs)
    Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As CancelEventArgs)
    <DllImport("kernel32.dll")> _
    Private Shared Function OpenProcess(ByVal dwDesiredAccess As ProcessAccessFlags, <MarshalAs(UnmanagedType.Bool)> ByVal bInheritHandle As Boolean, ByVal dwProcessId As Integer) As IntPtr
    <DllImport("kernel32.dll", SetLastError:=True, ExactSpelling:=True)> _
    Private Shared Function VirtualAllocEx(ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As UInt32, ByVal flAllocationType As UInt32, ByVal flProtect As UInt32) As IntPtr
    <DllImport("kernel32.dll", SetLastError:=True)> _
    Public Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As String, ByVal nSize As UInt32, <Out> ByRef lpNumberOfBytesWritten As Integer) As Boolean

    ' Properties
    Friend Overridable Property AutoInject As Timer
    Friend Overridable Property Button2 As Button
    Friend Overridable Property ElectricButton1 As ElectricButton
    Friend Overridable Property ElectricButton2 As ElectricButton
    Friend Overridable Property ElectricButton3 As ElectricButton
    Friend Overridable Property ElectricButton4 As ElectricButton
    Friend Overridable Property ElectricMenuButton1 As ElectricMenuButton
    Friend Overridable Property ElectricMenuButton2 As ElectricMenuButton
    Friend Overridable Property ElectricMenuButton3 As ElectricMenuButton
    Friend Overridable Property ElectricMenuButton4 As ElectricMenuButton
    Friend Overridable Property ElectricTheme1 As ElectricTheme
    Friend Overridable Property ListBox1 As ListBox
    Friend Overridable Property OpenFileDialog1 As OpenFileDialog
    Friend Overridable Property TextBox1 As TextBox
    Friend Overridable Property TextBox3 As TextBox

    ' Fields
    Private Shared __ENCList As List(Of WeakReference)
    <AccessedThroughProperty("AutoInject")> _
    Private _AutoInject As Timer
    <AccessedThroughProperty("Button2")> _
    Private _Button2 As Button
    <AccessedThroughProperty("ElectricButton1")> _
    Private _ElectricButton1 As ElectricButton
    <AccessedThroughProperty("ElectricButton2")> _
    Private _ElectricButton2 As ElectricButton
    <AccessedThroughProperty("ElectricButton3")> _
    Private _ElectricButton3 As ElectricButton
    <AccessedThroughProperty("ElectricButton4")> _
    Private _ElectricButton4 As ElectricButton
    <AccessedThroughProperty("ElectricMenuButton1")> _
    Private _ElectricMenuButton1 As ElectricMenuButton
    <AccessedThroughProperty("ElectricMenuButton2")> _
    Private _ElectricMenuButton2 As ElectricMenuButton
    <AccessedThroughProperty("ElectricMenuButton3")> _
    Private _ElectricMenuButton3 As ElectricMenuButton
    <AccessedThroughProperty("ElectricMenuButton4")> _
    Private _ElectricMenuButton4 As ElectricMenuButton
    <AccessedThroughProperty("ElectricTheme1")> _
    Private _ElectricTheme1 As ElectricTheme
    <AccessedThroughProperty("ListBox1")> _
    Private _ListBox1 As ListBox
    <AccessedThroughProperty("OpenFileDialog1")> _
    Private _OpenFileDialog1 As OpenFileDialog
    <AccessedThroughProperty("TextBox1")> _
    Private _TextBox1 As TextBox
    <AccessedThroughProperty("TextBox3")> _
    Private _TextBox3 As TextBox
    Private components As IContainer
    Private ExeName As String
    Private Const MEM_COMMIT As Integer = &H1000
    Private Const PAGE_READWRITE As Integer = 4
    Private Const PROCESS_ALL_ACCESS As Integer = &H1F0FFF
    Private Const TH32CS_SNAPPROCESS As Integer = 2

    ' Nested Types
    <Flags> _
    Public Enum ProcessAccessFlags
        ' Fields
        AllAccess = &H10067B
        CreateThread = 2
        DuplicateHandle = &H40
        QueryInformation = &H400
        SetInformation = &H200
        Synchronize = &H100000
        Terminate = 1
        VMOperation = 8
        VMRead = &H10
        VMWrite = &H20
    End Enum
End Class