Mamo Loader Source Code !!!

Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Globalization
Imports System****
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Windows.Forms

Namespace WindowsApplication1
    Public Class InjectMe
        ' Methods
        Public Sub New()
            Me.CLR1 = Me.HX2Bts("6EA0F1901277624786B57A5EBA6BDB02")
            Me.CLR2 = Me.HX2Bts("6CA0F1901277624786B57A5EBA6BDB02")
            Me.WKS = Me.HX2Bts("77006B007300")
        End Sub

        Public Sub Allocate()
            Me.Cave = InjectMe.VirtualAllocEx(Me.pHandle, IntPtr.Zero, &H200, &H1000, &H40)
            If (DirectCast(Me.Cave, IntPtr) = IntPtr.Zero) Then
                InjectMe.CloseHandle(Me.pHandle)
            End If
        End Sub

        <DllImport("kernel32.dll", SetLastError:=True)> _
        Private Shared Function CloseHandle(ByVal hObject As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
        End Function

        Public Function CoreePath() As String
            Dim enumerator As IEnumerator
            Try 
                enumerator = Process.GetCurrentProcess.Modules.GetEnumerator
                Do While enumerator.MoveNext
                    Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
                    If (current.ModuleName.ToLower = "mscoree.dll") Then
                        Return current.FileName
                    End If
                Loop
            Finally
                If TypeOf enumerator Is IDisposable Then
                    TryCast(enumerator,IDisposable).Dispose
                End If
            End Try
            Return String.Empty
        End Function

        <DllImport("kernel32.dll", SetLastError:=True)> _
        Private Shared Function CreateRemoteThread(ByVal hProcess As IntPtr, ByVal lpThreadAttribute As IntPtr, ByVal dwStackSize As IntPtr, ByVal lpStartAddress As IntPtr, ByVal lpParameter As IntPtr, ByVal dwCreationFlags As UInt32, ByVal lpThreadId As IntPtr) As IntPtr
        End Function

        Public Sub Deallocate()
            If Not InjectMe.VirtualFreeEx(Me.pHandle, DirectCast(Me.Cave, IntPtr), 0, &H4000) Then
                InjectMe.CloseHandle(Me.pHandle)
            End If
        End Sub

        Public Function GetDlls() As List(Of String)
            Dim list2 As New List(Of String)
            Dim info As FileInfo
            For Each info In New DirectoryInfo(Application.StartupPath).GetFiles("*.dll")
                list2.Add(info.FullName)
            Next
            Return list2
        End Function

        Public Function GetIns(ByVal Addy As Integer) As String
            Dim bytes As Byte() = BitConverter.GetBytes(Addy)
            Dim str2 As String = String.Empty
            Dim num2 As Integer = (bytes.Length - 1)
            Dim i As Integer = 0
            Do While (i <= num2)
                str2 = (str2 & String.Format("{0:x2}", Convert.ToUInt32(bytes(i))))
                i += 1
            Loop
            Return str2
        End Function

        <DllImport("kernel32.dll", SetLastError:=True)> _
        Private Shared Function GetModuleHandle(ByVal lpModuleName As String) As IntPtr
        End Function

        Public Function GetNamespace(ByVal _Path As String) As String
            Try 
                Dim type As Type
                For Each type In Assembly.LoadFrom(_Path).GetTypes
                    If (type.IsClass And Not type.ToString.StartsWith("<")) Then
                        Dim index As Integer = type.ToString.IndexOf(".")
                        If (index <> -1) Then
                            Return (type.ToString.Substring(0, (index + 1)) & "Class1")
                        End If
                        Return type.ToString
                    End If
                Next
            Catch exception1 As Exception
                ProjectData.SetProjectError(exception1)
                MessageBox.Show("Not a managed dll")
                ProjectData.ClearProjectError
            End Try
            Return String.Empty
        End Function

        <DllImport("kernel32.dll", SetLastError:=True)> _
        Private Shared Function GetProcAddress(ByVal hModule As IntPtr, ByVal lpProcName As String) As IntPtr
        End Function

        Public Function HX2Bts(ByVal HXS As String) As Byte()
            If ((HXS.Length Mod 2) <> 0) Then
                HXS = HXS.Substring(0, (HXS.Length - 1))
            End If
            Dim buffer As Byte() = New Byte((CInt(Math****und(CDbl(((CDbl(HXS.Length) / 2) - 1)))) + 1)  - 1) {}
            Dim num2 As Integer = (buffer.Length - 1)
            Dim i As Integer = 0
            Do While (i <= num2)
                buffer(i) = Byte.Parse(HXS.Substring((i * 2), 2), NumberStyles.HexNumber)
                i += 1
            Loop
            Return buffer
        End Function

        Public Sub Inject(ByVal ProcessName As String)
            If Not Conversions.ToBoolean(Operators.OrObject((Conversions.ToBoolean((Me.Dlls.Count = 0)) AndAlso Conversions.ToBoolean(Operators.NotObject(Me.DllsInFolder))), (ProcessName = String.Empty))) Then
                Me.pName = ProcessName
                If Conversions.ToBoolean(Operators.NotObject(Me.FilesWrote)) Then
                    If Conversions.ToBoolean(Operators.NotObject(Me.DllsInFolder)) Then
                        Dim buffer As Byte()
                        For Each buffer In Me.Dlls
                            Try 
                                Dim item As String = (Path.GetTempPath & Guid.NewGuid.ToString & ".dll")
                                Me._Paths.Add(item)
                                File.WriteAllBytes(item, buffer)
                            Catch exception1 As Exception
                                ProjectData.SetProjectError(exception1)
                                Application.Exit
                                ProjectData.ClearProjectError
                            End Try
                        Next
                    Else
                        Me._Paths = Me.GetDlls
                    End If
                    Me.FilesWrote = True
                End If
                If Not Me.TimerMade Then
                    Me.TimerMade = True
                    Me._Timer.Interval = Me.Intervals
                    Me._Timer.Start
                    AddHandler Me._Timer.Tick, New EventHandler(AddressOf Me.ProcTimer)
                End If
            End If
        End Sub

        Public Function IsManaged(ByVal _Path As String) As Boolean
            Dim flag As Boolean
            Try 
                AssemblyName.GetAssemblyName(_Path)
                flag = True
            Catch exception1 As Exception
                ProjectData.SetProjectError(exception1)
                flag = False
                ProjectData.ClearProjectError
                Return flag
                ProjectData.ClearProjectError
            End Try
            Return flag
        End Function

        Public Function Mscoree(ByVal _Path As String) As Boolean
            Dim flag As Boolean = Me.IsManaged(_Path)
            If Conversions.ToBoolean((Conversions.ToBoolean(flag) AndAlso Conversions.ToBoolean(Me._MS))) Then
                Return True
            End If
            If flag Then
                Me._MS = True
            End If
            _Path = If(flag, Me.CoreePath, _Path)
            Dim procAddress As IntPtr = InjectMe.GetProcAddress(InjectMe.GetModuleHandle("kernel32.dll"), "LoadLibraryA")
            Me.Allocate
            If (procAddress <> IntPtr.Zero) Then
                Me.WriteBytes(DirectCast(Me.Cave, IntPtr), Encoding.ASCII.GetBytes(_Path))
                Me.RemoteThread(procAddress, -1)
                Me.Deallocate
                Return flag
            End If
            Me.Deallocate
            Return False
        End Function

        Public Function OpenProc() As Boolean
            Me.Proc = Process.GetProcessesByName(Me.pName)
            If (Me.Proc.Length <> 0) Then
                Me.pHandle = InjectMe.OpenProcess(&H43A, False, Me.Proc(0).Id)
                Return (Me.pHandle <> IntPtr.Zero)
            End If
            Return False
        End Function

        <DllImport("kernel32.dll")> _
        Private Shared Function OpenProcess(ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Boolean, ByVal dwProcessId As Integer) As IntPtr
        End Function

        Private Sub ProcTimer(ByVal sender As Object, ByVal e As EventArgs)
            If Me.OpenProc Then
                Dim str As String
                For Each str In Me._Paths
                    If Me.Mscoree(str) Then
                        Me.Allocate
                        Dim addy As Integer = Conversions.ToInteger(Operators.AddObject(NewLateBinding.LateGet(Me.Cave, Nothing, "ToInt32", New Object(0  - 1) {}, Nothing, Nothing, Nothing), &H54))
                        Dim num7 As Integer = (addy + 10)
                        Dim num6 As Integer = ((num7 + (str.Length * 2)) + 4)
                        Dim num5 As Integer = ((num6 + (Me.GetNamespace(str).Length * 2)) + 4)
                        Dim num As Integer = (num5 + &H12)
                        Dim num2 As Integer = (num + 4)
                        Dim num3 As Integer = (num2 + &H12)
                        Dim num4 As Integer = (num3 + &H12)
                        Dim num8 As Integer = (num4 + 4)
                        Me.WriteBytes(DirectCast(num2, IntPtr), Me.CLR1)
                        Me.WriteBytes(DirectCast(num3, IntPtr), DirectCast(Me.CLR2, Byte()))
                        Me.WriteBytes(DirectCast(addy, IntPtr), Me.WKS)
                        Me.WriteBytes(DirectCast(num7, IntPtr), Encoding.Unicode.GetBytes(str))
                        Me.WriteBytes(DirectCast(num6, IntPtr), Encoding.Unicode.GetBytes(Me.GetNamespace(str)))
                        Me.WriteBytes(DirectCast(num5, IntPtr), Encoding.Unicode.GetBytes("DllMain"))
                        Dim hXS As String = String.Empty
                        hXS = ((((String.Concat(New String() { hXS, "68", Me.GetIns(num4), "68", Me.GetIns(num3) }) & "68" & Me.GetIns(num2) & "6a00") & "68" & Me.GetIns(addy) & "6a00") & "E8" & Me.GetIns(Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(InjectMe.GetProcAddress(InjectMe.GetModuleHandle("mscoree.dll"), "CorBindToRuntimeEx").ToInt32, Operators.AddObject(NewLateBinding.LateGet(Me.Cave, Nothing, "ToInt32", New Object(0  - 1) {}, Nothing, Nothing, Nothing), &H18)), 5)))) & "a1" & Me.GetIns(num4) & "8b088b510c50ffd2")
                        hXS = String.Concat(New String() { hXS, "68", Me.GetIns(num8), "68", Me.GetIns(num) })
                        hXS = String.Concat(New String() { hXS, "68", Me.GetIns(num5), "68", Me.GetIns(num6) })
                        hXS = (String.Concat(New String() { hXS, "68", Me.GetIns(num7), "a1", Me.GetIns(num4) }) & "8b08508b412cffd0c3")
                        Me.WriteBytes(DirectCast(Me.Cave, IntPtr), Me.HX2Bts(hXS))
                        Me.RemoteThread(DirectCast(Me.Cave, IntPtr), Conversions.ToInteger(Me.ObjectWait))
                        Me.Deallocate
                    End If
                Next
                InjectMe.CloseHandle(Me.pHandle)
                Me._Timer.Enabled = False
                If Conversions.ToBoolean((Conversions.ToBoolean(Me.DeleteDllsWhenDone) AndAlso Conversions.ToBoolean(Operators.NotObject(Me.DllsInFolder)))) Then
                    Me.SelfDestruct
                End If
                Application.Exit
            End If
        End Sub

        Public Sub RemoteThread(ByVal Adr As IntPtr, ByVal _Wait As Integer)
            Dim hHandle As IntPtr = InjectMe.CreateRemoteThread(Me.pHandle, IntPtr.Zero, IntPtr.Zero, Adr, DirectCast(Me.Cave, IntPtr), 0, IntPtr.Zero)
            If (hHandle <> IntPtr.Zero) Then
                Try 
                    If (InjectMe.WaitForSingleObject(hHandle, _Wait) = -1) Then
                        Me.Deallocate
                        InjectMe.CloseHandle(Me.pHandle)
                    End If
                Finally
                    InjectMe.CloseHandle(hHandle)
                End Try
            End If
        End Sub

        Public Sub SelfDestruct()
            Dim path As String = (Path.GetTempPath & Guid.NewGuid.ToString & ".bat")
            Using writer As StreamWriter = File.CreateText(path)
                writer.WriteLine(":Ret")
                writer.WriteLine("Ping Localhost -n 3 > nul")
                writer.WriteLine(("del """ & Me._Paths.Item(0) & """"))
                writer.WriteLine(("if exist """ & Me._Paths.Item(0) & """ goto Ret"))
                Dim num2 As Integer = (Me._Paths.Count - 1)
                Dim i As Integer = 1
                Do While (i <= num2)
                    writer.WriteLine(("del """ & Me._Paths.Item(i) & """"))
                    i += 1
                Loop
                writer.WriteLine(("del """ & path & """"))
            End Using
            Dim startInfo As New ProcessStartInfo(path) With { _
                .WindowStyle = ProcessWindowStyle.Hidden _
            }
            Process.Start(startInfo)
        End Sub

        <DllImport("kernel32.dll", SetLastError:=True)> _
        Private Shared Function VirtualAllocEx(ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As Integer, ByVal flAllocationType As UInt32, ByVal flProtect As UInt32) As IntPtr
        End Function

        <DllImport("kernel32.dll", SetLastError:=True, ExactSpelling:=True)> _
        Private Shared Function VirtualFreeEx(ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As Byte, ByVal dwFreeType As UInt32) As Boolean
        End Function

        <DllImport("kernel32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Private Shared Function WaitForSingleObject(ByVal hHandle As IntPtr, ByVal dwMilliseconds As Integer) As Integer
        End Function

        Public Function WriteBytes(ByVal Addy As IntPtr, ByVal byts As Byte()) As Boolean
            If Not InjectMe.WriteProcessMemory(Me.pHandle, Addy, byts, byts.Length, 0) Then
                Me.Deallocate
                InjectMe.CloseHandle(Me.pHandle)
            End If
            Return True
        End Function

        <DllImport("kernel32.dll")> _
        Private Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal buffer As Byte(), ByVal size As Integer, ByVal lpNumberOfBytesWritten As Integer) As Boolean
        End Function


        ' Fields
        Private _MS As Object
        Private _Paths As List(Of String) = New List(Of String)
        Public _Timer As Timer = New Timer
        Private Cave As Object = IntPtr.Zero
        Private CLR1 As Byte()
        Private CLR2 As Object
        Public DeleteDllsWhenDone As Boolean
        Public Dlls As List(Of Byte()) = New List(Of Byte())
        Public DllsInFolder As Object
        Private FilesWrote As Object
        Public Intervals As Integer = 100
        Public ObjectWait As Object = &H7D0
        Private pHandle As IntPtr = IntPtr.Zero
        Private pName As String = String.Empty
        Private Proc As Process()
        Private TimerMade As Boolean
        Private WKS As Byte()
    End Class
End Namespace

Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms
Imports WindowsApplication1.My
Imports WindowsApplication1.My.Resources

Namespace WindowsApplication1
    <DesignerGenerated> _
    Public Class Form1
        Inherits Form
        ' Methods
        Public Sub New()
            AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)
            Form1.__ENCAddToList(Me)
            Me.Inj = New InjectMe
            Me.InitializeComponent
        End Sub

        <DebuggerNonUserCode> _
        Private Shared Sub __ENCAddToList(ByVal value As Object)
            Dim list As List(Of WeakReference) = Form1.__ENCList
            SyncLock list
                If (Form1.__ENCLis*****unt = Form1.__ENCList.Capacity) Then
                    Dim index As Integer = 0
                    Dim num3 As Integer = (Form1.__ENCLis*****unt - 1)
                    Dim i As Integer = 0
                    Do While (i <= num3)
                        Dim reference As WeakReference = Form1.__ENCList.Item(i)
                        If reference.IsAlive Then
                            If (i <> index) Then
                                Form1.__ENCList.Item(index) = Form1.__ENCList.Item(i)
                            End If
                            index += 1
                        End If
                        i += 1
                    Loop
                    Form1.__ENCList.RemoveRange(index, (Form1.__ENCLis*****unt - index))
                    Form1.__ENCList.Capacity = Form1.__ENCLis*****unt
                End If
                Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
            End SyncLock
        End Sub

        Private Sub BetaBlueButton1_Click_1(ByVal sender As Object, ByVal e As EventArgs)
            Me.Close
        End Sub

        Private Sub BetaBlueButton2_Click_1(ByVal sender As Object, ByVal e As EventArgs)
            Me.OnOff = Not Me.OnOff
            Me.BetaBlueButton2.Text = If(Me.OnOff, "Enabled", "Disabled")
            Me.Inj._Timer.Enabled = Me.OnOff
        End Sub

        Private Sub BetaBlueButton3_Click(ByVal sender As Object, ByVal e As EventArgs)
            MyProject.Forms.HowToUse.Show
        End Sub

        <DebuggerNonUserCode> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try 
                If (disposing AndAlso (Not Me.components Is Nothing)) Then
                    Me.components.Dispose
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
            Me.Inj.Dlls.Add(Resources.TestLoader)
            Me.Inj.DeleteDllsWhenDone = True
            Me.Inj.Inject("crossfire")
            Me.Inj._Timer.Enabled = False
        End Sub

        <DebuggerStepThrough> _
        Private Sub InitializeComponent()
            Me.BetaBlueTheme1 = New BetaBlueTheme
            Me.Label5 = New Label
            Me.Label4 = New Label
            Me.Label3 = New Label
            Me.BetaBlueSeperator2 = New BetaBlueSeperator
            Me.BetaBlueSeperator3 = New BetaBlueSeperator
            Me.BetaBlueButton3 = New BetaBlueButton
            Me.Label2 = New Label
            Me.Label1 = New Label
            Me.BetaBlueSeperator1 = New BetaBlueSeperator
            Me.BetaBlueButton2 = New BetaBlueButton
            Me.BetaBlueButton1 = New BetaBlueButton
            Me.BetaBlueTheme1.SuspendLayout
            Me.SuspendLayout
            Me.BetaBlueTheme1.BackColor = SystemColors.Control
            Me.BetaBlueTheme1.Controls.Add(Me.Label5)
            Me.BetaBlueTheme1.Controls.Add(Me.Label4)
            Me.BetaBlueTheme1.Controls.Add(Me.Label3)
            Me.BetaBlueTheme1.Controls.Add(Me.BetaBlueSeperator2)
            Me.BetaBlueTheme1.Controls.Add(Me.BetaBlueSeperator3)
            Me.BetaBlueTheme1.Controls.Add(Me.BetaBlueButton3)
            Me.BetaBlueTheme1.Controls.Add(Me.Label2)
            Me.BetaBlueTheme1.Controls.Add(Me.Label1)
            Me.BetaBlueTheme1.Controls.Add(Me.BetaBlueSeperator1)
            Me.BetaBlueTheme1.Controls.Add(Me.BetaBlueButton2)
            Me.BetaBlueTheme1.Controls.Add(Me.BetaBlueButton1)
            Me.BetaBlueTheme1.Dock = DockStyle.Fill
            Me.BetaBlueTheme1.Font = New Font("Tahoma", 9.75!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.BetaBlueTheme1.Image = Nothing
            Dim point2 As New Point(0, 0)
            Me.BetaBlueTheme1.Location = point2
            Me.BetaBlueTheme1.MoveHeight = &H19
            Me.BetaBlueTheme1.Name = "BetaBlueTheme1"
            Me.BetaBlueTheme1.Resizable = True
            Dim size2 As New Size(&H11C, &HD5)
            Me.BetaBlueTheme1.Size = size2
            Me.BetaBlueTheme1.TabIndex = 0
            Me.BetaBlueTheme1.Text = "Mamo + Pingo Loader V1.0"
            Me.BetaBlueTheme1.TransparencyKey = Color.Fuchsia
            Me.Label5.AutoSize = True
            Me.Label5.BackColor = SystemColors.HotTrack
            Me.Label5.ForeColor = SystemColors.InactiveCaptionText
            point2 = New Point(&HB9, &H8B)
            Me.Label5.Location = point2
            Me.Label5.Name = "Label5"
            size2 = New Size(&H48, &H10)
            Me.Label5.Size = size2
            Me.Label5.TabIndex = 11
            Me.Label5.Text = "3/2/2013"
            Me.Label4.AutoSize = True
            Me.Label4.BackColor = SystemColors.HotTrack
            Me.Label4.ForeColor = Color.Olive
            point2 = New Point(12, &H8B)
            Me.Label4.Location = point2
            Me.Label4.Name = "Label4"
            size2 = New Size(&H60, &H10)
            Me.Label4.Size = size2
            Me.Label4.TabIndex = 10
            Me.Label4.Text = "Date Of Made"
            Me.Label3.AutoSize = True
            Me.Label3.BackColor = SystemColors.HotTrack
            Me.Label3.ForeColor = SystemColors.ActiveCaption
            point2 = New Point(&H74, &H6C)
            Me.Label3.Location = point2
            Me.Label3.Name = "Label3"
            size2 = New Size(&H35, &H10)
            Me.Label3.Size = size2
            Me.Label3.TabIndex = 9
            Me.Label3.Text = "Loader"
            point2 = New Point(&H68, &H5B)
            Me.BetaBlueSeperator2.Location = point2
            Me.BetaBlueSeperator2.Name = "BetaBlueSeperator2"
            Me.BetaBlueSeperator2.Orientation = Orientation.Horizontal
            size2 = New Size(&H4B, &H51)
            Me.BetaBlueSeperator2.Size = size2
            Me.BetaBlueSeperator2.TabIndex = 8
            Me.BetaBlueSeperator2.Text = "BetaBlueSeperator2"
            point2 = New Point(12, &H95)
            Me.BetaBlueSeperator3.Location = point2
            Me.BetaBlueSeperator3.Name = "BetaBlueSeperator3"
            Me.BetaBlueSeperator3.Orientation = Orientation.Horizontal
            size2 = New Size(260, &H17)
            Me.BetaBlueSeperator3.Size = size2
            Me.BetaBlueSeperator3.TabIndex = 7
            Me.BetaBlueSeperator3.Text = "BetaBlueSeperator3"
            Me.BetaBlueButton3.Dark = False
            Me.BetaBlueButton3.Image = Nothing
            point2 = New Point(12, &HB2)
            Me.BetaBlueButton3.Location = point2
            Me.BetaBlueButton3.Name = "BetaBlueButton3"
            Me.BetaBlueButton3.NoRounding = False
            size2 = New Size(260, &H17)
            Me.BetaBlueButton3.Size = size2
            Me.BetaBlueButton3.TabIndex = 6
            Me.BetaBlueButton3.Text = "HowToUse"
            Me.Label2.AutoSize = True
            Me.Label2.BackColor = SystemColors.HotTrack
            Me.Label2.ForeColor = SystemColors.Highlight
            point2 = New Point(&HCC, &H51)
            Me.Label2.Location = point2
            Me.Label2.Name = "Label2"
            size2 = New Size(&H2B, &H10)
            Me.Label2.Size = size2
            Me.Label2.TabIndex = 4
            Me.Label2.Text = "Pingo"
            Me.Label1.AutoSize = True
            Me.Label1.BackColor = SystemColors.HotTrack
            Me.Label1.ForeColor = SystemColors.Highlight
            point2 = New Point(&H1B, &H51)
            Me.Label1.Location = point2
            Me.Label1.Name = "Label1"
            size2 = New Size(&H2E, &H10)
            Me.Label1.Size = size2
            Me.Label1.TabIndex = 1
            Me.Label1.Text = "Mamo"
            point2 = New Point(12, &H5B)
            Me.BetaBlueSeperator1.Location = point2
            Me.BetaBlueSeperator1.Name = "BetaBlueSeperator1"
            Me.BetaBlueSeperator1.Orientation = Orientation.Horizontal
            size2 = New Size(260, &H17)
            Me.BetaBlueSeperator1.Size = size2
            Me.BetaBlueSeperator1.TabIndex = 2
            Me.BetaBlueSeperator1.Text = "BetaBlueSeperator1"
            Me.BetaBlueButton2.Dark = False
            Me.BetaBlueButton2.Image = Nothing
            point2 = New Point(12, &H2D)
            Me.BetaBlueButton2.Location = point2
            Me.BetaBlueButton2.Name = "BetaBlueButton2"
            Me.BetaBlueButton2.NoRounding = False
            size2 = New Size(260, &H17)
            Me.BetaBlueButton2.Size = size2
            Me.BetaBlueButton2.TabIndex = 1
            Me.BetaBlueButton2.Text = "Disabled"
            Me.BetaBlueButton1.Dark = False
            Me.BetaBlueButton1.Font = New Font("Tahoma", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            Me.BetaBlueButton1.Image = Nothing
            point2 = New Point(&H108, 3)
            Me.BetaBlueButton1.Location = point2
            Me.BetaBlueButton1.Name = "BetaBlueButton1"
            Me.BetaBlueButton1.NoRounding = False
            size2 = New Size(&H11, 20)
            Me.BetaBlueButton1.Size = size2
            Me.BetaBlueButton1.TabIndex = 0
            Me.BetaBlueButton1.Text = "X"
            Dim ef2 As New SizeF(6!, 13!)
            Me.AutoScaleDimensions = ef2
            Me.AutoScaleMode = AutoScaleMode.Font
            size2 = New Size(&H11C, &HD5)
            Me.ClientSize = size2
            Me.Controls.Add(Me.BetaBlueTheme1)
            Me.FormBorderStyle = FormBorderStyle.None
            Me.Name = "Form1"
            Me.Text = "Form1"
            Me.TransparencyKey = Color.Fuchsia
            Me.BetaBlueTheme1.ResumeLayout(False)
            Me.BetaBlueTheme1.PerformLayout
            Me.ResumeLayout(False)
        End Sub


        ' Properties
        Friend Overridable Property BetaBlueButton1 As BetaBlueButton
            <DebuggerNonUserCode> _
            Get
                Return Me._BetaBlueButton1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As BetaBlueButton)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.BetaBlueButton1_Click_1)
                If (Not Me._BetaBlueButton1 Is Nothing) Then
                    RemoveHandler Me._BetaBlueButton1.Click, handler
                End If
                Me._BetaBlueButton1 = WithEventsValue
                If (Not Me._BetaBlueButton1 Is Nothing) Then
                    AddHandler Me._BetaBlueButton1.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property BetaBlueButton2 As BetaBlueButton
            <DebuggerNonUserCode> _
            Get
                Return Me._BetaBlueButton2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As BetaBlueButton)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.BetaBlueButton2_Click_1)
                If (Not Me._BetaBlueButton2 Is Nothing) Then
                    RemoveHandler Me._BetaBlueButton2.Click, handler
                End If
                Me._BetaBlueButton2 = WithEventsValue
                If (Not Me._BetaBlueButton2 Is Nothing) Then
                    AddHandler Me._BetaBlueButton2.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property BetaBlueButton3 As BetaBlueButton
            <DebuggerNonUserCode> _
            Get
                Return Me._BetaBlueButton3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As BetaBlueButton)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.BetaBlueButton3_Click)
                If (Not Me._BetaBlueButton3 Is Nothing) Then
                    RemoveHandler Me._BetaBlueButton3.Click, handler
                End If
                Me._BetaBlueButton3 = WithEventsValue
                If (Not Me._BetaBlueButton3 Is Nothing) Then
                    AddHandler Me._BetaBlueButton3.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property BetaBlueSeperator1 As BetaBlueSeperator
            <DebuggerNonUserCode> _
            Get
                Return Me._BetaBlueSeperator1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As BetaBlueSeperator)
                Me._BetaBlueSeperator1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property BetaBlueSeperator2 As BetaBlueSeperator
            <DebuggerNonUserCode> _
            Get
                Return Me._BetaBlueSeperator2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As BetaBlueSeperator)
                Me._BetaBlueSeperator2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property BetaBlueSeperator3 As BetaBlueSeperator
            <DebuggerNonUserCode> _
            Get
                Return Me._BetaBlueSeperator3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As BetaBlueSeperator)
                Me._BetaBlueSeperator3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property BetaBlueTheme1 As BetaBlueTheme
            <DebuggerNonUserCode> _
            Get
                Return Me._BetaBlueTheme1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As BetaBlueTheme)
                Me._BetaBlueTheme1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label1 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label2 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label3 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label4 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label4
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label4 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label5 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label5
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label5 = WithEventsValue
            End Set
        End Property


        ' Fields
        Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)
        <AccessedThroughProperty("BetaBlueButton1")> _
        Private _BetaBlueButton1 As BetaBlueButton
        <AccessedThroughProperty("BetaBlueButton2")> _
        Private _BetaBlueButton2 As BetaBlueButton
        <AccessedThroughProperty("BetaBlueButton3")> _
        Private _BetaBlueButton3 As BetaBlueButton
        <AccessedThroughProperty("BetaBlueSeperator1")> _
        Private _BetaBlueSeperator1 As BetaBlueSeperator
        <AccessedThroughProperty("BetaBlueSeperator2")> _
        Private _BetaBlueSeperator2 As BetaBlueSeperator
        <AccessedThroughProperty("BetaBlueSeperator3")> _
        Private _BetaBlueSeperator3 As BetaBlueSeperator
        <AccessedThroughProperty("BetaBlueTheme1")> _
        Private _BetaBlueTheme1 As BetaBlueTheme
        <AccessedThroughProperty("Label1")> _
        Private _Label1 As Label
        <AccessedThroughProperty("Label2")> _
        Private _Label2 As Label
        <AccessedThroughProperty("Label3")> _
        Private _Label3 As Label
        <AccessedThroughProperty("Label4")> _
        Private _Label4 As Label
        <AccessedThroughProperty("Label5")> _
        Private _Label5 As Label
        Private components As IContainer
        Private Inj As InjectMe
        Private OnOff As Boolean
    End Class
End Namespace