Chameleon installer / hackintosh multitool

*** Chameleon installer ***
*** Main form (install chameleon) ***

Public Class Form2
    Public Sub SaveFromResources(ByVal FilePath As String, ByVal File As Object)
        Dim FByte() As Byte = File
        My.Computer.FileSystem.WriteAllBytes(FilePath, FByte, True)
    End Sub
    Private Sub MetroShell1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MetroShell1.Click
        Form3.Show()
    End Sub

    Private Sub ButtonItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem1.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SaveFromResources("C:\RapHaeL444Chameleon.iso", My.Resources.Chameleon)
        Form3.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub
End Class

*** second windows (Install easybcd / view tutorial) ***
Public Class Form3
    Public Sub SaveFromResources(ByVal FilePath As String, ByVal File As Object)
        Dim FByte() As Byte = File
        My.Computer.FileSystem.WriteAllBytes(FilePath, FByte, True)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SaveFromResources("C:\RapHaeL444EasyBCD.exe", My.Resources.EasyBCD)
        Process.Start("C:\RapHaeL444EasyBCD.exe")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form4.Show()
    End Sub
End Class

*** Hackintosh multitool ***
*** main windows ***
Imports System.Runtime.InteropServices
Public Class Form5

    <StructLayout(LayoutKind.Sequential)> _
    Public Structure MARGINS
        Public Destra As Integer
        Public Sinistra As Integer
        Public Su As Integer
        Public Giu As Integer
    End Structure
    Declare Auto Function DwmIsCompositionEnabled Lib "dwmapi.dll" Alias "DwmIsCompositionEnabled" (ByRef pfEnabled As Boolean) As Integer
    Declare Auto Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" Alias "DwmExtendFrameIntoClientArea" (ByVal hWnd As IntPtr, ByRef pMargin As MARGINS) As Integer
    Dim pMargins As New MARGINS With {.Su = -1, .Sinistra = -1, .Destra = -1, .Giu = -1}
    Private Sub Form5_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim en As Boolean = False
        DwmIsCompositionEnabled(en)
        If en Then
            DwmExtendFrameIntoClientArea(Me.Handle, pMargins)
        End If
        Me.TransparencyKey = Color.FromKnownColor(KnownColor.ActiveCaption)
        Me.BackColor = Me.TransparencyKey
    End Sub

    Public Sub SaveFromResources(ByVal FilePath As String, ByVal File As Object)
        Dim FByte() As Byte = File
        My.Computer.FileSystem.WriteAllBytes(FilePath, FByte, True)
    End Sub
    Private Sub ButtonItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem13.Click
        Me.Close()
    End Sub

    Private Sub ButtonItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem2.Click
        Form2.Show()
    End Sub

    Private Sub RibbonBar2_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RibbonControl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RibbonControl1.Click

    End Sub

    Private Sub ButtonItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SaveFromResources("C:\dreamscene.exe", My.Resources.dreamscene)
        Process.Start("C:\dreamscene.exe")
    End Sub

    Private Sub ButtonItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem4.Click
        Form6.Show()
    End Sub

    Private Sub ButtonItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem8.Click
        Me.Close()
    End Sub

    Private Sub Office2007StartButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ButtonItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SaveFromResources("C:\HFS+.exe", My.Resources.HFS)
        Process.Start("C:\HFS+.exe")
    End Sub

    Private Sub ButtonItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem5.Click
        Process.Start("http://bit.ly/HackStoreTeam")
        MessageBox.Show("To install it on your ''mac os'' just install HFS+ reader (windows editor/HFS+)and add the .dmg to you hfs+ partition.", "Hackintosh tool", _
           MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End Sub

    Private Sub ButtonItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SaveFromResources("C:\dreamscene.exe", My.Resources.dreamscene)
        Process.Start("C:\dreamscene.exe")
    End Sub

    Private Sub ButtonItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SaveFromResources("C:\HFS+.exe", My.Resources.HFS)
        Process.Start("C:\HFS+.exe")
    End Sub

    Private Sub ButtonItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SaveFromResources("C:\uwc.exe", My.Resources.UWC)
        Process.Start("C:\uwc.exe")
    End Sub

    Private Sub ButtonItem1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem1.Click
        Form2.Show()
    End Sub

    Private Sub ButtonItem3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem3.Click
        SaveFromResources("C:\dreamscene.exe", My.Resources.dreamscene)
        Process.Start("C:\dreamscene.exe")
    End Sub

    Private Sub ButtonItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem6.Click
        SaveFromResources("C:\HFS+.exe", My.Resources.HFS)
        Process.Start("C:\HFS+.exe")
    End Sub

    Private Sub ButtonItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem7.Click
        SaveFromResources("C:\uwc.exe", My.Resources.UWC)
        Process.Start("C:\uwc.exe")
    End Sub

    Private Sub ButtonItem21_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem21.Click
        Process.Start("http://bit.ly/HackStoreTeam")
        MessageBox.Show("To install it on your ''mac os'' just install HFS+ reader (windows editor/HFS+)and add the .dmg to you hfs+ partition.", "Hackintosh tool", _
           MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End Sub

    Private Sub ButtonItem22_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem22.Click
        Form6.Show()
    End Sub

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        Process.Start("http://www.osx86.net/view/3170-chameleon_2.1_installer_from_windows.html")
    End Sub

    Private Sub Office2007StartButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Office2007StartButton1.Click

    End Sub

    Private Sub ButtonItem23_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem23.Click
        SaveFromResources("C:\startorbchanger.exe", My.Resources.startorb)
        Process.Start("C:\startorbchanger.exe")
    End Sub
End Class

*** plist maker ***
Public Class Form6
    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Dim reader As New IO.StreamReader(OpenFileDialog1.FileName)
        TextBox1.Text = reader.ReadToEnd
        reader.Close()
    End Sub
    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk


        SaveFileDialog1.Filter = "Plist files (*.plist)|*.plist"
        SaveFileDialog1.FilterIndex = 2
        SaveFileDialog1.RestoreDirectory = True

        Dim FileToSaveAs As String = SaveFileDialog1.FileName

        Dim objwriter As New System.IO.StreamWriter(FileToSaveAs)
        objwriter.Write(TextBox1.Text)
        objwriter.Close()

    End Sub
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        SaveFileDialog1.ShowDialog()
    End Sub

    Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
        OpenFileDialog1.ShowDialog()
    End Sub
End Class