Updated master files to 0.5.2

Deleted the files which were before in master (Those can be found in the releases > 0.3.0)
Uploaded new files which are of the 0.5.2 version
Now you can open a Basilisk II config file (To add it, open the New Mac Wizard, select "Create from file" and set the emulator to Basilisk II)
and also you can edit and save it (Note that to edit it you must open the section "Edit Config File Manually" and make your changes there)
This commit is contained in:
Edson Armando 2018-12-28 10:38:45 -06:00 committed by GitHub
parent 5f0a9a420d
commit 623da0afb0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
75 changed files with 16964 additions and 0 deletions

62
ApplicationEvents.vb Normal file
View File

@ -0,0 +1,62 @@
Imports System.Management
Namespace My
' Los siguientes eventos están disponibles para MyApplication:
'
' Inicio: se desencadena cuando se inicia la aplicación, antes de que se cree el formulario de inicio.
' Apagado: generado después de cerrar todos los formularios de la aplicación. Este evento no se genera si la aplicación termina de forma anómala.
' UnhandledException: generado si la aplicación detecta una excepción no controlada.
' StartupNextInstance: se desencadena cuando se inicia una aplicación de instancia única y la aplicación ya está activa.
' NetworkAvailabilityChanged: se desencadena cuando la conexión de red está conectada o desconectada.
Partial Friend Class MyApplication
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
SysInfo.GetSysInfo()
If My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder) = False Then
My.Settings.DefaultMacFolder = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\My Macs"
End If
If My.Settings.vMacROM = "" Then
My.Settings.vMacROM = My.Application.Info.DirectoryPath & "\Emulators\vMac\MacII.ROM"
End If
If My.Settings.BasiliskROM = "" Then
My.Settings.BasiliskROM = My.Application.Info.DirectoryPath & "\Emulators\BasiliskII\Mac_OS_ROM"
End If
If My.Settings.SheepShaverROM = "" Then
My.Settings.SheepShaverROM = My.Application.Info.DirectoryPath & "\Emulators\SheepShaver\Mac_OS_ROM"
End If
If Not My.Application.CommandLineArgs.Count = 0 Then
For x As Integer = 0 To My.Application.CommandLineArgs.Count - 1
Select Case My.Application.CommandLineArgs.Item(x)
Case "/debug"
frmMain.mnuFileDebug.Visible = True
frmMain.mnuHelpCrash.Visible = True
Case "/log"
End Select
Next
End If
End Sub
Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
If MsgBox("Virtual Mac is already running. Click Ok to show Virtual Mac Console. Click Cancel to close this dialog", MsgBoxStyle.OkCancel, "Virtual Mac is alerady running") = MsgBoxResult.Ok Then
frmMain.Show()
End If
End Sub
Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
For x As Integer = 0 To My.Application.CommandLineArgs.Count - 1
Select Case My.Application.CommandLineArgs.Item(x)
Case "/debug"
MsgBox(e.Exception.Message)
Resume Next
Case "/log"
Logger.Log(e.Exception.Message)
Resume Next
Case ""
Resume Next
End Select
Next
End Sub
End Class
End Namespace

39
AssemblyInfo.vb Normal file
View File

@ -0,0 +1,39 @@
Imports System.Resources
Imports System.Reflection
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' TODO: Review the values of the assembly attributes
<Assembly: AssemblyTitle("Virtual Mac © Beta")>
<Assembly: AssemblyDescription("Run Classic Mac Operating Systems")>
<Assembly: AssemblyCompany("Tecnologias Edson Armando")>
<Assembly: AssemblyProduct("Virtual Mac")>
<Assembly: AssemblyCopyright("Copyright © Tecnologias Edson Armando")>
<Assembly: AssemblyTrademark("Virtual Mac © 2018 Todos los derechos reservados")>
<Assembly: AssemblyCulture("")>
' Version information for an assembly consists of the following four values:
' Major version
' Minor Version
' Build Number
' Revision
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
<Assembly: AssemblyVersion("0.5.2")>
<Assembly: AssemblyFileVersionAttribute("0.5.2.1")>
<Assembly: ComVisibleAttribute(True)>
<Assembly: NeutralResourcesLanguageAttribute("")>

267
ConfigFileHandler.vb Normal file
View File

@ -0,0 +1,267 @@
Module ConfigFileHandler
Public Sub Create(ByVal Emulator As String, ByVal Path As String, ByVal ConfigArray() As String)
Dim ConfigFile As String = ""
Dim ConfigType As String = ""
Dim DiskSize As String = ""
Dim DiskPath As String = ""
Dim RAM As Integer
Dim MacName As String = ""
Dim MacPath As String = ""
GoTo SkipNew
If Path = "" Then
Path = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\" & ConfigArray(0)
End If
If ConfigArray(1) = True Then
If My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\Tools\qemu-img.exe") Then
Shell(My.Application.Info.DirectoryPath & "\Tools\qemu-img.exe create -f raw -o size=" & DiskSize & "M " & Chr(34) & DiskPath & Chr(34))
End If
End If
GoTo EmulatorSection
SkipNew:
EmulatorSection:
Select Case Emulator
Case "vMac"
ConfigType = "vMac"
ConfigFile = DiskPath & vbCrLf
ConfigFile = ConfigFile & RAM & vbCrLf
ConfigFile = ConfigFile & My.Settings.vMacROM & vbCrLf
Case "SheepShaver"
ConfigType = "SheepShaver"
ConfigFile = FormatLine("disk", DiskPath)
ConfigFile = ConfigFile & FormatLine("extfs", "")
ConfigFile = ConfigFile & FormatLine("screen", "win/800/600")
ConfigFile = ConfigFile & FormatLine("windowmodes", "2")
ConfigFile = ConfigFile & FormatLine("screenmodes", "62")
ConfigFile = ConfigFile & FormatLine("seriala", "FILE")
ConfigFile = ConfigFile & FormatLine("serialb", "COM2")
ConfigFile = ConfigFile & FormatLine("rom", My.Settings.SheepShaverROM)
ConfigFile = ConfigFile & FormatLine("bootdrive", "0")
ConfigFile = ConfigFile & FormatLine("bootdriver", "0")
ConfigFile = ConfigFile & FormatLine("ramsize", (RAM * 1024) * 1024)
ConfigFile = ConfigFile & FormatLine("frameskip", "0")
ConfigFile = ConfigFile & FormatLine("gfxaccel", "true")
ConfigFile = ConfigFile & FormatLine("nocdrom", "false")
ConfigFile = ConfigFile & FormatLine("nonet", "false")
ConfigFile = ConfigFile & FormatLine("nosound", "false")
ConfigFile = ConfigFile & FormatLine("nogui", "false")
ConfigFile = ConfigFile & FormatLine("noclipconversion", "false")
ConfigFile = ConfigFile & FormatLine("ignoresegv", "true")
ConfigFile = ConfigFile & FormatLine("ignoreillegal", "false")
ConfigFile = ConfigFile & FormatLine("jit", "true")
ConfigFile = ConfigFile & FormatLine("jit68k", "false")
ConfigFile = ConfigFile & FormatLine("keyboardtype", "5")
ConfigFile = ConfigFile & FormatLine("ether", "slirp")
ConfigFile = ConfigFile & FormatLine("keycodes", "false")
ConfigFile = ConfigFile & FormatLine("keycodefile", My.Application.Info.DirectoryPath & "\Emulators\SheepShaver\BasiliskII_keycodes")
ConfigFile = ConfigFile & FormatLine("mousewheelmode", "1")
ConfigFile = ConfigFile & FormatLine("mousewheellines", "3")
ConfigFile = ConfigFile & FormatLine("ignoresegv", "true")
ConfigFile = ConfigFile & FormatLine("idlewait", "true")
ConfigFile = ConfigFile & FormatLine("keycodes", "true")
ConfigFile = ConfigFile & FormatLine("keycodefile", My.Application.Info.DirectoryPath & "\Emulators\SheepShaver\BasiliskII_keycodes")
ConfigFile = ConfigFile & FormatLine("mousewheelmode", "1")
ConfigFile = ConfigFile & FormatLine("mousewheellines", "3")
ConfigFile = ConfigFile & FormatLine("enableextfs", "false")
ConfigFile = ConfigFile & FormatLine("debugextfs", "false")
ConfigFile = ConfigFile & FormatLine("extdrives", "CDEFGHIJKLMNOPQRSTUVWXYZ")
ConfigFile = ConfigFile & FormatLine("pollmedia", "true")
ConfigFile = ConfigFile & FormatLine("etherpermanentaddress", "True")
ConfigFile = ConfigFile & FormatLine("ethermulticastmode", "0")
ConfigFile = ConfigFile & FormatLine("routerenabled", "false")
ConfigFile = ConfigFile & FormatLine("ftp_port_list", "21")
ConfigFile = ConfigFile & FormatLine("portfile0", My.Application.Info.DirectoryPath & "\Emulators\SheepShaver\Com1.txt")
ConfigFile = ConfigFile & FormatLine("portfile1", My.Application.Info.DirectoryPath & "\Emulators\SheepShaver\Com2.txt")
Case "BII"
ConfigType = "BII"
ConfigFile = FormatLine("disk", DiskPath)
ConfigFile = ConfigFile & FormatLine("extfs", "")
ConfigFile = ConfigFile & FormatLine("screen", "win/800/600")
ConfigFile = ConfigFile & FormatLine("seriala", "FILE")
ConfigFile = ConfigFile & FormatLine("serialb", "COM2")
ConfigFile = ConfigFile & FormatLine("ether", "slirp")
ConfigFile = ConfigFile & FormatLine("udptunnel", "false")
ConfigFile = ConfigFile & FormatLine("udpport", "6066")
ConfigFile = ConfigFile & FormatLine("rom", My.Settings.BasiliskROM)
ConfigFile = ConfigFile & FormatLine("bootdrive", 0)
ConfigFile = ConfigFile & FormatLine("bootdriver", 0)
ConfigFile = ConfigFile & FormatLine("ramsize", (RAM * 1024) * 1024)
ConfigFile = ConfigFile & FormatLine("frameskip", 1)
ConfigFile = ConfigFile & FormatLine("modelid", 5)
ConfigFile = ConfigFile & FormatLine("cpu", 4)
ConfigFile = ConfigFile & FormatLine("fpu", "true")
ConfigFile = ConfigFile & FormatLine("nocdrom", "false")
ConfigFile = ConfigFile & FormatLine("nosound", "false")
ConfigFile = ConfigFile & FormatLine("noclipconversion", "false")
ConfigFile = ConfigFile & FormatLine("nogui", "false")
ConfigFile = ConfigFile & FormatLine("jit", "true")
ConfigFile = ConfigFile & FormatLine("jitfpu", "true")
ConfigFile = ConfigFile & FormatLine("jitdebug", "true")
ConfigFile = ConfigFile & FormatLine("jitcachesize", 4096)
ConfigFile = ConfigFile & FormatLine("jitlazyflush", "true")
ConfigFile = ConfigFile & FormatLine("jitinline", "true")
ConfigFile = ConfigFile & FormatLine("keyboardtype", "5")
ConfigFile = ConfigFile & FormatLine("keycodes", "false")
ConfigFile = ConfigFile & FormatLine("keycodefile", My.Application.Info.DirectoryPath & "\Emulators\BasiliskII\BasiliskII_keycodes")
ConfigFile = ConfigFile & FormatLine("mousewheelmode", "1")
ConfigFile = ConfigFile & FormatLine("mousewheellines", "3")
ConfigFile = ConfigFile & FormatLine("ignoresegv", "true")
ConfigFile = ConfigFile & FormatLine("idlewait", "true")
ConfigFile = ConfigFile & FormatLine("enableextfs", "false")
ConfigFile = ConfigFile & FormatLine("debugextfs", "false")
ConfigFile = ConfigFile & FormatLine("extdrives", "CDEFGHIJKLMNOPQRSTUVWXYZ")
ConfigFile = ConfigFile & FormatLine("pollmedia", "true")
ConfigFile = ConfigFile & FormatLine("etherpermanentaddress", "true")
ConfigFile = ConfigFile & FormatLine("ethermulticastmode", 0)
ConfigFile = ConfigFile & FormatLine("routerenabled", "false")
ConfigFile = ConfigFile & FormatLine("ftp_port_list", 21)
ConfigFile = ConfigFile & FormatLine("portfile0", My.Application.Info.DirectoryPath & "\Emulators\BasiliskII\COM1.txt")
ConfigFile = ConfigFile & FormatLine("portfile1", My.Application.Info.DirectoryPath & "\Emulators\BasiliskII\COM2.txt")
Case "QEMU"
ConfigType = "QEMU"
ConfigFile = "qemu-system-ppc.exe -L pc-bios -boot d -m " & RAM & " -M mac99 -prom-env " & Chr(34) & "auto-boot?=true" & Chr(34) & " -prom-env " & Chr(34) & "boot-args=-v" & Chr(34) & " -prom-env " & Chr(34) & "vga-ndrv?=true" & Chr(34) & " -drive file=MacOS9.2.iso,format=raw,media=cdrom -drive file=MacOS9.2.img,format=raw,media=disk -sdl -netdev user,id=network01 -device sungem,netdev=network01 "
Case "Unknown"
MsgBox("Could not detect the emulator of this file. Maybe the file syntax is wrong?")
Exit Sub
End Select
CreateFiles:
If My.Computer.FileSystem.DirectoryExists(System.IO.Path.GetDirectoryName(MacName)) = False Then
My.Computer.FileSystem.CreateDirectory(System.IO.Path.GetDirectoryName(Path))
Write(ConfigFile, Path)
Else
MsgBox("This folder already exists. Creating a duplicate.", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Warning")
My.Computer.FileSystem.CreateDirectory(System.IO.Path.GetDirectoryName(MacPath & "(Dup)"))
Write(ConfigFile, MacPath)
End If
With frmMain.VMList.Items.Add(MacName)
.SubItems.Add(MacPath)
.SubItems.Add(ConfigType)
.StateImageIndex = 0
End With
frmMain.SaveSettings()
End Sub
Public Function FormatLine(ByVal Line1 As String, ByVal Line2 As String) As String
Dim Formatted As String = Line1 & " " & Line2 & vbCrLf
Return Formatted
End Function
Public Sub Edit(ByVal ConfigFile As String, ByVal Emulator As String, ByVal Parameters As String)
End Sub
Public Sub Convert(ByVal FileToConvert As String, ByVal OldEmulator As String, ByVal NewEmulator As String)
End Sub
Public Sub Write(ByVal Text As String, ByVal Route As String)
Dim Writer As IO.StreamWriter = IO.File.CreateText(Route)
Writer.Write(Text)
Writer.Flush()
Writer.Close()
End Sub
Public Sub CreateFromFile(ByVal File As String, ByVal Emulator As String, ByVal VMName As String)
Dim VMPath As String = My.Settings.DefaultMacFolder + "\" + VMName
Dim VMFile As String = VMPath + "\" + VMName + ".mcf"
Select Case Emulator
Case "vMacBatch"
If My.Computer.FileSystem.DirectoryExists(VMPath) = False Then
My.Computer.FileSystem.DirectoryExists(VMPath)
My.Computer.FileSystem.CopyFile(File, VMPath + "\" + VMName + ".mcf")
Else
MsgBox("This folder already exists. Creating a duplicate.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Information")
My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder + "\" + File + "(2)")
End If
With frmMain.VMList.Items.Add(VMName)
.SubItems.Add(VMFile)
.SubItems.Add("vMac")
.StateImageIndex = 0
End With
frmMain.SaveSettings()
Case "vMac"
If My.Computer.FileSystem.DirectoryExists(VMPath) = False Then
My.Computer.FileSystem.DirectoryExists(VMPath)
My.Computer.FileSystem.CopyFile(File, VMPath + "\" + VMName + ".mcf")
Else
MsgBox("This folder already exists. Creating a duplicate.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Information")
My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder + "\" + File + "(2)")
End If
With frmMain.VMList.Items.Add(VMName)
.SubItems.Add(VMFile)
.SubItems.Add("vMac")
.StateImageIndex = 0
End With
frmMain.SaveSettings()
Case "BII"
If My.Computer.FileSystem.DirectoryExists(VMPath) = False Then
My.Computer.FileSystem.DirectoryExists(VMPath)
My.Computer.FileSystem.CopyFile(File, VMPath + "\" + VMName + ".mcf")
Else
MsgBox("This folder already exists. Creating a duplicate.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Information")
My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder + "\" + File + "(2)")
End If
With frmMain.VMList.Items.Add(VMName)
.SubItems.Add(VMFile)
.SubItems.Add("BII")
.StateImageIndex = 0
End With
frmMain.SaveSettings()
Case "SheepShaver"
If My.Computer.FileSystem.DirectoryExists(VMPath) = False Then
My.Computer.FileSystem.DirectoryExists(VMPath)
My.Computer.FileSystem.CopyFile(File, VMPath + "\" + VMName + ".mcf")
Else
MsgBox("This folder already exists. Creating a duplicate.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Information")
My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder + "\" + File + "(2)")
End If
With frmMain.VMList.Items.Add(VMFile)
.SubItems.Add(VMPath)
.SubItems.Add("SheepShaver")
.StateImageIndex = 0
End With
frmMain.SaveSettings()
Case "PearPC"
If My.Computer.FileSystem.DirectoryExists(VMPath) = False Then
My.Computer.FileSystem.DirectoryExists(VMPath)
My.Computer.FileSystem.CopyFile(File, VMPath + "\" + VMName + ".mcf")
Else
MsgBox("This folder already exists. Creating a duplicate.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Information")
My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder + "\" + File + "(2)")
End If
With frmMain.VMList.Items.Add(VMName)
.SubItems.Add(VMFile)
.SubItems.Add("PearPC")
.StateImageIndex = 0
End With
frmMain.SaveSettings()
Case "QEMUBatch"
If My.Computer.FileSystem.DirectoryExists(VMPath) = False Then
My.Computer.FileSystem.DirectoryExists(VMPath)
My.Computer.FileSystem.CopyFile(File, VMPath + "\" + VMName + ".mcf")
Else
MsgBox("This folder already exists. Creating a duplicate.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Information")
My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder + "\" + File + "(2)")
End If
With frmMain.VMList.Items.Add(VMName)
.SubItems.Add(VMFile)
.SubItems.Add("QEMU")
.StateImageIndex = 0
End With
frmMain.SaveSettings()
End Select
End Sub
End Module

16
DiskImageCreator.vb Normal file
View File

@ -0,0 +1,16 @@
Imports System.IO
Module DiskImageCreator
Public Sub CreateDisk(ByVal Size As Long, ByVal Path As String)
Dim bytes() As Byte
Dim fs As FileStream = File.Create(Path)
Dim x As Integer = 0
fs.Write(bytes, 0, bytes.Length)
fs.Close()
End Sub
Public Function Byter() As Byte
End Function
End Module

5
Logger.vb Normal file
View File

@ -0,0 +1,5 @@
Module Logger
Public Sub Log(ByVal Exception As String)
End Sub
End Module

43
My Project/Application.Designer.vb generated Normal file
View File

@ -0,0 +1,43 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Este código fue generado por una herramienta.
' Versión del motor en tiempo de ejecución:2.0.50727.5420
'
' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
' se vuelve a generar el código.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTA: este archivo se genera de forma automática; no lo modifique directamente. Para realizar cambios,
' o si detecta errores de compilación en este archivo, vaya al Diseñador de proyectos
' (vaya a Propiedades del proyecto o haga doble clic en el nodo My Project en el
' Explorador de soluciones) y realice cambios en la ficha Aplicación.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = true
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.VirtualMac.frmMain
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateSplashScreen()
Me.SplashScreen = Global.VirtualMac.frmSplash
End Sub
End Class
End Namespace

View File

@ -0,0 +1,11 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm>
<SingleInstance>true</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SplashScreen>frmSplash</SplashScreen>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

126
My Project/Resources.Designer.vb generated Normal file
View File

@ -0,0 +1,126 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Este código fue generado por una herramienta.
' Versión del motor en tiempo de ejecución:2.0.50727.5420
'
' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
' se vuelve a generar el código.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'StronglyTypedResourceBuilder generó automáticamente esta clase
'a través de una herramienta como ResGen o Visual Studio.
'Para agregar o quitar un miembro, edite el archivo .ResX y, a continuación, vuelva a ejecutar ResGen
'con la opción /str o vuelva a generar su proyecto de VS.
'''<summary>
''' Clase de recurso con establecimiento inflexible de tipos, para buscar cadenas traducidas, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Devuelve la instancia de ResourceManager almacenada en caché utilizada por esta clase.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("VirtualMac.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Reemplaza la propiedad CurrentUICulture del subproceso actual para todas las
''' búsquedas de recursos mediante esta clase de recurso con establecimiento inflexible de tipos.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
Friend ReadOnly Property About() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("About", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Friend ReadOnly Property BrowserBack() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("BrowserBack", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Friend ReadOnly Property BrowserForward() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("BrowserForward", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Friend ReadOnly Property BrowserHome() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("BrowserHome", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Friend ReadOnly Property BrowserSearch() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("BrowserSearch", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Friend ReadOnly Property NewDisk() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("NewDisk", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Friend ReadOnly Property NewMac() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("NewMac", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Friend ReadOnly Property Shutdown_Icon() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Shutdown_Icon", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Friend ReadOnly Property WizardPicture() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("WizardPicture", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

148
My Project/Resources.resx Normal file
View File

@ -0,0 +1,148 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="WizardPicture" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WizardPicture.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="NewDisk" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NewDisk.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="NewMac" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NewMac.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Shutdown_Icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Shutdown Icon.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="About" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\About.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="BrowserBack" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\BrowserBack.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="BrowserForward" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\BrowserForward.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="BrowserHome" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\BrowserHome.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="BrowserSearch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\BrowserSearch.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

205
My Project/Settings.Designer.vb generated Normal file
View File

@ -0,0 +1,205 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Este código fue generado por una herramienta.
' Versión del motor en tiempo de ejecución:2.0.50727.5420
'
' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
' se vuelve a generar el código.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "9.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings),MySettings)
#Region "Funcionalidad para autoguardar de My.Settings"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property DefaultMacFolder() As String
Get
Return CType(Me("DefaultMacFolder"),String)
End Get
Set
Me("DefaultMacFolder") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property VMNames() As String
Get
Return CType(Me("VMNames"),String)
End Get
Set
Me("VMNames") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property VMIcons() As String
Get
Return CType(Me("VMIcons"),String)
End Get
Set
Me("VMIcons") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property VMRoutes() As String
Get
Return CType(Me("VMRoutes"),String)
End Get
Set
Me("VMRoutes") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property CustomIcons() As String
Get
Return CType(Me("CustomIcons"),String)
End Get
Set
Me("CustomIcons") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property SheepShaverROM() As String
Get
Return CType(Me("SheepShaverROM"),String)
End Get
Set
Me("SheepShaverROM") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property BasiliskROM() As String
Get
Return CType(Me("BasiliskROM"),String)
End Get
Set
Me("BasiliskROM") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property vMacROM() As String
Get
Return CType(Me("vMacROM"),String)
End Get
Set
Me("vMacROM") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property VMType() As String
Get
Return CType(Me("VMType"),String)
End Get
Set
Me("VMType") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property TestWindow() As Boolean
Get
Return CType(Me("TestWindow"),Boolean)
End Get
Set
Me("TestWindow") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property x() As String
Get
Return CType(Me("x"),String)
End Get
Set
Me("x") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.VirtualMac.My.MySettings
Get
Return Global.VirtualMac.My.MySettings.Default
End Get
End Property
End Module
End Namespace

View File

@ -0,0 +1,39 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="DefaultMacFolder" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="VMNames" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="VMIcons" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="VMRoutes" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="CustomIcons" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="SheepShaverROM" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="BasiliskROM" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="vMacROM" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="VMType" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="TestWindow" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="x" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
</Settings>
</SettingsFile>

22
My Project/app.manifest Normal file
View File

@ -0,0 +1,22 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- Opciones del manifiesto de Control de cuentas de usuario
Si desea cambiar el nivel de Control de cuentas de usuario de Windows, reemplace el
nodo requestedExecutionLevel por alguno de los siguientes.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Si desea utilizar la virtualización de archivos y del Registro para la compatibilidad
con versiones anteriores, elimine el nodo requestedExecutionLevel.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
</asmv1:assembly>

BIN
NewIcon.ico Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.7 KiB

BIN
Preferences.ico Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Resources/About.bmp Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 425 KiB

BIN
Resources/BrowserBack.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 349 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 344 B

BIN
Resources/BrowserHome.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 348 B

BIN
Resources/BrowserSearch.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 420 B

BIN
Resources/NewDisk.bmp Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 151 KiB

BIN
Resources/NewMac.bmp Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 151 KiB

BIN
Resources/Shutdown Icon.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 147 KiB

BIN
Resources/Warning.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.5 KiB

BIN
Resources/Warning1.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.7 KiB

BIN
Resources/WizardPicture.bmp Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.1 KiB

12
Settings.vb Normal file
View File

@ -0,0 +1,12 @@

Namespace My
'Esta clase le permite controlar eventos específicos en la clase de configuración:
' El evento SettingChanging se desencadena antes de cambiar un valor de configuración.
' El evento PropertyChanged se desencadena después de cambiar el valor de configuración.
' El evento SettingsLoaded se desencadena después de cargar los valores de configuración.
' El evento SettingsSaving se desencadena antes de guardar los valores de configuración.
Partial Friend NotInheritable Class MySettings
End Class
End Namespace

86
SysInfo.vb Normal file
View File

@ -0,0 +1,86 @@
Imports System.Management
Module SysInfo
Public OSName As String
Public OSBuild As String
Public CPUClass As String
Public CPUCores As String
Public InstalledRAM As String
Public UserName As String
Public ComputerName As String
Public Function GetSysInfo() As String
Dim VersionArray() As String = Split(My.Computer.Info.OSVersion, ".")
'Setting the labels with the versions
frmAbout.ProductNAV.Text = frmAbout.ProductNAV.Text & " " & My.Application.Info.Version.ToString & " Beta"
Dim BuildOS As String = VersionArray(0) + "." + VersionArray(1) + "." + VersionArray(2)
Dim NameOS As String = ""
Dim CPUInfo As String = GetProcessorInfo()
Dim NameCPU As String = CPUInfo.ToString.Substring(0, InStr(CPUInfo, ";") - 1)
Dim CoresCPU As String = CPUInfo.ToString.Substring(InStr(CPUInfo, ";"), InStr(CPUInfo, "_") - InStr(CPUInfo, ";") - 1)
Dim TotalRAM As Long = (My.Computer.Info.TotalPhysicalMemory / 1024) / 1024
Dim UsrName As String = Replace(Replace(My.User.Name, My.Computer.Name, ""), "\", "")
Dim PCName As String = My.Computer.Name
'Naming the Windows OS by its version
frmAbout.OSName.Text = "Unknown"
Select Case BuildOS
Case "6.0.6000"
NameOS = "Windows Vista RTM"
Case "6.0.6001"
NameOS = "Windows Vista SP1"
Case "6.0.6002"
NameOS = "Windows Vista SP2"
Case "6.1.7600"
NameOS = "Windows 7 RTM"
Case "6.1.7601"
NameOS = "Windows 7 SP1"
Case "6.2.9200"
NameOS = "Windows 8"
Case "6.2.9600"
NameOS = "Windows 8.1"
End Select
Select Case My.Computer.Info.OSVersion
Case "5.1.2600.0"
NameOS = "Windows XP RTM"
Case "5.1.2600.1106"
NameOS = "Windows XP SP1"
Case "5.1.2600.2180"
NameOS = "Windows XP SP2"
Case "5.1.2600.5512"
NameOS = "Windows XP SP3"
End Select
OSName = NameOS
OSBuild = BuildOS
CPUClass = NameCPU
CPUCores = CoresCPU
InstalledRAM = TotalRAM
UserName = UsrName
ComputerName = PCName
Return (NameOS + vbCrLf + BuildOS + vbCrLf + NameCPU + vbCrLf + CoresCPU + vbCrLf & TotalRAM & " MB" & vbCrLf + UsrName + vbCrLf + PCName)
End Function
Public Function GetProcessorInfo() As String
Dim Info As String = ""
Try
Dim searcher As New ManagementObjectSearcher( _
"root\CIMV2", _
"SELECT * FROM Win32_Processor")
For Each queryObj As ManagementObject In searcher.Get()
Info = queryObj("Name")
Info = Info & " (" & Replace(Replace(Replace(queryObj("Caption"), "Family ", "F"), "Model ", "M"), "Stepping ", "S") & ")"
Info = Info & ";" & queryObj("NumberOfCores")
Info = Info & "_" & queryObj("MaxClockSpeed")
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while getting the processor info: " & err.Message & " . The system information may be incomplete", "Virtual Mac", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Return Info
End Function
End Module

BIN
VirtualMac.ico Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.2 KiB

32
VirtualMac.sln Normal file
View File

@ -0,0 +1,32 @@

Microsoft Visual Studio Solution File, Format Version 10.00
# Visual Studio 2008
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VirtualMac", "VirtualMac.vbproj", "{9EF23765-7DA9-4904-9EBD-E951DEB90063}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Debug|x64 = Debug|x64
Debug|x86 = Debug|x86
Release|Any CPU = Release|Any CPU
Release|x64 = Release|x64
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Debug|Any CPU.Build.0 = Debug|Any CPU
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Debug|x64.ActiveCfg = Debug|x64
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Debug|x64.Build.0 = Debug|x64
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Debug|x86.ActiveCfg = Debug|x86
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Debug|x86.Build.0 = Debug|x86
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Release|Any CPU.ActiveCfg = Release|Any CPU
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Release|Any CPU.Build.0 = Release|Any CPU
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Release|x64.ActiveCfg = Release|x64
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Release|x64.Build.0 = Release|x64
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Release|x86.ActiveCfg = Release|x86
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Release|x86.Build.0 = Release|x86
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

345
VirtualMac.vbproj Normal file
View File

@ -0,0 +1,345 @@
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="3.5">
<PropertyGroup>
<ProjectType>Local</ProjectType>
<MyType>WindowsForms</MyType>
<ProductVersion>9.0.21022</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{9EF23765-7DA9-4904-9EBD-E951DEB90063}</ProjectGuid>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<AssemblyName>Virtual Mac</AssemblyName>
<OutputType>WinExe</OutputType>
<StartupObject>VirtualMac.My.MyApplication</StartupObject>
<AssemblyMajorVersion>0</AssemblyMajorVersion>
<AssemblyMinorVersion>2</AssemblyMinorVersion>
<AssemblyRevisionNumber>2</AssemblyRevisionNumber>
<GenerateRevisionNumber>False</GenerateRevisionNumber>
<AssemblyCompanyName>Armando Technologies</AssemblyCompanyName>
<ApplicationIcon>NewIcon.ico</ApplicationIcon>
<RootNamespace>VirtualMac</RootNamespace>
<FileUpgradeFlags>
</FileUpgradeFlags>
<OptionStrict>Off</OptionStrict>
<UpgradeBackupLocation>
</UpgradeBackupLocation>
<OldToolsVersion>2.0</OldToolsVersion>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<SupportUrl>http://www.tecnologiasarmando.info.tm/support/virtualmac</SupportUrl>
<PublisherName>Edson Armando</PublisherName>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>true</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<OutputPath>.\bin\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<DebugSymbols>True</DebugSymbols>
<DefineDebug>True</DefineDebug>
<DefineTrace>True</DefineTrace>
<DefineConstants>Win32=True</DefineConstants>
<PlatformTarget>AnyCPU</PlatformTarget>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
<DebugType>full</DebugType>
<WarningsAsErrors>
</WarningsAsErrors>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<OutputPath>.\bin\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<DebugSymbols>False</DebugSymbols>
<DefineDebug>False</DefineDebug>
<DefineTrace>True</DefineTrace>
<DefineConstants>Win32=True</DefineConstants>
<PlatformTarget>AnyCPU</PlatformTarget>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
<DebugType>none</DebugType>
<Optimize>true</Optimize>
<WarningsAsErrors>
</WarningsAsErrors>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x64' ">
<PlatformTarget>x64</PlatformTarget>
<OutputPath>bin\x64\Debug\</OutputPath>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x64' ">
<PlatformTarget>x64</PlatformTarget>
<OutputPath>bin\x64\Release\</OutputPath>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
<PlatformTarget>x86</PlatformTarget>
<OutputPath>bin\x86\Debug\</OutputPath>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
<PlatformTarget>x86</PlatformTarget>
<OutputPath>bin\x86\Release\</OutputPath>
</PropertyGroup>
<ItemGroup>
<Reference Include="Microsoft.VisualBasic.Compatibility">
<Name>Microsoft.VisualBasic.Compatibility</Name>
</Reference>
<Reference Include="System">
<Name>System</Name>
</Reference>
<Reference Include="System.Data">
<Name>System.Data</Name>
</Reference>
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing">
<Name>System.Drawing</Name>
</Reference>
<Reference Include="System.Management" />
<Reference Include="System.ServiceProcess" />
<Reference Include="System.Windows.Forms">
<Name>System.Windows.Forms</Name>
</Reference>
<Reference Include="System.XML">
<Name>System.XML</Name>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="Microsoft.VisualBasic.Compatibility" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Drawing" />
<Import Include="System.Windows" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="AssemblyInfo.vb" />
<Compile Include="DiskImageCreator.vb" />
<Compile Include="frmHelp.Designer.vb">
<DependentUpon>frmHelp.vb</DependentUpon>
</Compile>
<Compile Include="frmHelp.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmNewDisk.Designer.vb">
<DependentUpon>frmNewDisk.vb</DependentUpon>
</Compile>
<Compile Include="frmNewDisk.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettingsBasiliskVM.Designer.vb">
<DependentUpon>frmSettingsBasiliskVM.vb</DependentUpon>
</Compile>
<Compile Include="frmSettingsBasiliskVM.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettingsQemuVM.Designer.vb">
<DependentUpon>frmSettingsQemuVM.vb</DependentUpon>
</Compile>
<Compile Include="frmSettingsQemuVM.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettingsSheepVM.Designer.vb">
<DependentUpon>frmSettingsSheepVM.vb</DependentUpon>
</Compile>
<Compile Include="frmSettingsSheepVM.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAbout.Designer.vb">
<SubType>Code</SubType>
<DependentUpon>frmAbout.vb</DependentUpon>
</Compile>
<Compile Include="frmAbout.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmDebug.Designer.vb">
<DependentUpon>frmDebug.vb</DependentUpon>
</Compile>
<Compile Include="frmDebug.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmNewMac.Designer.vb">
<DependentUpon>frmNewMac.vb</DependentUpon>
</Compile>
<Compile Include="frmNewMac.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmOptions.Designer.vb">
<SubType>Code</SubType>
<DependentUpon>frmOptions.vb</DependentUpon>
</Compile>
<Compile Include="frmOptions.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettingsvMacVM.Designer.vb">
<DependentUpon>frmSettingsvMacVM.vb</DependentUpon>
</Compile>
<Compile Include="frmSettingsvMacVM.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSplash.Designer.vb">
<SubType>Code</SubType>
<DependentUpon>frmSplash.vb</DependentUpon>
</Compile>
<Compile Include="frmSplash.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmVirtualMacintosh.Designer.vb">
<SubType>Code</SubType>
<DependentUpon>frmVirtualMacintosh.vb</DependentUpon>
</Compile>
<Compile Include="frmVirtualMacintosh.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmVirtualMacintoshClose.Designer.vb">
<DependentUpon>frmVirtualMacintoshClose.vb</DependentUpon>
</Compile>
<Compile Include="frmVirtualMacintoshClose.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="ConfigFileHandler.vb" />
<Compile Include="Logger.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
<DependentUpon>Settings.settings</DependentUpon>
</Compile>
<Compile Include="frmMain.Designer.vb">
<DependentUpon>frmMain.vb</DependentUpon>
</Compile>
<Compile Include="frmMain.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Settings.vb" />
<Compile Include="SysInfo.vb" />
<EmbeddedResource Include="frmHelp.resx">
<DependentUpon>frmHelp.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmNewDisk.resx">
<DependentUpon>frmNewDisk.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsBasiliskVM.resx">
<DependentUpon>frmSettingsBasiliskVM.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsQemuVM.resx">
<DependentUpon>frmSettingsQemuVM.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsSheepVM.resX">
<DependentUpon>frmSettingsSheepVM.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmAbout.resX">
<DependentUpon>frmAbout.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmDebug.resx">
<SubType>Designer</SubType>
<DependentUpon>frmDebug.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNewMac.resx">
<SubType>Designer</SubType>
<DependentUpon>frmNewMac.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmOptions.resX">
<DependentUpon>frmOptions.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsvMacVM.resx">
<DependentUpon>frmSettingsvMacVM.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSplash.resX">
<DependentUpon>frmSplash.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmVirtualMacintosh.resX">
<DependentUpon>frmVirtualMacintosh.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmVirtualMacintoshClose.resx">
<SubType>Designer</SubType>
<DependentUpon>frmVirtualMacintoshClose.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<SubType>Designer</SubType>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
<Content Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</Content>
<Content Include="NewIcon.ico" />
<None Include="Resources\BrowserSearch.png" />
<None Include="Resources\BrowserHome.png" />
<None Include="Resources\BrowserForward.png" />
<None Include="Resources\BrowserBack.png" />
<None Include="My Project\app.manifest" />
<None Include="Resources\About.bmp" />
<None Include="Resources\NewDisk.bmp" />
<None Include="Resources\NewMac.bmp" />
<None Include="Resources\WizardPicture.bmp" />
<None Include="Resources\Shutdown Icon.png" />
<None Include="Resources\Warning1.png" />
<EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="VirtualMac.ico" />
<EmbeddedResource Include="VirtualMacMachineFormat.xml" />
<None Include="app.config" />
<None Include="My Project\Settings.settings">
<CustomToolNamespace>My</CustomToolNamespace>
<Generator>SettingsSingleFileGenerator</Generator>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
<Visible>False</Visible>
<ProductName>.NET Framework 2.0 %28x86%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
<Visible>False</Visible>
<ProductName>.NET Framework 3.0 %28x86%29</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<PropertyGroup>
<PreBuildEvent>
</PreBuildEvent>
<PostBuildEvent>
</PostBuildEvent>
</PropertyGroup>
</Project>

View File

@ -0,0 +1,5 @@
<?xml version="1.0" encoding="utf-8" ?>
<MachineSettings>
<Graphics fullscreen="0" frequency="60" width="640" height="480"/>
<Disks volumes="" bootdrive="hd" efs=""/>
</MachineSettings>

67
app.config Normal file
View File

@ -0,0 +1,67 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="VirtualMac.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- En esta sección se define la configuración del registro para My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Quite los comentarios de la sección posterior para escribir en el registro de eventos de la aplicación -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
initializeData="FileLogWriter"/>
<!-- Quite los comentarios de la sección posterior y reemplace APPLICATION_NAME con el nombre de su aplicación para escribir en el registro de sucesos de la aplicación -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<userSettings>
<VirtualMac.My.MySettings>
<setting name="DefaultMacFolder" serializeAs="String">
<value />
</setting>
<setting name="VMNames" serializeAs="String">
<value />
</setting>
<setting name="VMIcons" serializeAs="String">
<value />
</setting>
<setting name="VMRoutes" serializeAs="String">
<value />
</setting>
<setting name="CustomIcons" serializeAs="String">
<value />
</setting>
<setting name="SheepShaverROM" serializeAs="String">
<value />
</setting>
<setting name="BasiliskROM" serializeAs="String">
<value />
</setting>
<setting name="vMacROM" serializeAs="String">
<value />
</setting>
<setting name="VMType" serializeAs="String">
<value />
</setting>
<setting name="TestWindow" serializeAs="String">
<value>False</value>
</setting>
<setting name="x" serializeAs="String">
<value />
</setting>
</VirtualMac.My.MySettings>
</userSettings>
</configuration>

492
frmAbout.Designer.vb generated Normal file
View File

@ -0,0 +1,492 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class frmAbout
#Region "Windows Form Designer generated code "
<System.Diagnostics.DebuggerNonUserCode()> Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
Public ToolTip1 As System.Windows.Forms.ToolTip
Public WithEvents ProductNAV As System.Windows.Forms.Label
Public WithEvents ArmandoTechnologiesCopyright As System.Windows.Forms.Label
Public WithEvents LicenseInformation As System.Windows.Forms.Label
Public WithEvents ThirdPartyNotice As System.Windows.Forms.Label
Public WithEvents MvMCopyright As System.Windows.Forms.Label
Public WithEvents _AboutTab_TabPage0 As System.Windows.Forms.TabPage
Public WithEvents _AboutTab_TabPage1 As System.Windows.Forms.TabPage
Public WithEvents AboutTab As System.Windows.Forms.TabControl
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAbout))
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.AboutTab = New System.Windows.Forms.TabControl
Me._AboutTab_TabPage0 = New System.Windows.Forms.TabPage
Me.LicenseInformation = New System.Windows.Forms.Label
Me.ProductNAV = New System.Windows.Forms.Label
Me.MvMCopyright = New System.Windows.Forms.Label
Me.ThirdPartyNotice = New System.Windows.Forms.Label
Me.ArmandoTechnologiesCopyright = New System.Windows.Forms.Label
Me.AppleCopyright = New System.Windows.Forms.Label
Me.ArmandoLink = New System.Windows.Forms.LinkLabel
Me.EmaculationLink = New System.Windows.Forms.LinkLabel
Me._AboutTab_TabPage1 = New System.Windows.Forms.TabPage
Me.OSName = New System.Windows.Forms.Label
Me.CPUCoresLabel = New System.Windows.Forms.Label
Me.CPUType = New System.Windows.Forms.Label
Me.OSVersion = New System.Windows.Forms.Label
Me.SysInfoLabel = New System.Windows.Forms.Label
Me.CPUTypeLabel = New System.Windows.Forms.Label
Me.RAMInstalledLabel = New System.Windows.Forms.Label
Me.CPUCores = New System.Windows.Forms.Label
Me.OSNameLabel = New System.Windows.Forms.Label
Me.OSVersionLabel = New System.Windows.Forms.Label
Me.RAMInstalled = New System.Windows.Forms.Label
Me.RAMAvailableLabel = New System.Windows.Forms.Label
Me.RAMAvailable = New System.Windows.Forms.Label
Me.CurrUsr = New System.Windows.Forms.Label
Me.CurrUsrLabel = New System.Windows.Forms.Label
Me.UserInfoLabel = New System.Windows.Forms.Label
Me.PCName = New System.Windows.Forms.Label
Me.PCNameLabel = New System.Windows.Forms.Label
Me.AvailMemTimer = New System.Windows.Forms.Timer(Me.components)
Me.AboutTab.SuspendLayout()
Me._AboutTab_TabPage0.SuspendLayout()
Me._AboutTab_TabPage1.SuspendLayout()
Me.SuspendLayout()
'
'AboutTab
'
Me.AboutTab.Controls.Add(Me._AboutTab_TabPage0)
Me.AboutTab.Controls.Add(Me._AboutTab_TabPage1)
Me.AboutTab.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.AboutTab.ItemSize = New System.Drawing.Size(42, 18)
Me.AboutTab.Location = New System.Drawing.Point(8, 8)
Me.AboutTab.Name = "AboutTab"
Me.AboutTab.SelectedIndex = 0
Me.AboutTab.Size = New System.Drawing.Size(497, 321)
Me.AboutTab.TabIndex = 0
'
'_AboutTab_TabPage0
'
Me._AboutTab_TabPage0.BackgroundImage = Global.VirtualMac.My.Resources.Resources.About
Me._AboutTab_TabPage0.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me._AboutTab_TabPage0.Controls.Add(Me.LicenseInformation)
Me._AboutTab_TabPage0.Controls.Add(Me.ProductNAV)
Me._AboutTab_TabPage0.Controls.Add(Me.MvMCopyright)
Me._AboutTab_TabPage0.Controls.Add(Me.ThirdPartyNotice)
Me._AboutTab_TabPage0.Controls.Add(Me.ArmandoTechnologiesCopyright)
Me._AboutTab_TabPage0.Controls.Add(Me.AppleCopyright)
Me._AboutTab_TabPage0.Controls.Add(Me.ArmandoLink)
Me._AboutTab_TabPage0.Controls.Add(Me.EmaculationLink)
Me._AboutTab_TabPage0.Location = New System.Drawing.Point(4, 22)
Me._AboutTab_TabPage0.Name = "_AboutTab_TabPage0"
Me._AboutTab_TabPage0.Size = New System.Drawing.Size(489, 295)
Me._AboutTab_TabPage0.TabIndex = 0
Me._AboutTab_TabPage0.Text = "About Virtual Mac"
'
'LicenseInformation
'
Me.LicenseInformation.BackColor = System.Drawing.Color.Transparent
Me.LicenseInformation.Cursor = System.Windows.Forms.Cursors.Default
Me.LicenseInformation.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LicenseInformation.ForeColor = System.Drawing.SystemColors.ControlText
Me.LicenseInformation.Location = New System.Drawing.Point(24, 136)
Me.LicenseInformation.Name = "LicenseInformation"
Me.LicenseInformation.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.LicenseInformation.Size = New System.Drawing.Size(449, 17)
Me.LicenseInformation.TabIndex = 5
Me.LicenseInformation.Text = "Licensed under GNU GPL v3"
'
'ProductNAV
'
Me.ProductNAV.BackColor = System.Drawing.Color.Transparent
Me.ProductNAV.Cursor = System.Windows.Forms.Cursors.Default
Me.ProductNAV.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ProductNAV.ForeColor = System.Drawing.SystemColors.ControlText
Me.ProductNAV.Location = New System.Drawing.Point(24, 88)
Me.ProductNAV.Name = "ProductNAV"
Me.ProductNAV.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.ProductNAV.Size = New System.Drawing.Size(449, 17)
Me.ProductNAV.TabIndex = 7
Me.ProductNAV.Text = "TEA's Virtual Mac"
'
'MvMCopyright
'
Me.MvMCopyright.BackColor = System.Drawing.Color.Transparent
Me.MvMCopyright.Cursor = System.Windows.Forms.Cursors.Default
Me.MvMCopyright.ForeColor = System.Drawing.SystemColors.ControlText
Me.MvMCopyright.Location = New System.Drawing.Point(24, 219)
Me.MvMCopyright.Name = "MvMCopyright"
Me.MvMCopyright.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.MvMCopyright.Size = New System.Drawing.Size(449, 17)
Me.MvMCopyright.TabIndex = 2
Me.MvMCopyright.Text = "Mini vMac © 2001-2018 The Gryphel Project"
'
'ThirdPartyNotice
'
Me.ThirdPartyNotice.BackColor = System.Drawing.Color.Transparent
Me.ThirdPartyNotice.Cursor = System.Windows.Forms.Cursors.Default
Me.ThirdPartyNotice.ForeColor = System.Drawing.SystemColors.ControlText
Me.ThirdPartyNotice.Location = New System.Drawing.Point(24, 202)
Me.ThirdPartyNotice.Name = "ThirdPartyNotice"
Me.ThirdPartyNotice.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.ThirdPartyNotice.Size = New System.Drawing.Size(449, 17)
Me.ThirdPartyNotice.TabIndex = 3
Me.ThirdPartyNotice.Text = "Portions of this Software:"
'
'ArmandoTechnologiesCopyright
'
Me.ArmandoTechnologiesCopyright.BackColor = System.Drawing.Color.Transparent
Me.ArmandoTechnologiesCopyright.Cursor = System.Windows.Forms.Cursors.Default
Me.ArmandoTechnologiesCopyright.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ArmandoTechnologiesCopyright.ForeColor = System.Drawing.SystemColors.ControlText
Me.ArmandoTechnologiesCopyright.Location = New System.Drawing.Point(24, 102)
Me.ArmandoTechnologiesCopyright.Name = "ArmandoTechnologiesCopyright"
Me.ArmandoTechnologiesCopyright.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.ArmandoTechnologiesCopyright.Size = New System.Drawing.Size(449, 17)
Me.ArmandoTechnologiesCopyright.TabIndex = 6
Me.ArmandoTechnologiesCopyright.Text = "Copyright © 2017-2018 Tecnologias Edson Armando"
'
'AppleCopyright
'
Me.AppleCopyright.BackColor = System.Drawing.Color.Transparent
Me.AppleCopyright.Cursor = System.Windows.Forms.Cursors.Default
Me.AppleCopyright.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.AppleCopyright.ForeColor = System.Drawing.SystemColors.ControlText
Me.AppleCopyright.Location = New System.Drawing.Point(24, 119)
Me.AppleCopyright.Name = "AppleCopyright"
Me.AppleCopyright.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.AppleCopyright.Size = New System.Drawing.Size(449, 17)
Me.AppleCopyright.TabIndex = 8
Me.AppleCopyright.Text = "Copyright © 1984-2001 Apple Computer"
'
'ArmandoLink
'
Me.ArmandoLink.AutoSize = True
Me.ArmandoLink.BackColor = System.Drawing.Color.Transparent
Me.ArmandoLink.LinkColor = System.Drawing.Color.Blue
Me.ArmandoLink.Location = New System.Drawing.Point(24, 162)
Me.ArmandoLink.Name = "ArmandoLink"
Me.ArmandoLink.Size = New System.Drawing.Size(141, 13)
Me.ArmandoLink.TabIndex = 9
Me.ArmandoLink.TabStop = True
Me.ArmandoLink.Text = "Tecnologias Edson Armando"
'
'EmaculationLink
'
Me.EmaculationLink.AutoSize = True
Me.EmaculationLink.BackColor = System.Drawing.Color.Transparent
Me.EmaculationLink.LinkColor = System.Drawing.Color.Blue
Me.EmaculationLink.Location = New System.Drawing.Point(24, 175)
Me.EmaculationLink.Name = "EmaculationLink"
Me.EmaculationLink.Size = New System.Drawing.Size(91, 13)
Me.EmaculationLink.TabIndex = 10
Me.EmaculationLink.TabStop = True
Me.EmaculationLink.Text = "E-Maculation.com"
'
'_AboutTab_TabPage1
'
Me._AboutTab_TabPage1.BackgroundImage = Global.VirtualMac.My.Resources.Resources.About
Me._AboutTab_TabPage1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me._AboutTab_TabPage1.Controls.Add(Me.OSName)
Me._AboutTab_TabPage1.Controls.Add(Me.CPUCoresLabel)
Me._AboutTab_TabPage1.Controls.Add(Me.CPUType)
Me._AboutTab_TabPage1.Controls.Add(Me.OSVersion)
Me._AboutTab_TabPage1.Controls.Add(Me.SysInfoLabel)
Me._AboutTab_TabPage1.Controls.Add(Me.CPUTypeLabel)
Me._AboutTab_TabPage1.Controls.Add(Me.RAMInstalledLabel)
Me._AboutTab_TabPage1.Controls.Add(Me.CPUCores)
Me._AboutTab_TabPage1.Controls.Add(Me.OSNameLabel)
Me._AboutTab_TabPage1.Controls.Add(Me.OSVersionLabel)
Me._AboutTab_TabPage1.Controls.Add(Me.RAMInstalled)
Me._AboutTab_TabPage1.Controls.Add(Me.RAMAvailableLabel)
Me._AboutTab_TabPage1.Controls.Add(Me.RAMAvailable)
Me._AboutTab_TabPage1.Controls.Add(Me.CurrUsr)
Me._AboutTab_TabPage1.Controls.Add(Me.CurrUsrLabel)
Me._AboutTab_TabPage1.Controls.Add(Me.UserInfoLabel)
Me._AboutTab_TabPage1.Controls.Add(Me.PCName)
Me._AboutTab_TabPage1.Controls.Add(Me.PCNameLabel)
Me._AboutTab_TabPage1.Location = New System.Drawing.Point(4, 22)
Me._AboutTab_TabPage1.Name = "_AboutTab_TabPage1"
Me._AboutTab_TabPage1.Size = New System.Drawing.Size(489, 295)
Me._AboutTab_TabPage1.TabIndex = 1
Me._AboutTab_TabPage1.Text = "System Information"
Me._AboutTab_TabPage1.UseVisualStyleBackColor = True
'
'OSName
'
Me.OSName.BackColor = System.Drawing.Color.Transparent
Me.OSName.Cursor = System.Windows.Forms.Cursors.Default
Me.OSName.ForeColor = System.Drawing.SystemColors.ControlText
Me.OSName.Location = New System.Drawing.Point(196, 103)
Me.OSName.Name = "OSName"
Me.OSName.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.OSName.Size = New System.Drawing.Size(275, 17)
Me.OSName.TabIndex = 11
'
'CPUCoresLabel
'
Me.CPUCoresLabel.BackColor = System.Drawing.Color.Transparent
Me.CPUCoresLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.CPUCoresLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.CPUCoresLabel.Location = New System.Drawing.Point(32, 154)
Me.CPUCoresLabel.Name = "CPUCoresLabel"
Me.CPUCoresLabel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CPUCoresLabel.Size = New System.Drawing.Size(137, 17)
Me.CPUCoresLabel.TabIndex = 14
Me.CPUCoresLabel.Text = "Processor cores:"
'
'CPUType
'
Me.CPUType.BackColor = System.Drawing.Color.Transparent
Me.CPUType.Cursor = System.Windows.Forms.Cursors.Default
Me.CPUType.ForeColor = System.Drawing.SystemColors.ControlText
Me.CPUType.Location = New System.Drawing.Point(196, 137)
Me.CPUType.Name = "CPUType"
Me.CPUType.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CPUType.Size = New System.Drawing.Size(275, 17)
Me.CPUType.TabIndex = 16
'
'OSVersion
'
Me.OSVersion.BackColor = System.Drawing.Color.Transparent
Me.OSVersion.Cursor = System.Windows.Forms.Cursors.Default
Me.OSVersion.ForeColor = System.Drawing.SystemColors.ControlText
Me.OSVersion.Location = New System.Drawing.Point(196, 120)
Me.OSVersion.Name = "OSVersion"
Me.OSVersion.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.OSVersion.Size = New System.Drawing.Size(275, 17)
Me.OSVersion.TabIndex = 10
'
'SysInfoLabel
'
Me.SysInfoLabel.BackColor = System.Drawing.Color.Transparent
Me.SysInfoLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.SysInfoLabel.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SysInfoLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.SysInfoLabel.Location = New System.Drawing.Point(24, 87)
Me.SysInfoLabel.Name = "SysInfoLabel"
Me.SysInfoLabel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.SysInfoLabel.Size = New System.Drawing.Size(121, 17)
Me.SysInfoLabel.TabIndex = 13
Me.SysInfoLabel.Text = "System Information"
'
'CPUTypeLabel
'
Me.CPUTypeLabel.BackColor = System.Drawing.Color.Transparent
Me.CPUTypeLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.CPUTypeLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.CPUTypeLabel.Location = New System.Drawing.Point(32, 137)
Me.CPUTypeLabel.Name = "CPUTypeLabel"
Me.CPUTypeLabel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CPUTypeLabel.Size = New System.Drawing.Size(137, 17)
Me.CPUTypeLabel.TabIndex = 17
Me.CPUTypeLabel.Text = "Processor type:"
'
'RAMInstalledLabel
'
Me.RAMInstalledLabel.BackColor = System.Drawing.Color.Transparent
Me.RAMInstalledLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.RAMInstalledLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.RAMInstalledLabel.Location = New System.Drawing.Point(32, 171)
Me.RAMInstalledLabel.Name = "RAMInstalledLabel"
Me.RAMInstalledLabel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.RAMInstalledLabel.Size = New System.Drawing.Size(137, 17)
Me.RAMInstalledLabel.TabIndex = 18
Me.RAMInstalledLabel.Text = "Total physical memory:"
'
'CPUCores
'
Me.CPUCores.BackColor = System.Drawing.Color.Transparent
Me.CPUCores.Cursor = System.Windows.Forms.Cursors.Default
Me.CPUCores.ForeColor = System.Drawing.SystemColors.ControlText
Me.CPUCores.Location = New System.Drawing.Point(196, 154)
Me.CPUCores.Name = "CPUCores"
Me.CPUCores.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CPUCores.Size = New System.Drawing.Size(275, 17)
Me.CPUCores.TabIndex = 15
'
'OSNameLabel
'
Me.OSNameLabel.BackColor = System.Drawing.Color.Transparent
Me.OSNameLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.OSNameLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.OSNameLabel.Location = New System.Drawing.Point(32, 103)
Me.OSNameLabel.Name = "OSNameLabel"
Me.OSNameLabel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.OSNameLabel.Size = New System.Drawing.Size(137, 17)
Me.OSNameLabel.TabIndex = 12
Me.OSNameLabel.Text = "Operating System:"
'
'OSVersionLabel
'
Me.OSVersionLabel.BackColor = System.Drawing.Color.Transparent
Me.OSVersionLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.OSVersionLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.OSVersionLabel.Location = New System.Drawing.Point(32, 120)
Me.OSVersionLabel.Name = "OSVersionLabel"
Me.OSVersionLabel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.OSVersionLabel.Size = New System.Drawing.Size(137, 17)
Me.OSVersionLabel.TabIndex = 9
Me.OSVersionLabel.Text = "System Version:"
'
'RAMInstalled
'
Me.RAMInstalled.BackColor = System.Drawing.Color.Transparent
Me.RAMInstalled.Cursor = System.Windows.Forms.Cursors.Default
Me.RAMInstalled.ForeColor = System.Drawing.SystemColors.ControlText
Me.RAMInstalled.Location = New System.Drawing.Point(196, 171)
Me.RAMInstalled.Name = "RAMInstalled"
Me.RAMInstalled.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.RAMInstalled.Size = New System.Drawing.Size(275, 17)
Me.RAMInstalled.TabIndex = 19
'
'RAMAvailableLabel
'
Me.RAMAvailableLabel.BackColor = System.Drawing.Color.Transparent
Me.RAMAvailableLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.RAMAvailableLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.RAMAvailableLabel.Location = New System.Drawing.Point(32, 188)
Me.RAMAvailableLabel.Name = "RAMAvailableLabel"
Me.RAMAvailableLabel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.RAMAvailableLabel.Size = New System.Drawing.Size(137, 17)
Me.RAMAvailableLabel.TabIndex = 20
Me.RAMAvailableLabel.Text = "Available physical memory:"
'
'RAMAvailable
'
Me.RAMAvailable.BackColor = System.Drawing.Color.Transparent
Me.RAMAvailable.Cursor = System.Windows.Forms.Cursors.Default
Me.RAMAvailable.ForeColor = System.Drawing.SystemColors.ControlText
Me.RAMAvailable.Location = New System.Drawing.Point(196, 188)
Me.RAMAvailable.Name = "RAMAvailable"
Me.RAMAvailable.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.RAMAvailable.Size = New System.Drawing.Size(275, 17)
Me.RAMAvailable.TabIndex = 21
'
'CurrUsr
'
Me.CurrUsr.BackColor = System.Drawing.Color.Transparent
Me.CurrUsr.Cursor = System.Windows.Forms.Cursors.Default
Me.CurrUsr.ForeColor = System.Drawing.SystemColors.ControlText
Me.CurrUsr.Location = New System.Drawing.Point(196, 223)
Me.CurrUsr.Name = "CurrUsr"
Me.CurrUsr.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CurrUsr.Size = New System.Drawing.Size(275, 17)
Me.CurrUsr.TabIndex = 22
'
'CurrUsrLabel
'
Me.CurrUsrLabel.BackColor = System.Drawing.Color.Transparent
Me.CurrUsrLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.CurrUsrLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.CurrUsrLabel.Location = New System.Drawing.Point(32, 223)
Me.CurrUsrLabel.Name = "CurrUsrLabel"
Me.CurrUsrLabel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CurrUsrLabel.Size = New System.Drawing.Size(137, 17)
Me.CurrUsrLabel.TabIndex = 23
Me.CurrUsrLabel.Text = "Current user name:"
'
'UserInfoLabel
'
Me.UserInfoLabel.BackColor = System.Drawing.Color.Transparent
Me.UserInfoLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.UserInfoLabel.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.UserInfoLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.UserInfoLabel.Location = New System.Drawing.Point(24, 208)
Me.UserInfoLabel.Name = "UserInfoLabel"
Me.UserInfoLabel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.UserInfoLabel.Size = New System.Drawing.Size(121, 17)
Me.UserInfoLabel.TabIndex = 24
Me.UserInfoLabel.Text = "User Information"
'
'PCName
'
Me.PCName.BackColor = System.Drawing.Color.Transparent
Me.PCName.Cursor = System.Windows.Forms.Cursors.Default
Me.PCName.ForeColor = System.Drawing.SystemColors.ControlText
Me.PCName.Location = New System.Drawing.Point(196, 240)
Me.PCName.Name = "PCName"
Me.PCName.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.PCName.Size = New System.Drawing.Size(275, 17)
Me.PCName.TabIndex = 25
'
'PCNameLabel
'
Me.PCNameLabel.BackColor = System.Drawing.Color.Transparent
Me.PCNameLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.PCNameLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.PCNameLabel.Location = New System.Drawing.Point(32, 240)
Me.PCNameLabel.Name = "PCNameLabel"
Me.PCNameLabel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.PCNameLabel.Size = New System.Drawing.Size(137, 17)
Me.PCNameLabel.TabIndex = 26
Me.PCNameLabel.Text = "Computer name:"
'
'AvailMemTimer
'
Me.AvailMemTimer.Enabled = True
'
'frmAbout
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 14.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(508, 335)
Me.Controls.Add(Me.AboutTab)
Me.Cursor = System.Windows.Forms.Cursors.Default
Me.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Location = New System.Drawing.Point(3, 29)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmAbout"
Me.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Tag = "1025"
Me.Text = "About VirtualMac"
Me.AboutTab.ResumeLayout(False)
Me._AboutTab_TabPage0.ResumeLayout(False)
Me._AboutTab_TabPage0.PerformLayout()
Me._AboutTab_TabPage1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Public WithEvents AppleCopyright As System.Windows.Forms.Label
Friend WithEvents ArmandoLink As System.Windows.Forms.LinkLabel
Friend WithEvents EmaculationLink As System.Windows.Forms.LinkLabel
Public WithEvents PCNameLabel As System.Windows.Forms.Label
Public WithEvents PCName As System.Windows.Forms.Label
Public WithEvents UserInfoLabel As System.Windows.Forms.Label
Public WithEvents CurrUsrLabel As System.Windows.Forms.Label
Public WithEvents CurrUsr As System.Windows.Forms.Label
Public WithEvents RAMAvailable As System.Windows.Forms.Label
Public WithEvents RAMAvailableLabel As System.Windows.Forms.Label
Public WithEvents RAMInstalled As System.Windows.Forms.Label
Public WithEvents RAMInstalledLabel As System.Windows.Forms.Label
Public WithEvents CPUTypeLabel As System.Windows.Forms.Label
Public WithEvents CPUType As System.Windows.Forms.Label
Public WithEvents CPUCores As System.Windows.Forms.Label
Public WithEvents CPUCoresLabel As System.Windows.Forms.Label
Public WithEvents SysInfoLabel As System.Windows.Forms.Label
Public WithEvents OSNameLabel As System.Windows.Forms.Label
Public WithEvents OSName As System.Windows.Forms.Label
Public WithEvents OSVersion As System.Windows.Forms.Label
Public WithEvents OSVersionLabel As System.Windows.Forms.Label
Friend WithEvents AvailMemTimer As System.Windows.Forms.Timer
#End Region
End Class

237
frmAbout.resx Normal file
View File

@ -0,0 +1,237 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="AvailMemTimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>116, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAAAAAoAQAANgAAACAgAAAAAAAAqAgAAF4BAAAwMAAAAAAAAKgOAAAGCgAAKAAAABAA
AAAgAAAAAQAEAAAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAd3d3AAAAAAAHd3AAAAAAAAd3cA
AAB3d3d4d3d3d3d3d3d3d3d3AAAAAAAAAAAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAIiIiIiIiIgAiI
iIiIiIiACIiIiIiIiIAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAAAAAAAAAAAPgfAAD8PwAA/D8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAIAAAAEAA
AAABAAgAAAAAAIAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDA
wADA3MAA8MqmAAQEBAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8
/wBQUP8AkwDWAP/szADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAz
zAAAM/8AAGYAAABmMwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADM
MwAAzGYAAMyZAADMzAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMz
MwAzM2YAMzOZADMzzAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZ
zAAzmf8AM8wAADPMMwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYA
ZgBmAJkAZgDMAGYA/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZ
AABmmTMAZplmAGaZmQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA
/wD/AMwAmZkAAJkzmQCZAJkAmQDMAJkAAACZMzMAmQBmAJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlm
zACZM/8AmZkzAJmZZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnM
ZgCZ/5kAmf/MAJn//wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxm
AADMZjMAmWZmAMxmmQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzM
mQDMzMwAzMz/AMz/AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8z
mQD/M8wA/zP/AP9mAAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/M
AAD/zDMA/8xmAP/MmQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//
ZgAhAKUAX19fAHd3dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgA8Pv/AKSg
oACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAoKCgoKCgoKCgoKBwcHBwcHBwcHBwoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcH
BwcKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgcHBwcHBwcHBwcHBwcH
B+zsBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhIS
EhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhIS
EhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhIS
EhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhIS
EhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgr/4Af///AP///wD///8A////AP/4AA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAB/////ygAAAAwAAAAYAAAAAEA
CAAAAAAAgAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDc
wADwyqYABAQEAAgICAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ
/wCTANYA/+zMAMbW7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz
/wAAZgAAAGYzAABmZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADM
ZgAAzJkAAMzMAADM/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMz
ZgAzM5kAMzPMADMz/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ
/wAzzAAAM8wzADPMZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYA
mQBmAMwAZgD/AGYzAABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZ
MwBmmWYAZpmZAGaZzABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8A
zACZmQAAmTOZAJkAmQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz
/wCZmTMAmZlmAJmZmQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/
mQCZ/8wAmf//AMwAAACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxm
MwCZZmYAzGaZAMxmzACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzM
zADMzP8AzP8AAMz/MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8z
zAD/M/8A/2YAAP9mMwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/M
MwD/zGYA/8yZAP/MzAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEA
pQBfX18Ad3d3AIaGhgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICA
gAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8ACgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcH
BwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHBwcHBwcHBwcKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
BwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcH
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcH
BwcHBwcHBwcHBwcHBwcHBwfs7AcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgcHBwcHBwcHBwcHBwcHBwcH
BwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcKBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK//4AAH//
AAD//wAA//8AAP//wAP//wAA///AA///AAD//8AD//8AAP//wAP//wAA///AA///AAD//8AD//8AAMAA
AAAAAwAAgAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAB
AADAAAAAAAMAAP///////wAA
</value>
</data>
</root>

43
frmAbout.vb Normal file
View File

@ -0,0 +1,43 @@
Option Strict Off
Option Explicit On
Friend Class frmAbout
Inherits System.Windows.Forms.Form
' : Some sidenotes to do:
' ; I've made many declarations here and in ApplicationEvents.vb because
' ; in this case I could't (or I didn't know how to) reuse declarations
' ; (Maybe inheritance, but I don't know how to use it, I'll check later)
' ; So to make it clear, in SetInfo() every argument is used as the value
' ; for its equivalent, example Proc (Of Proc-essor, not confuse with procedure)
' ; is set with CPU.
'
' ; Note for me: The labels can confuse values with the declarations, rename them
Private Sub EmaculationLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles EmaculationLink.LinkClicked
Process.Start("http://www.emaculation.com/doku.php")
End Sub
Private Sub ArmandoLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles ArmandoLink.LinkClicked
Process.Start("http://edsonarmando.000webhostapp.com")
End Sub
Private Sub frmAbout_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
SetLabels()
Dim AvailRAM As Long = (My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024
RAMAvailable.Text = AvailRAM & " MB"
End Sub
Public Sub SetLabels()
OSName.Text = SysInfo.OSName
OSVersion.Text = SysInfo.OSBuild
CPUType.Text = SysInfo.CPUClass
CPUCores.Text = SysInfo.CPUCores
RAMInstalled.Text = SysInfo.InstalledRAM
CurrUsr.Text = SysInfo.UserName
PCName.Text = SysInfo.ComputerName
End Sub
Private Sub AvailMemTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvailMemTimer.Tick
Dim AvailRAM As Long = (My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024
RAMAvailable.Text = AvailRAM & " MB"
End Sub
End Class

54
frmDebug.Designer.vb generated Normal file
View File

@ -0,0 +1,54 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDebug
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.ConsoleIO = New System.Windows.Forms.TextBox
Me.SuspendLayout()
'
'ConsoleIO
'
Me.ConsoleIO.BackColor = System.Drawing.SystemColors.WindowText
Me.ConsoleIO.Dock = System.Windows.Forms.DockStyle.Fill
Me.ConsoleIO.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ConsoleIO.ForeColor = System.Drawing.SystemColors.Window
Me.ConsoleIO.Location = New System.Drawing.Point(0, 0)
Me.ConsoleIO.Multiline = True
Me.ConsoleIO.Name = "ConsoleIO"
Me.ConsoleIO.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.ConsoleIO.Size = New System.Drawing.Size(605, 398)
Me.ConsoleIO.TabIndex = 0
'
'frmDebug
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(605, 398)
Me.Controls.Add(Me.ConsoleIO)
Me.Name = "frmDebug"
Me.Text = "Configuration Values"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ConsoleIO As System.Windows.Forms.TextBox
End Class

120
frmDebug.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

98
frmDebug.vb Normal file
View File

@ -0,0 +1,98 @@
Public Class frmDebug
Public ConsoleInput As String
Private Sub frmDebug_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ShowHelp()
ShowPrompt()
ConsoleIO.SelectionStart = ConsoleIO.TextLength
End Sub
Private Sub frmDebug_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
ConsoleIO.Width = Me.Width - 3
ConsoleIO.Height = Me.Height - 23
End Sub
Public Sub ClearConfig()
My.Settings.VMRoutes = ""
My.Settings.VMIcons = ""
My.Settings.VMNames = ""
My.Settings.VMType = ""
My.Settings.vMacROM = ""
My.Settings.BasiliskROM = ""
My.Settings.SheepShaverROM = ""
My.Settings.x = ""
My.Settings.DefaultMacFolder = ""
My.Settings.Save()
ConsoleIO.Text = ConsoleIO.Text & vbCrLf & vbCrLf & "App configuration cleared." & vbCrLf
End Sub
Public Sub ShowPrompt()
ConsoleIO.Text = ConsoleIO.Text & vbCrLf & "Debug prompt\> "
ConsoleIO.SelectionStart = ConsoleIO.TextLength
End Sub
Public Sub ShowConfig()
Dim TextToShow As String = ""
TextToShow = "Mini vMac ROM = " & My.Settings.vMacROM
TextToShow = TextToShow & vbCrLf & "Basilisk ROM = " & My.Settings.BasiliskROM
TextToShow = TextToShow & vbCrLf & "SheepShaver ROM = " & My.Settings.SheepShaverROM
TextToShow = TextToShow & vbCrLf & "Mac VM Folders = " & My.Settings.DefaultMacFolder
TextToShow = TextToShow & vbCrLf & "User Defined Icons = " & My.Settings.x
TextToShow = TextToShow & vbCrLf & "Vm Icons = " & My.Settings.VMIcons
TextToShow = TextToShow & vbCrLf & "VM Names = " & My.Settings.VMNames
TextToShow = TextToShow & vbCrLf & "VM Types (Subitem2) = " & My.Settings.VMType
TextToShow = TextToShow & vbCrLf & "VM Routes (Subitem1) = " & My.Settings.VMRoutes
ConsoleIO.Text = ConsoleIO.Text & vbCrLf & TextToShow & vbCrLf
End Sub
Public Sub ShowHelp()
ConsoleIO.Text = ConsoleIO.Text & vbCrLf & "Avaible commands are" & vbCrLf & vbCrLf & "show_config Shows the current values of the configuration" & vbCrLf & "clear_config Clears all the config values" & vbCrLf & "help Shows this help" & vbCrLf & "cls Clears the screen" & vbCrLf
End Sub
Private Sub ConsoleIO_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ConsoleIO.KeyDown
If e.KeyData = Keys.Back Then
If ConsoleInput <> "" Then
ConsoleInput.Remove(ConsoleInput.Length - 1, 1)
ConsoleIO.Text.Remove(ConsoleIO.TextLength - 1, 1)
Else
e.Handled = True
End If
End If
End Sub
Private Sub ConsoleIO_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ConsoleIO.KeyPress
If Char.IsLetterOrDigit(e.KeyChar) Or Char.IsPunctuation(e.KeyChar) = True Then
ConsoleInput = ConsoleInput & e.KeyChar.ToString
ConsoleIO.SelectionStart = ConsoleIO.TextLength
End If
End Sub
Private Sub ConsoleIO_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ConsoleIO.KeyUp
If e.KeyData = Keys.Return Then
e.Handled = True
Select Case ConsoleInput
Case "clear_config"
ClearConfig()
Case "show_config"
ShowConfig()
Case "help"
ShowHelp()
Case "cls"
ClearScreen()
Case "show_console"
frmMain.Show()
End Select
EndCheck:
ConsoleInput = ""
ShowPrompt()
End If
If e.KeyData = Keys.Back Then
e.Handled = True
ConsoleInput = Mid(ConsoleInput, 1, ConsoleInput.Length - 1)
End If
End Sub
Public Sub ClearScreen()
ConsoleIO.Text = " "
End Sub
End Class

130
frmHelp.Designer.vb generated Normal file
View File

@ -0,0 +1,130 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmHelp
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.HelpRenderer = New System.Windows.Forms.WebBrowser
Me.NavigationBar = New System.Windows.Forms.ToolStrip
Me.GoHome = New System.Windows.Forms.ToolStripButton
Me.GoBack = New System.Windows.Forms.ToolStripButton
Me.GoForward = New System.Windows.Forms.ToolStripButton
Me.SearchStart = New System.Windows.Forms.ToolStripButton
Me.SearchBox = New System.Windows.Forms.ToolStripTextBox
Me.NavigationBar.SuspendLayout()
Me.SuspendLayout()
'
'HelpRenderer
'
Me.HelpRenderer.Dock = System.Windows.Forms.DockStyle.Bottom
Me.HelpRenderer.Location = New System.Drawing.Point(0, 57)
Me.HelpRenderer.MinimumSize = New System.Drawing.Size(20, 20)
Me.HelpRenderer.Name = "HelpRenderer"
Me.HelpRenderer.Size = New System.Drawing.Size(719, 381)
Me.HelpRenderer.TabIndex = 0
Me.HelpRenderer.Url = New System.Uri("", System.UriKind.Relative)
'
'NavigationBar
'
Me.NavigationBar.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.NavigationBar.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GoHome, Me.GoBack, Me.GoForward, Me.SearchStart, Me.SearchBox})
Me.NavigationBar.Location = New System.Drawing.Point(0, 0)
Me.NavigationBar.Name = "NavigationBar"
Me.NavigationBar.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Me.NavigationBar.Size = New System.Drawing.Size(719, 38)
Me.NavigationBar.TabIndex = 1
Me.NavigationBar.Text = "Navigation"
'
'GoHome
'
Me.GoHome.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.GoHome.Image = Global.VirtualMac.My.Resources.Resources.BrowserHome
Me.GoHome.ImageTransparentColor = System.Drawing.Color.Magenta
Me.GoHome.Name = "GoHome"
Me.GoHome.Size = New System.Drawing.Size(44, 35)
Me.GoHome.Text = "Home"
Me.GoHome.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'GoBack
'
Me.GoBack.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.GoBack.Enabled = False
Me.GoBack.Image = Global.VirtualMac.My.Resources.Resources.BrowserBack
Me.GoBack.ImageTransparentColor = System.Drawing.Color.Magenta
Me.GoBack.Name = "GoBack"
Me.GoBack.Size = New System.Drawing.Size(36, 35)
Me.GoBack.Text = "Back"
Me.GoBack.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'GoForward
'
Me.GoForward.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.GoForward.Enabled = False
Me.GoForward.Image = Global.VirtualMac.My.Resources.Resources.BrowserForward
Me.GoForward.ImageTransparentColor = System.Drawing.Color.Magenta
Me.GoForward.Name = "GoForward"
Me.GoForward.Size = New System.Drawing.Size(54, 35)
Me.GoForward.Text = "Forward"
Me.GoForward.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'SearchStart
'
Me.SearchStart.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.SearchStart.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.SearchStart.Enabled = False
Me.SearchStart.Image = Global.VirtualMac.My.Resources.Resources.BrowserSearch
Me.SearchStart.ImageTransparentColor = System.Drawing.Color.Magenta
Me.SearchStart.Name = "SearchStart"
Me.SearchStart.Size = New System.Drawing.Size(23, 35)
Me.SearchStart.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay
'
'SearchBox
'
Me.SearchBox.AcceptsReturn = True
Me.SearchBox.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.SearchBox.ForeColor = System.Drawing.SystemColors.GrayText
Me.SearchBox.Name = "SearchBox"
Me.SearchBox.Size = New System.Drawing.Size(100, 38)
Me.SearchBox.Text = "Search..."
'
'frmHelp
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(719, 438)
Me.Controls.Add(Me.NavigationBar)
Me.Controls.Add(Me.HelpRenderer)
Me.Name = "frmHelp"
Me.Text = "Help - VirtualMac"
Me.NavigationBar.ResumeLayout(False)
Me.NavigationBar.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents HelpRenderer As System.Windows.Forms.WebBrowser
Friend WithEvents NavigationBar As System.Windows.Forms.ToolStrip
Friend WithEvents GoBack As System.Windows.Forms.ToolStripButton
Friend WithEvents GoHome As System.Windows.Forms.ToolStripButton
Friend WithEvents GoForward As System.Windows.Forms.ToolStripButton
Friend WithEvents SearchStart As System.Windows.Forms.ToolStripButton
Friend WithEvents SearchBox As System.Windows.Forms.ToolStripTextBox
End Class

126
frmHelp.resx Normal file
View File

@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="NavigationBar.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>50</value>
</metadata>
</root>

98
frmHelp.vb Normal file
View File

@ -0,0 +1,98 @@
Public Class frmHelp
Public InitialUrl As String = ""
Public Sub SetInitialLocation(ByVal NewUrl As String)
InitialUrl = NewUrl
End Sub
Private Sub frmHelp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If InitialUrl <> "" Then
HelpRenderer.Navigate(InitialUrl)
Else
HelpRenderer.Navigate("http://emaculation.com/doku.php")
End If
End Sub
Private Sub GoHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoHome.Click
HelpRenderer.Navigate("http://emaculation.com/doku.php")
End Sub
Private Sub GoBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoBack.Click
If HelpRenderer.CanGoBack = True Then
HelpRenderer.GoBack()
Else
GoBack.Enabled = False
End If
End Sub
Private Sub GoForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoForward.Click
If HelpRenderer.CanGoForward = True Then
HelpRenderer.GoForward()
Else
GoForward.Enabled = False
End If
End Sub
Private Sub HelpRenderer_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles HelpRenderer.DocumentCompleted
If HelpRenderer.CanGoBack = True Then
GoBack.Enabled = True
Else
GoBack.Enabled = False
End If
If HelpRenderer.CanGoForward = True Then
GoForward.Enabled = True
Else
GoForward.Enabled = False
End If
End Sub
Private Sub SearchBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBox.GotFocus
SearchBox.ForeColor = System.Windows.Forms.Control.DefaultForeColor
If SearchBox.Text = "Search..." Then
SearchBox.Text = ""
End If
End Sub
Private Sub SearchBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBox.LostFocus
If SearchBox.Text = "" Then
SearchBox.Text = "Search..."
End If
SearchBox.ForeColor = Color.Gray
End Sub
Private Sub SearchBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles SearchBox.KeyDown
e.Handled = True
If e.KeyData = Keys.Return Then
SearchStart_Click(Nothing, Nothing)
End If
End Sub
Private Sub SearchBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles SearchBox.KeyPress
If Char.IsControl(e.KeyChar) = True Then
e.Handled = True
End If
End Sub
Private Sub SearchBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles SearchBox.KeyUp
e.Handled = True
End Sub
Private Sub SearchBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBox.TextChanged
If SearchBox.Text <> "" Then
SearchStart.Enabled = True
ElseIf SearchBox.Text = "Search..." Then
SearchStart.Enabled = False
Else
SearchStart.Enabled = False
End If
End Sub
Private Sub SearchStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchStart.Click
Dim SearchTerm As String = SearchBox.Text
Dim SearchUrl As String = "https://www.emaculation.com/doku.php/mac_emulation?do=search&q="
HelpRenderer.Navigate(SearchUrl + SearchTerm)
End Sub
Private Sub frmHelp_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
HelpRenderer.Height = Me.ClientSize.Height - NavigationBar.Height
End Sub
End Class

422
frmMain.Designer.vb generated Normal file
View File

@ -0,0 +1,422 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMain
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.mnuActionStart = New System.Windows.Forms.MenuItem
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.ButtonStart = New System.Windows.Forms.Button
Me.mnuActionBar0 = New System.Windows.Forms.MenuItem
Me.mnuAction = New System.Windows.Forms.MenuItem
Me.mnuActionPause = New System.Windows.Forms.MenuItem
Me.mnuActionRestart = New System.Windows.Forms.MenuItem
Me.mnuActionBar1 = New System.Windows.Forms.MenuItem
Me.mnuActionRemove = New System.Windows.Forms.MenuItem
Me.mnuActionBar2 = New System.Windows.Forms.MenuItem
Me.mnuActionSettings = New System.Windows.Forms.MenuItem
Me.mnuActionProperties = New System.Windows.Forms.MenuItem
Me.mnuFileOptions = New System.Windows.Forms.MenuItem
Me.mnuFileDebug = New System.Windows.Forms.MenuItem
Me.mnuFileBar1 = New System.Windows.Forms.MenuItem
Me.mnuFileExit = New System.Windows.Forms.MenuItem
Me.mnuHelpOnline = New System.Windows.Forms.MenuItem
Me.mnuHelpBar0 = New System.Windows.Forms.MenuItem
Me.mnuHelpContents = New System.Windows.Forms.MenuItem
Me.mnuHelpAbout = New System.Windows.Forms.MenuItem
Me.mnuHelp = New System.Windows.Forms.MenuItem
Me.mnuHelpCrash = New System.Windows.Forms.MenuItem
Me.mnuFileBar0 = New System.Windows.Forms.MenuItem
Me.mnuFileNewDisk = New System.Windows.Forms.MenuItem
Me.TrayNewMac = New System.Windows.Forms.ToolStripMenuItem
Me.ButtonRemove = New System.Windows.Forms.Button
Me.ButtonSettings = New System.Windows.Forms.Button
Me.TrayShow = New System.Windows.Forms.ToolStripMenuItem
Me.TrayMenu = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.TrayNewDisk = New System.Windows.Forms.ToolStripMenuItem
Me.TrayOptions = New System.Windows.Forms.ToolStripMenuItem
Me.TrayExit = New System.Windows.Forms.ToolStripMenuItem
Me.VirtualMacTray = New System.Windows.Forms.NotifyIcon(Me.components)
Me.ButtonNewM = New System.Windows.Forms.Button
Me.MainMenu1 = New System.Windows.Forms.MainMenu(Me.components)
Me.mnuFile = New System.Windows.Forms.MenuItem
Me.mnuFileNewMac = New System.Windows.Forms.MenuItem
Me.ButtonNewIcon = New System.Windows.Forms.Button
Me.Browser = New System.Windows.Forms.OpenFileDialog
Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
Me.VMList = New System.Windows.Forms.ListView
Me.MacIcons = New System.Windows.Forms.ImageList(Me.components)
Me.TrayMenu.SuspendLayout()
Me.SuspendLayout()
'
'mnuActionStart
'
Me.mnuActionStart.Index = 0
Me.mnuActionStart.Text = "Start"
'
'ButtonStart
'
Me.ButtonStart.BackColor = System.Drawing.SystemColors.Control
Me.ButtonStart.Cursor = System.Windows.Forms.Cursors.Default
Me.ButtonStart.Enabled = False
Me.ButtonStart.ForeColor = System.Drawing.SystemColors.ControlText
Me.ButtonStart.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.ButtonStart.Location = New System.Drawing.Point(267, 108)
Me.ButtonStart.Name = "ButtonStart"
Me.ButtonStart.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.ButtonStart.Size = New System.Drawing.Size(75, 23)
Me.ButtonStart.TabIndex = 12
Me.ButtonStart.Text = "Start"
Me.ButtonStart.UseVisualStyleBackColor = True
'
'mnuActionBar0
'
Me.mnuActionBar0.Index = 1
Me.mnuActionBar0.Text = "-"
'
'mnuAction
'
Me.mnuAction.Index = 1
Me.mnuAction.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuActionStart, Me.mnuActionBar0, Me.mnuActionPause, Me.mnuActionRestart, Me.mnuActionBar1, Me.mnuActionRemove, Me.mnuActionBar2, Me.mnuActionSettings, Me.mnuActionProperties})
Me.mnuAction.Text = "Action"
'
'mnuActionPause
'
Me.mnuActionPause.Index = 2
Me.mnuActionPause.Text = "Pause"
'
'mnuActionRestart
'
Me.mnuActionRestart.Index = 3
Me.mnuActionRestart.Text = "Restart"
'
'mnuActionBar1
'
Me.mnuActionBar1.Index = 4
Me.mnuActionBar1.Text = "-"
'
'mnuActionRemove
'
Me.mnuActionRemove.Index = 5
Me.mnuActionRemove.Text = "Remove"
'
'mnuActionBar2
'
Me.mnuActionBar2.Index = 6
Me.mnuActionBar2.Text = "-"
'
'mnuActionSettings
'
Me.mnuActionSettings.Index = 7
Me.mnuActionSettings.Text = "Settings"
'
'mnuActionProperties
'
Me.mnuActionProperties.Index = 8
Me.mnuActionProperties.Text = "Properties"
'
'mnuFileOptions
'
Me.mnuFileOptions.Index = 3
Me.mnuFileOptions.Text = "Options"
'
'mnuFileDebug
'
Me.mnuFileDebug.Index = 6
Me.mnuFileDebug.Text = "Debug"
'
'mnuFileBar1
'
Me.mnuFileBar1.Index = 4
Me.mnuFileBar1.Text = "-"
'
'mnuFileExit
'
Me.mnuFileExit.Index = 5
Me.mnuFileExit.Text = "Exit"
'
'mnuHelpOnline
'
Me.mnuHelpOnline.Index = 1
Me.mnuHelpOnline.Text = "Virtual Mac Online"
'
'mnuHelpBar0
'
Me.mnuHelpBar0.Index = 2
Me.mnuHelpBar0.Text = "-"
'
'mnuHelpContents
'
Me.mnuHelpContents.Index = 0
Me.mnuHelpContents.Text = "Virtual Mac Help"
'
'mnuHelpAbout
'
Me.mnuHelpAbout.Index = 3
Me.mnuHelpAbout.Text = "About Virtual Mac..."
'
'mnuHelp
'
Me.mnuHelp.Index = 2
Me.mnuHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuHelpContents, Me.mnuHelpOnline, Me.mnuHelpBar0, Me.mnuHelpAbout, Me.mnuHelpCrash})
Me.mnuHelp.Text = "Help"
'
'mnuHelpCrash
'
Me.mnuHelpCrash.Index = 4
Me.mnuHelpCrash.Text = "Crash"
Me.mnuHelpCrash.Visible = False
'
'mnuFileBar0
'
Me.mnuFileBar0.Index = 2
Me.mnuFileBar0.Text = "-"
'
'mnuFileNewDisk
'
Me.mnuFileNewDisk.Index = 1
Me.mnuFileNewDisk.Text = "New Disk Wizard"
'
'TrayNewMac
'
Me.TrayNewMac.Name = "TrayNewMac"
Me.TrayNewMac.Size = New System.Drawing.Size(217, 22)
Me.TrayNewMac.Text = "New Macintosh Wizard"
'
'ButtonRemove
'
Me.ButtonRemove.BackColor = System.Drawing.SystemColors.Control
Me.ButtonRemove.Cursor = System.Windows.Forms.Cursors.Default
Me.ButtonRemove.Enabled = False
Me.ButtonRemove.ForeColor = System.Drawing.SystemColors.ControlText
Me.ButtonRemove.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.ButtonRemove.Location = New System.Drawing.Point(267, 68)
Me.ButtonRemove.Name = "ButtonRemove"
Me.ButtonRemove.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.ButtonRemove.Size = New System.Drawing.Size(75, 23)
Me.ButtonRemove.TabIndex = 11
Me.ButtonRemove.Text = "Remove"
Me.ButtonRemove.UseVisualStyleBackColor = True
'
'ButtonSettings
'
Me.ButtonSettings.BackColor = System.Drawing.SystemColors.Control
Me.ButtonSettings.Cursor = System.Windows.Forms.Cursors.Default
Me.ButtonSettings.Enabled = False
Me.ButtonSettings.ForeColor = System.Drawing.SystemColors.ControlText
Me.ButtonSettings.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.ButtonSettings.Location = New System.Drawing.Point(267, 38)
Me.ButtonSettings.Name = "ButtonSettings"
Me.ButtonSettings.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.ButtonSettings.Size = New System.Drawing.Size(75, 23)
Me.ButtonSettings.TabIndex = 10
Me.ButtonSettings.Text = "Settings"
Me.ButtonSettings.UseVisualStyleBackColor = True
'
'TrayShow
'
Me.TrayShow.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold)
Me.TrayShow.Name = "TrayShow"
Me.TrayShow.Size = New System.Drawing.Size(217, 22)
Me.TrayShow.Text = "Show Virtual Mac Console"
'
'TrayMenu
'
Me.TrayMenu.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.TrayMenu.ImageScalingSize = New System.Drawing.Size(8, 8)
Me.TrayMenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TrayShow, Me.TrayNewMac, Me.TrayNewDisk, Me.TrayOptions, Me.TrayExit})
Me.TrayMenu.Name = "ContextMenuStrip1"
Me.TrayMenu.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Me.TrayMenu.Size = New System.Drawing.Size(218, 114)
'
'TrayNewDisk
'
Me.TrayNewDisk.Name = "TrayNewDisk"
Me.TrayNewDisk.Size = New System.Drawing.Size(217, 22)
Me.TrayNewDisk.Text = "New Disk Wizard"
'
'TrayOptions
'
Me.TrayOptions.Name = "TrayOptions"
Me.TrayOptions.Size = New System.Drawing.Size(217, 22)
Me.TrayOptions.Text = "Options"
'
'TrayExit
'
Me.TrayExit.Name = "TrayExit"
Me.TrayExit.Size = New System.Drawing.Size(217, 22)
Me.TrayExit.Text = "Exit"
'
'VirtualMacTray
'
Me.VirtualMacTray.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
Me.VirtualMacTray.BalloonTipText = "Welcome to the vintage Macintosh emulator FrontEnd Virtual Mac"
Me.VirtualMacTray.BalloonTipTitle = "Welcome to Virtual Mac"
Me.VirtualMacTray.ContextMenuStrip = Me.TrayMenu
Me.VirtualMacTray.Icon = CType(resources.GetObject("VirtualMacTray.Icon"), System.Drawing.Icon)
Me.VirtualMacTray.Text = "Virtual Mac Console"
Me.VirtualMacTray.Visible = True
'
'ButtonNewM
'
Me.ButtonNewM.BackColor = System.Drawing.SystemColors.Control
Me.ButtonNewM.Cursor = System.Windows.Forms.Cursors.Default
Me.ButtonNewM.ForeColor = System.Drawing.SystemColors.ControlText
Me.ButtonNewM.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.ButtonNewM.Location = New System.Drawing.Point(267, 8)
Me.ButtonNewM.Name = "ButtonNewM"
Me.ButtonNewM.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.ButtonNewM.Size = New System.Drawing.Size(75, 23)
Me.ButtonNewM.TabIndex = 9
Me.ButtonNewM.Text = "New..."
Me.ButtonNewM.UseVisualStyleBackColor = True
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFile, Me.mnuAction, Me.mnuHelp})
'
'mnuFile
'
Me.mnuFile.Index = 0
Me.mnuFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFileNewMac, Me.mnuFileNewDisk, Me.mnuFileBar0, Me.mnuFileOptions, Me.mnuFileBar1, Me.mnuFileExit, Me.mnuFileDebug})
Me.mnuFile.Text = "File"
'
'mnuFileNewMac
'
Me.mnuFileNewMac.Index = 0
Me.mnuFileNewMac.Text = "New Mac Wizard"
'
'ButtonNewIcon
'
Me.ButtonNewIcon.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.ButtonNewIcon.Location = New System.Drawing.Point(268, 137)
Me.ButtonNewIcon.Name = "ButtonNewIcon"
Me.ButtonNewIcon.Size = New System.Drawing.Size(75, 36)
Me.ButtonNewIcon.TabIndex = 14
Me.ButtonNewIcon.Text = "Change Icon"
Me.ButtonNewIcon.UseVisualStyleBackColor = True
Me.ButtonNewIcon.Visible = False
'
'ColumnHeader1
'
Me.ColumnHeader1.Width = 244
'
'VMList
'
Me.VMList.AllowDrop = True
Me.VMList.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1})
Me.VMList.FullRowSelect = True
Me.VMList.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
Me.VMList.HideSelection = False
Me.VMList.Location = New System.Drawing.Point(7, 8)
Me.VMList.MultiSelect = False
Me.VMList.Name = "VMList"
Me.VMList.ShowGroups = False
Me.VMList.Size = New System.Drawing.Size(249, 189)
Me.VMList.Sorting = System.Windows.Forms.SortOrder.Descending
Me.VMList.StateImageList = Me.MacIcons
Me.VMList.TabIndex = 13
Me.VMList.TileSize = New System.Drawing.Size(228, 58)
Me.VMList.UseCompatibleStateImageBehavior = False
Me.VMList.View = System.Windows.Forms.View.Details
'
'MacIcons
'
Me.MacIcons.ImageStream = CType(resources.GetObject("MacIcons.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.MacIcons.TransparentColor = System.Drawing.Color.Transparent
Me.MacIcons.Images.SetKeyName(0, "Generic.ico")
Me.MacIcons.Images.SetKeyName(1, "Mini vMac.png")
Me.MacIcons.Images.SetKeyName(2, "Basilisk.png")
Me.MacIcons.Images.SetKeyName(3, "SheepShaver.png")
Me.MacIcons.Images.SetKeyName(4, "PearPC.png")
Me.MacIcons.Images.SetKeyName(5, "OS6.png")
Me.MacIcons.Images.SetKeyName(6, "OS7.png")
Me.MacIcons.Images.SetKeyName(7, "OS8.png")
Me.MacIcons.Images.SetKeyName(8, "OS9.png")
Me.MacIcons.Images.SetKeyName(9, "OSX.png")
'
'frmMain
'
Me.AllowDrop = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(364, 209)
Me.Controls.Add(Me.ButtonStart)
Me.Controls.Add(Me.ButtonRemove)
Me.Controls.Add(Me.ButtonSettings)
Me.Controls.Add(Me.ButtonNewM)
Me.Controls.Add(Me.ButtonNewIcon)
Me.Controls.Add(Me.VMList)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Menu = Me.MainMenu1
Me.Name = "frmMain"
Me.Text = "Virtual Mac Console"
Me.TrayMenu.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents mnuActionStart As System.Windows.Forms.MenuItem
Public WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Public WithEvents ButtonStart As System.Windows.Forms.Button
Friend WithEvents mnuActionBar0 As System.Windows.Forms.MenuItem
Friend WithEvents mnuAction As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionPause As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionRestart As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionBar1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionRemove As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionBar2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionSettings As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionProperties As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileOptions As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileDebug As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileBar1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileExit As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpOnline As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpBar0 As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpContents As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpAbout As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelp As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileBar0 As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileNewDisk As System.Windows.Forms.MenuItem
Friend WithEvents TrayNewMac As System.Windows.Forms.ToolStripMenuItem
Public WithEvents ButtonRemove As System.Windows.Forms.Button
Public WithEvents ButtonSettings As System.Windows.Forms.Button
Friend WithEvents TrayShow As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TrayMenu As System.Windows.Forms.ContextMenuStrip
Friend WithEvents TrayNewDisk As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TrayOptions As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TrayExit As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents VirtualMacTray As System.Windows.Forms.NotifyIcon
Public WithEvents ButtonNewM As System.Windows.Forms.Button
Private WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents mnuFile As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileNewMac As System.Windows.Forms.MenuItem
Friend WithEvents ButtonNewIcon As System.Windows.Forms.Button
Friend WithEvents Browser As System.Windows.Forms.OpenFileDialog
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents VMList As System.Windows.Forms.ListView
Public WithEvents MacIcons As System.Windows.Forms.ImageList
Friend WithEvents mnuHelpCrash As System.Windows.Forms.MenuItem
End Class

1954
frmMain.resx Normal file

File diff suppressed because it is too large Load Diff

431
frmMain.vb Normal file
View File

@ -0,0 +1,431 @@
Public Class frmMain
Public Sub LoadSettings()
Dim VMNames() As String = Split(My.Settings.VMNames, ",")
Dim VMRoutes() As String = Split(My.Settings.VMRoutes, ",")
Dim VMIcons() As String = Split(My.Settings.VMIcons, ",")
Dim VMTypes() As String = Split(My.Settings.VMType, ",")
If Microsoft.VisualBasic.Command = "/debug" Then
Me.mnuFileDebug.Visible = True
Else
Me.mnuFileDebug.Visible = False
End If
If VMNames.Length > 1 Then
For x As Integer = 0 To VMNames.Length - 2
If VMIcons(x) = -1 Or VMIcons(x) = "" Then
VMIcons(x) = 0
End If
With VMList.Items.Add(VMNames(x))
.StateImageIndex = 0
.SubItems.Add(VMRoutes(x))
.SubItems.Add(VMTypes(x))
End With
Next
End If
End Sub
Public Sub SaveSettings()
Dim VMNames As String = ""
Dim VMIcons As String = ""
Dim VMRoutes As String = ""
Dim VMTypes As String = ""
Dim CustomIcons As String = ""
For x As Integer = 0 To VMList.Items.Count - 1
If VMList.Items(x).StateImageIndex = -1 Then
VMList.Items(x).StateImageIndex = 0
End If
Next
For x As Integer = 0 To VMList.Items.Count - 1
VMNames = VMNames & VMList.Items(x).Text & ","
VMIcons = VMIcons & VMList.Items(x).StateImageIndex & ","
VMRoutes = VMRoutes & VMList.Items(x).SubItems(1).Text & ","
VMTypes = VMTypes & VMList.Items(x).SubItems(2).Text & ","
Next
My.Settings.VMNames = VMNames
My.Settings.VMIcons = VMIcons
My.Settings.VMRoutes = VMRoutes
My.Settings.VMType = VMTypes
My.Settings.Save()
End Sub
Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Me.Visible = False
End Sub
Private Sub frmMain_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
GetSysInfo()
VirtualMacTray.Visible = True
LoadSettings()
End Sub
Private Sub frmMain_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
SaveSettings()
If Me.WindowState <> System.Windows.Forms.FormWindowState.Minimized Then
SaveSetting(My.Application.Info.Title, "Settings", "MainLeft", CStr(VB6.PixelsToTwipsX(Me.Left)))
SaveSetting(My.Application.Info.Title, "Settings", "MainTop", CStr(VB6.PixelsToTwipsY(Me.Top)))
SaveSetting(My.Application.Info.Title, "Settings", "MainWidth", CStr(VB6.PixelsToTwipsX(Me.Width)))
SaveSetting(My.Application.Info.Title, "Settings", "MainHeight", CStr(VB6.PixelsToTwipsY(Me.Height)))
End If
End Sub
Public Sub StartEmulation(ByVal ConfigPath As String)
Dim Reader As New System.IO.StreamReader(ConfigPath, True)
Dim Line As String
Dim Lines As New ArrayList
MsgBox("Virtual Mac © " + My.Application.Info.Version.ToString + " Beta. Launch support incomplete. Test with precaution")
Do
Line = Reader.ReadLine()
If Not Line Is Nothing Then
Lines.Add(Line)
End If
Loop Until Line Is Nothing
Reader.Close()
If My.Settings.TestWindow = True Then
frmVirtualMacintosh.Show()
Exit Sub
End If
Select Case VMList.FocusedItem.SubItems(2).Text
Case "vMac"
If My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\Emulators\vMac\vMac.exe") = True Then
Shell(My.Application.Info.DirectoryPath & "\Emulators\vMac\vMac.exe " & Chr(34) & Lines(0) & Chr(34), AppWinStyle.NormalFocus)
frmVirtualMacintosh.Text = VMList.Items(VMList.FocusedItem.Index).Text & " - Virtual Mac"
ElseIf My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\vMac.exe") = True Then
Shell(My.Application.Info.DirectoryPath & "\vMac.exe " & Chr(34) & Lines(0) & Chr(34), AppWinStyle.NormalFocus)
frmVirtualMacintosh.Text = VMList.Items(VMList.FocusedItem.Index).Text & " - Virtual Mac"
End If
Case "BII"
If My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\Emulators\BasiliskII\BasiliskII.exe") = True Then
Shell(My.Application.Info.DirectoryPath & "\Emulators\BasiliskII\BasiliskII.exe " & VMList.FocusedItem.SubItems(1).Text, AppWinStyle.NormalFocus)
ElseIf My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\BasiliskII.exe") = True Then
Shell(My.Application.Info.DirectoryPath & "\BasiliskII.exe " & VMList.FocusedItem.SubItems(1).Text, AppWinStyle.NormalFocus)
End If
Case "SheepShaver"
If My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\Emulators\SheepShaver\SheepShaver.exe") = True Then
Shell(My.Application.Info.DirectoryPath & "\Emulators\SheepShaver\SheepShaver.exe " & VMList.FocusedItem.SubItems(1).Text, AppWinStyle.NormalFocus)
ElseIf My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\SheepShaver.exe") = True Then
Shell(My.Application.Info.DirectoryPath & "\SheepShaver.exe" & VMList.FocusedItem.SubItems(1).Text, AppWinStyle.NormalFocus)
End If
Case "PearPC"
If My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\Emulators\PearPC\PPC.exe") = True Then
Shell(My.Application.Info.DirectoryPath & "\Emulators\PearPC\PPC.exe " & VMList.FocusedItem.SubItems(1).Text, AppWinStyle.NormalFocus)
ElseIf My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\PPC.exe") = True Then
Shell(My.Application.Info.DirectoryPath & "\PPC.exe " & VMList.FocusedItem.SubItems(1).Text, AppWinStyle.NormalFocus)
End If
Case "QEMU"
If My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\Emulators\QEMU\qemu-system-ppc.exe") = True Then
Shell(My.Application.Info.DirectoryPath & "\Emulators\QEMU\qemu-system-ppc.exe" & Lines(0), AppWinStyle.NormalFocus)
ElseIf My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\qemu-system-ppc.exe") = True Then
Shell(My.Application.Info.DirectoryPath & "\qemy-system-ppc.exe" & Lines(0), AppWinStyle.NormalFocus)
End If
End Select
End Sub
Public Sub EnableButtons()
mnuActionStart.Enabled = True
'mnuActionPause.Enabled = True
'mnuActionRestart.Enabled = True
mnuActionRemove.Enabled = True
mnuActionSettings.Enabled = True
'mnuActionProperties.Enabled = True
ButtonSettings.Enabled = True
ButtonRemove.Enabled = True
ButtonStart.Enabled = True
End Sub
Public Sub RemoveSelectedMac()
'Declarations
Dim Selection As Boolean
Dim Answer As Short
'Checks that you have a machine selected
If VMList.FocusedItem.Index <> -1 Then
Selection = True
End If
'Asks you if you really want to delete the machine
If Selection = True Then
Answer = MsgBox("Are you sure you want to remove ''" & VMList.Items(VMList.FocusedItem.Index).Text & "'' Mac from the Virtual Mac Console?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Virtual Mac")
'If you don't want that old Mac Plus, this
'is where it's deleted and recycled (Maybe)
If Answer = 6 Then
'Let's ask if user wants to keep files
If MsgBox("Do you want to delete the associated files? This will delete ALL the files in the folder ''" & VMList.FocusedItem.Text & "''", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Delete files") = MsgBoxResult.Yes Then
'If user needs disk space...
My.Computer.FileSystem.DeleteDirectory(System.IO.Path.GetDirectoryName(VMList.FocusedItem.SubItems(1).Text), FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin, FileIO.UICancelOption.DoNothing)
VMList.Items.RemoveAt(VMList.FocusedItem.Index)
DisableButtons() 'Disable the buttons
Else
'If user just gets annoyed with the item but wants the files...
VMList.Items.RemoveAt(VMList.FocusedItem.Index)
DisableButtons() 'Disable the buttons
End If
End If
End If
End Sub
Private Sub NewMac_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ButtonNewM.Click
frmNewMac.Show()
End Sub
Private Sub Remove_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ButtonRemove.Click
RemoveSelectedMac()
End Sub
Private Sub Settings_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ButtonSettings.Click
OpenSettings()
End Sub
Private Sub Start_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ButtonStart.Click
StartEmulation(VMList.FocusedItem.SubItems(1).Text)
End Sub
Public Sub DisableButtons()
mnuActionStart.Enabled = False
mnuActionPause.Enabled = False
mnuActionRestart.Enabled = False
mnuActionRemove.Enabled = False
mnuActionSettings.Enabled = False
mnuActionProperties.Enabled = False
ButtonSettings.Enabled = False
ButtonRemove.Enabled = False
ButtonStart.Enabled = False
End Sub
Public Sub UnloadAll()
If frmVirtualMacintosh.Visible = True Then
frmVirtualMacintosh.Close()
End If
If frmOptions.Visible = True Then
frmOptions.Close()
End If
If frmSettingsSheepVM.Visible = True Then
frmSettingsSheepVM.Close()
End If
If frmNewMac.Visible = True Then
frmNewMac.Close()
End If
'If frmNewDisk.Visible = True Then
'frmNewDisk.Close()
'End If
Me.Close()
End
End Sub
Private Sub IconNewMac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrayNewMac.Click
frmNewMac.Show()
frmNewMac.Focus()
End Sub
Private Sub IconNewDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrayNewDisk.Click
'frmNewDisk.Show()
End Sub
Private Sub IconOptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrayOptions.Click
frmOptions.Show()
End Sub
Private Sub IconExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrayExit.Click
frmVirtualMacintosh.Close()
frmNewMac.Close()
'frmNewDisk.Close()
frmSplash.Close()
frmSettingsSheepVM.Close()
frmOptions.Close()
frmAbout.Close()
Me.Close()
End Sub
Private Sub TrayShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrayShow.Click
Me.Visible = True
Me.ShowInTaskbar = True
Me.WindowState = FormWindowState.Normal
Me.Show()
Me.BringToFront()
End Sub
Private Sub frmMain_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If Me.WindowState = FormWindowState.Minimized Then
Me.ShowInTaskbar = False
Me.Visible = False
End If
Me.Width = 371
End Sub
Private Sub VirtualMacTray_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles VirtualMacTray.MouseDoubleClick
Me.Visible = True
Me.ShowInTaskbar = True
Me.WindowState = FormWindowState.Normal
Me.Show()
Me.BringToFront()
End Sub
Private Sub VMList_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles VMList.Click
EnableButtons()
End Sub
Private Sub ChangeIcon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNewIcon.Click
Dim User As Integer = MacIcons.Images.Count
Dim Picture As System.Drawing.Image
Browser.Filter = "Picture files(*.jpg;*.png;*.bmp;*.ico)|*.jpg;*.png;*.bmp;*.ico|All files (*.*)|*.*"
Browser.ShowDialog()
If Not Browser.FileName = "" Then
Picture = Image.FromFile(Browser.FileName)
MacIcons.Images.Add(User, Picture)
VMList.FocusedItem.StateImageIndex = User
End If
End Sub
Private Sub mnuFileOptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileOptions.Click
frmOptions.Show()
End Sub
Private Sub mnuHelpAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHelpAbout.Click
frmAbout.Show()
End Sub
Private Sub mnuFileDebug_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileDebug.Click
frmDebug.Show()
End Sub
Private Sub mnuFileNewMac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileNewMac.Click
frmNewMac.Show()
End Sub
Private Sub mnuFileNewDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileNewDisk.Click
frmNewDisk.Show()
End Sub
Private Sub VMList_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles VMList.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
Dim x As String = CType(e.Data.GetData(DataFormats.FileDrop, True), String())(0)
ConfigFileHandler.CreateFromFile(DetectEmulator, x, InputBox("Write the name for the new Mac", "Creating new Mac from a file"))
Cursor = Cursors.Default
End If
End Sub
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHelpCrash.Click
Dim x() As String = Split("crashing,instruction", ",")
MsgBox(x(3))
End Sub
Private Sub VMList_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles VMList.DragEnter
e.Effect = e.AllowedEffect And DragDropEffects.Copy
End Sub
Public Function DetectEmulator() As String
Dim Emulator As String = "Unknown"
Dim EmulatorDialog As New Form
Dim OKButton As New Button
Dim CancelButton As New Button
Dim EmulatorTypes As New ComboBox
EmulatorTypes.Items.Add("Basilisk II preferences file")
EmulatorTypes.Items.Add("SheepShaver preferences file")
EmulatorTypes.Items.Add("PearPC config file")
EmulatorTypes.Items.Add("QEMU Batch")
EmulatorTypes.SelectedIndex = 0
EmulatorTypes.DropDownStyle = ComboBoxStyle.DropDownList
EmulatorDialog.Width = 400
EmulatorDialog.Height = 160
EmulatorDialog.FormBorderStyle = Forms.FormBorderStyle.FixedDialog
EmulatorDialog.Controls.Add(OKButton)
EmulatorDialog.Controls.Add(CancelButton)
EmulatorDialog.Controls.Add(EmulatorTypes)
EmulatorTypes.Left = (EmulatorDialog.Width / 2) - (EmulatorTypes.Width / 2)
EmulatorTypes.Top = 40
OKButton.Top = EmulatorDialog.Height - OKButton.Height - 30
OKButton.Left = EmulatorDialog.Width - OKButton.Width - CancelButton.Width - 20
CancelButton.Top = EmulatorDialog.Height - CancelButton.Height - 30
CancelButton.Left = EmulatorDialog.Width - CancelButton.Width - 20
EmulatorDialog.ShowDialog()
Select Case EmulatorTypes.SelectedIndex
Case 0
Emulator = "vMac"
Case 1
Emulator = "BII"
Case 2
Emulator = "ShhepShaver"
Case 3
Emulator = "PearPC"
Case 4
Emulator = "QEMU"
End Select
Return Emulator
End Function
Public Sub OpenSettings()
Select Case VMList.FocusedItem.SubItems(2).Text
Case "vMac"
frmSettingsvMacVM.Text = Replace(frmSettingsvMacVM.Text, "%s", VMList.FocusedItem.Text)
frmSettingsvMacVM.Settings(VMList.FocusedItem.SubItems(1).Text)
frmSettingsvMacVM.Show()
Case "BII"
frmSettingsBasiliskVM.Text = Replace(frmSettingsBasiliskVM.Text, "%s", VMList.FocusedItem.Text)
frmSettingsBasiliskVM.File(VMList.FocusedItem.SubItems(1).Text, VMList.FocusedItem.Text)
frmSettingsBasiliskVM.Show()
Case "SheepShaver"
frmSettingsSheepVM.Text = Replace(frmSettingsSheepVM.Text, "%s", VMList.FocusedItem.Text)
'frmSettingsSheepVM.Settings(VMList.FocusedItem.SubItems(1).Text)
frmSettingsSheepVM.Show()
Case "QEMU"
frmSettingsQemuVM.Text = Replace(frmSettingsSheepVM.Text, "%s", VMList.FocusedItem.Text)
'frmSettingsQemuVM.Settings(VMList.FocusedItem.SubItems(1).Text)
frmSettingsQemuVM.Show()
Case "PPC"
'frmSettingsPearVM.Text = Replace(frmSettingsSheepVM.Text, "%s", VMList.FocusedItem.Text)
'frmSettingsPearVM.Settings(VMList.FocusedItem.SubItems(1).Text)
'frmSettingsPearVM.Show()
MsgBox("Not supported (yet)")
End Select
End Sub
Private Sub mnuActionSettings_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuActionSettings.Click
OpenSettings()
End Sub
Private Sub mnuHelpContents_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHelpContents.Click
frmHelp.Show()
End Sub
Private Sub mnuHelpOnline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHelpOnline.Click
Process.Start("https://edsonarmando.000webhostapp.com/personal/virtualmac/")
End Sub
End Class

298
frmNewDisk.Designer.vb generated Normal file
View File

@ -0,0 +1,298 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmNewDisk
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNewDisk))
Me.Welcome = New System.Windows.Forms.Panel
Me.WelcomeDescription = New System.Windows.Forms.Label
Me.WelcomeTitle = New System.Windows.Forms.Label
Me.FormButtons = New System.Windows.Forms.GroupBox
Me.cmdCancel = New System.Windows.Forms.Button
Me.cmdNext = New System.Windows.Forms.Button
Me.cmdBack = New System.Windows.Forms.Button
Me.Wizard = New System.Windows.Forms.Panel
Me.CreateNew = New System.Windows.Forms.Panel
Me.SaveMac = New System.Windows.Forms.Button
Me.MacName = New System.Windows.Forms.TextBox
Me.CreateNewDescription = New System.Windows.Forms.Label
Me.DescriptionContainer = New System.Windows.Forms.GroupBox
Me.Description = New System.Windows.Forms.Label
Me.DescriptionName = New System.Windows.Forms.Label
Me.DiskMBLabel = New System.Windows.Forms.Label
Me.DiskSize = New System.Windows.Forms.NumericUpDown
Me.DiskSizeLabel = New System.Windows.Forms.Label
Me.Save = New System.Windows.Forms.SaveFileDialog
Me.DiskSizeDefaults = New System.Windows.Forms.ComboBox
Me.Welcome.SuspendLayout()
Me.FormButtons.SuspendLayout()
Me.Wizard.SuspendLayout()
Me.CreateNew.SuspendLayout()
Me.DescriptionContainer.SuspendLayout()
CType(Me.DiskSize, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Welcome
'
Me.Welcome.BackColor = System.Drawing.Color.White
Me.Welcome.BackgroundImage = Global.VirtualMac.My.Resources.Resources.NewDisk
Me.Welcome.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Welcome.Controls.Add(Me.WelcomeDescription)
Me.Welcome.Controls.Add(Me.WelcomeTitle)
Me.Welcome.Location = New System.Drawing.Point(0, 0)
Me.Welcome.Margin = New System.Windows.Forms.Padding(0)
Me.Welcome.Name = "Welcome"
Me.Welcome.Size = New System.Drawing.Size(497, 313)
Me.Welcome.TabIndex = 3
'
'WelcomeDescription
'
Me.WelcomeDescription.Location = New System.Drawing.Point(170, 60)
Me.WelcomeDescription.Name = "WelcomeDescription"
Me.WelcomeDescription.Size = New System.Drawing.Size(300, 105)
Me.WelcomeDescription.TabIndex = 1
Me.WelcomeDescription.Text = resources.GetString("WelcomeDescription.Text")
'
'WelcomeTitle
'
Me.WelcomeTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.WelcomeTitle.Location = New System.Drawing.Point(170, 15)
Me.WelcomeTitle.Name = "WelcomeTitle"
Me.WelcomeTitle.Size = New System.Drawing.Size(300, 25)
Me.WelcomeTitle.TabIndex = 0
Me.WelcomeTitle.Text = "Welcome to the New Disk Wizard"
'
'FormButtons
'
Me.FormButtons.Controls.Add(Me.cmdCancel)
Me.FormButtons.Controls.Add(Me.cmdNext)
Me.FormButtons.Controls.Add(Me.cmdBack)
Me.FormButtons.Location = New System.Drawing.Point(0, 308)
Me.FormButtons.Margin = New System.Windows.Forms.Padding(0)
Me.FormButtons.Name = "FormButtons"
Me.FormButtons.Size = New System.Drawing.Size(499, 54)
Me.FormButtons.TabIndex = 2
Me.FormButtons.TabStop = False
'
'cmdCancel
'
Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.cmdCancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdCancel.Location = New System.Drawing.Point(412, 13)
Me.cmdCancel.Name = "cmdCancel"
Me.cmdCancel.Size = New System.Drawing.Size(75, 23)
Me.cmdCancel.TabIndex = 2
Me.cmdCancel.Text = "Cancel"
Me.cmdCancel.UseVisualStyleBackColor = True
'
'cmdNext
'
Me.cmdNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdNext.Location = New System.Drawing.Point(327, 13)
Me.cmdNext.Name = "cmdNext"
Me.cmdNext.Size = New System.Drawing.Size(75, 23)
Me.cmdNext.TabIndex = 1
Me.cmdNext.Text = "&Next >"
Me.cmdNext.UseVisualStyleBackColor = True
'
'cmdBack
'
Me.cmdBack.Enabled = False
Me.cmdBack.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdBack.Location = New System.Drawing.Point(252, 13)
Me.cmdBack.Name = "cmdBack"
Me.cmdBack.Size = New System.Drawing.Size(75, 23)
Me.cmdBack.TabIndex = 0
Me.cmdBack.Text = "< &Back"
Me.cmdBack.UseVisualStyleBackColor = True
'
'Wizard
'
Me.Wizard.BackColor = System.Drawing.SystemColors.Control
Me.Wizard.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Wizard.Controls.Add(Me.CreateNew)
Me.Wizard.Controls.Add(Me.DescriptionContainer)
Me.Wizard.Location = New System.Drawing.Point(0, 0)
Me.Wizard.Margin = New System.Windows.Forms.Padding(0)
Me.Wizard.Name = "Wizard"
Me.Wizard.Size = New System.Drawing.Size(497, 313)
Me.Wizard.TabIndex = 4
'
'CreateNew
'
Me.CreateNew.Controls.Add(Me.DiskSizeDefaults)
Me.CreateNew.Controls.Add(Me.DiskMBLabel)
Me.CreateNew.Controls.Add(Me.DiskSize)
Me.CreateNew.Controls.Add(Me.DiskSizeLabel)
Me.CreateNew.Controls.Add(Me.SaveMac)
Me.CreateNew.Controls.Add(Me.MacName)
Me.CreateNew.Controls.Add(Me.CreateNewDescription)
Me.CreateNew.Location = New System.Drawing.Point(0, 59)
Me.CreateNew.Name = "CreateNew"
Me.CreateNew.Size = New System.Drawing.Size(498, 245)
Me.CreateNew.TabIndex = 2
'
'SaveMac
'
Me.SaveMac.Location = New System.Drawing.Point(395, 68)
Me.SaveMac.Name = "SaveMac"
Me.SaveMac.Size = New System.Drawing.Size(75, 23)
Me.SaveMac.TabIndex = 2
Me.SaveMac.Text = "Browse..."
Me.SaveMac.UseVisualStyleBackColor = True
'
'MacName
'
Me.MacName.Location = New System.Drawing.Point(25, 68)
Me.MacName.Name = "MacName"
Me.MacName.Size = New System.Drawing.Size(364, 20)
Me.MacName.TabIndex = 1
'
'CreateNewDescription
'
Me.CreateNewDescription.Location = New System.Drawing.Point(22, 24)
Me.CreateNewDescription.Name = "CreateNewDescription"
Me.CreateNewDescription.Size = New System.Drawing.Size(450, 30)
Me.CreateNewDescription.TabIndex = 0
Me.CreateNewDescription.Text = "Click on Browse to set the path to your hard disk image. You can set the drop dow" & _
"n list to the emulator you are creating the disk for and get suggestions of reco" & _
"mmended sizes."
'
'DescriptionContainer
'
Me.DescriptionContainer.BackColor = System.Drawing.Color.White
Me.DescriptionContainer.Controls.Add(Me.Description)
Me.DescriptionContainer.Controls.Add(Me.DescriptionName)
Me.DescriptionContainer.Location = New System.Drawing.Point(-1, -8)
Me.DescriptionContainer.Name = "DescriptionContainer"
Me.DescriptionContainer.Size = New System.Drawing.Size(499, 67)
Me.DescriptionContainer.TabIndex = 0
Me.DescriptionContainer.TabStop = False
'
'Description
'
Me.Description.Location = New System.Drawing.Point(48, 34)
Me.Description.Name = "Description"
Me.Description.Size = New System.Drawing.Size(423, 30)
Me.Description.TabIndex = 1
Me.Description.Text = "Set the size and location for your new hard disk image."
'
'DescriptionName
'
Me.DescriptionName.AutoSize = True
Me.DescriptionName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DescriptionName.Location = New System.Drawing.Point(23, 20)
Me.DescriptionName.Name = "DescriptionName"
Me.DescriptionName.Size = New System.Drawing.Size(134, 13)
Me.DescriptionName.TabIndex = 0
Me.DescriptionName.Text = "Route and size of disk"
'
'DiskMBLabel
'
Me.DiskMBLabel.AutoSize = True
Me.DiskMBLabel.Location = New System.Drawing.Point(395, 96)
Me.DiskMBLabel.Name = "DiskMBLabel"
Me.DiskMBLabel.Size = New System.Drawing.Size(23, 13)
Me.DiskMBLabel.TabIndex = 22
Me.DiskMBLabel.Text = "MB"
'
'DiskSize
'
Me.DiskSize.Location = New System.Drawing.Point(305, 94)
Me.DiskSize.Maximum = New Decimal(New Integer() {130000, 0, 0, 0})
Me.DiskSize.Name = "DiskSize"
Me.DiskSize.Size = New System.Drawing.Size(84, 20)
Me.DiskSize.TabIndex = 21
'
'DiskSizeLabel
'
Me.DiskSizeLabel.AutoSize = True
Me.DiskSizeLabel.Location = New System.Drawing.Point(217, 96)
Me.DiskSizeLabel.Name = "DiskSizeLabel"
Me.DiskSizeLabel.Size = New System.Drawing.Size(82, 13)
Me.DiskSizeLabel.TabIndex = 20
Me.DiskSizeLabel.Text = "Size of the disk:"
'
'Save
'
Me.Save.Filter = "Disk file|*.dsk|Hard disk Image|*.img|RAW hard disk data|*.raw"
Me.Save.FilterIndex = 2
Me.Save.RestoreDirectory = True
Me.Save.SupportMultiDottedExtensions = True
'
'DiskSizeDefaults
'
Me.DiskSizeDefaults.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.DiskSizeDefaults.FormattingEnabled = True
Me.DiskSizeDefaults.Items.AddRange(New Object() {"User defined", "Mini vMac", "Basilisk II - 40 MB", "Basilisk II - 100 MB", "Basilisk II - 200 MB", "Basilisk II - 500 MB", "Basilisk II - 1 GB", "SheepShaver - 500 MB", "SheepShaver - 1 GB", "SheepShaver - 2 GB", "PearPC - 3 GB", "PearPC - 6 GB", "QEMU - 500 MB", "QEMU - 1 GB", "QEMU - 2 GB", "QEMU - 4 GB", "QEMU - 6 GB", "QEMU - 10 GB"})
Me.DiskSizeDefaults.Location = New System.Drawing.Point(25, 93)
Me.DiskSizeDefaults.Name = "DiskSizeDefaults"
Me.DiskSizeDefaults.Size = New System.Drawing.Size(186, 21)
Me.DiskSizeDefaults.TabIndex = 23
'
'frmNewDisk
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(499, 362)
Me.ControlBox = False
Me.Controls.Add(Me.Wizard)
Me.Controls.Add(Me.Welcome)
Me.Controls.Add(Me.FormButtons)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmNewDisk"
Me.Text = "New Disk Wizard"
Me.Welcome.ResumeLayout(False)
Me.FormButtons.ResumeLayout(False)
Me.Wizard.ResumeLayout(False)
Me.CreateNew.ResumeLayout(False)
Me.CreateNew.PerformLayout()
Me.DescriptionContainer.ResumeLayout(False)
Me.DescriptionContainer.PerformLayout()
CType(Me.DiskSize, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Welcome As System.Windows.Forms.Panel
Friend WithEvents WelcomeDescription As System.Windows.Forms.Label
Friend WithEvents WelcomeTitle As System.Windows.Forms.Label
Friend WithEvents FormButtons As System.Windows.Forms.GroupBox
Friend WithEvents cmdCancel As System.Windows.Forms.Button
Friend WithEvents cmdNext As System.Windows.Forms.Button
Friend WithEvents cmdBack As System.Windows.Forms.Button
Friend WithEvents Wizard As System.Windows.Forms.Panel
Friend WithEvents CreateNew As System.Windows.Forms.Panel
Friend WithEvents SaveMac As System.Windows.Forms.Button
Friend WithEvents MacName As System.Windows.Forms.TextBox
Friend WithEvents CreateNewDescription As System.Windows.Forms.Label
Friend WithEvents DescriptionContainer As System.Windows.Forms.GroupBox
Friend WithEvents Description As System.Windows.Forms.Label
Friend WithEvents DescriptionName As System.Windows.Forms.Label
Friend WithEvents DiskMBLabel As System.Windows.Forms.Label
Friend WithEvents DiskSize As System.Windows.Forms.NumericUpDown
Friend WithEvents DiskSizeLabel As System.Windows.Forms.Label
Friend WithEvents Save As System.Windows.Forms.SaveFileDialog
Friend WithEvents DiskSizeDefaults As System.Windows.Forms.ComboBox
End Class

244
frmNewDisk.resx Normal file
View File

@ -0,0 +1,244 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="WelcomeDescription.Text" xml:space="preserve">
<value>This wizard helps you to create an empty RAW hard disk image, of the size and in the location of your desire, so you can use it with the emulator of your choice.
The file created may have a &lt;.dsk&gt;, &lt;.img&gt; or &lt;.raw&gt; extension
To continue, click Next.</value>
</data>
<metadata name="Save.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>12, 1</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>38</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAABAAoAQAANgAAACAgAAAAAAgAqAgAAF4BAAAwMAAAAAAIAKgOAAAGCgAAKAAAABAA
AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAQAAAAEAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAd3d3AAAAAAAHd3AAAAAAAAd3cA
AAB3d3d4d3d3d3d3d3d3d3d3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPgfAAD8PwAA/D8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAIAAAAEAA
AAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDA
wADA3MAA8MqmAAQEBAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8
/wBQUP8AkwDWAP/szADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAz
zAAAM/8AAGYAAABmMwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADM
MwAAzGYAAMyZAADMzAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMz
MwAzM2YAMzOZADMzzAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZ
zAAzmf8AM8wAADPMMwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYA
ZgBmAJkAZgDMAGYA/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZ
AABmmTMAZplmAGaZmQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA
/wD/AMwAmZkAAJkzmQCZAJkAmQDMAJkAAACZMzMAmQBmAJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlm
zACZM/8AmZkzAJmZZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnM
ZgCZ/5kAmf/MAJn//wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxm
AADMZjMAmWZmAMxmmQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzM
mQDMzMwAzMz/AMz/AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8z
mQD/M8wA/zP/AP9mAAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/M
AAD/zDMA/8xmAP/MmQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//
ZgAhAKUAX19fAHd3dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgA8Pv/AKSg
oACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAoKCgoKCgoKCgoKBwcHBwcHBwcHBwoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcH
BwcKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgcHBwcHBwcHBwcHBwcH
B+zsBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKChEREREREREREREREREREREREREREREREREREREKCgoK
EREREREREREREREREREREREREREREREREREREQoKCgoRERERERERERERERERERERERERERERERERERER
CgoKChEREREREREREREREREREREREREREREREREREREKCgoKERERERERERERERERERERERERERERERER
EREREQoKCgoRERERERERERERERERERERERERERERERERERERCgoKChERERERERERERERERERERERERER
EREREREREREKCgoKEREREREREREREREREREREREREREREREREREREQoKCgoRERERERERERERERERERER
ERERERERERERERERCgoKChEREREREREREREREREREREREREREREREREREREKCgoKERERERERERERERER
EREREREREREREREREREREQoKCgoRERERERERERERERERERERERERERERERERERERCgoKChERERERERER
EREREREREREREREREREREREREREKCgoKEREREREREREREREREREREREREREREREREREREQoKCgoRERER
ERERERERERERERERERERERERERERERERCgoKChEREREREREREREREREREREREREREREREREREREKCgoK
EREREREREREREREREREREREREREREREREREREQoKCgoRERERERERERERERERERERERERERERERERERER
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgr/4Af///AP///wD///8A////AP/4AA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAB/////ygAAAAwAAAAYAAAAAEA
CAAAAAAAAAkAAAAAAAAAAAAAAAEAAAABAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDc
wADwyqYABAQEAAgICAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ
/wCTANYA/+zMAMbW7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz
/wAAZgAAAGYzAABmZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADM
ZgAAzJkAAMzMAADM/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMz
ZgAzM5kAMzPMADMz/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ
/wAzzAAAM8wzADPMZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYA
mQBmAMwAZgD/AGYzAABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZ
MwBmmWYAZpmZAGaZzABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8A
zACZmQAAmTOZAJkAmQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz
/wCZmTMAmZlmAJmZmQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/
mQCZ/8wAmf//AMwAAACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxm
MwCZZmYAzGaZAMxmzACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzM
zADMzP8AzP8AAMz/MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8z
zAD/M/8A/2YAAP9mMwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/M
MwD/zGYA/8yZAP/MzAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEA
pQBfX18Ad3d3AIaGhgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICA
gAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8ACgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHBwcHBwcH
BwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
BwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcH
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcH
BwcHBwcHBwcHBwcHBwcHBwfs7AcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgcHBwcHBwcHBwcHBwcHBwcH
BwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcKBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK//8AAP//
AAD//4AB//8AAP//wAP//wAA///AA///AAD//8AD//8AAP//wAP//wAA///AA///AAD//8AD//8AAMAA
AAAAAwAAgAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAB
AADAAAAAAAMAAP///////wAA
</value>
</data>
</root>

3
frmNewDisk.vb Normal file
View File

@ -0,0 +1,3 @@
Public Class frmNewDisk
End Class

986
frmNewMac.Designer.vb generated Normal file
View File

@ -0,0 +1,986 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmNewMac
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNewMac))
Me.FormButtons = New System.Windows.Forms.GroupBox
Me.cmdCancel = New System.Windows.Forms.Button
Me.cmdNext = New System.Windows.Forms.Button
Me.cmdBack = New System.Windows.Forms.Button
Me.Wizard = New System.Windows.Forms.Panel
Me.AddExisting = New System.Windows.Forms.Panel
Me.AEName = New System.Windows.Forms.TextBox
Me.AENameLabel = New System.Windows.Forms.Label
Me.AEFileLabel = New System.Windows.Forms.Label
Me.AEEmulatorTypeLabel = New System.Windows.Forms.Label
Me.AEEmulatorType = New System.Windows.Forms.ComboBox
Me.AEInfo = New System.Windows.Forms.Label
Me.AEBrowseFile = New System.Windows.Forms.Button
Me.AEFile = New System.Windows.Forms.TextBox
Me.SelectType = New System.Windows.Forms.Panel
Me.DontUseWizardDescription = New System.Windows.Forms.Label
Me.DontUseWizard = New System.Windows.Forms.RadioButton
Me.AddFromFileDescription = New System.Windows.Forms.Label
Me.UseWizardDescription = New System.Windows.Forms.Label
Me.AddFromFile = New System.Windows.Forms.RadioButton
Me.UseWizard = New System.Windows.Forms.RadioButton
Me.SelectTypeDescription = New System.Windows.Forms.Label
Me.SelectDisk = New System.Windows.Forms.Panel
Me.NoDisk = New System.Windows.Forms.RadioButton
Me.BrowseDiskLocation = New System.Windows.Forms.Button
Me.DiskPath = New System.Windows.Forms.TextBox
Me.SelectDiskDescription = New System.Windows.Forms.Label
Me.ExistingDisk = New System.Windows.Forms.RadioButton
Me.NewDisk = New System.Windows.Forms.RadioButton
Me.DiskTools = New System.Windows.Forms.Panel
Me.DiskSizeLabel = New System.Windows.Forms.Label
Me.DiskSize = New System.Windows.Forms.NumericUpDown
Me.DiskMBLabel = New System.Windows.Forms.Label
Me.HwPresets = New System.Windows.Forms.Panel
Me.RecHwLabel = New System.Windows.Forms.Label
Me.OSListDescription = New System.Windows.Forms.Label
Me.HwPresetsDescription = New System.Windows.Forms.Label
Me.DefMem = New System.Windows.Forms.Label
Me.DefDisk = New System.Windows.Forms.Label
Me.DefCPU = New System.Windows.Forms.Label
Me.DefCPULabel = New System.Windows.Forms.Label
Me.DefDiskLabel = New System.Windows.Forms.Label
Me.DefMemLabel = New System.Windows.Forms.Label
Me.OSList = New System.Windows.Forms.ComboBox
Me.CreateNew = New System.Windows.Forms.Panel
Me.SaveMac = New System.Windows.Forms.Button
Me.MacName = New System.Windows.Forms.TextBox
Me.CreateNewDescription = New System.Windows.Forms.Label
Me.AssignRAM = New System.Windows.Forms.Panel
Me.RecommendedRAM = New System.Windows.Forms.Label
Me.AssignRAMDescription = New System.Windows.Forms.Label
Me.CustomRAM = New System.Windows.Forms.RadioButton
Me.DefaultRAM = New System.Windows.Forms.RadioButton
Me.CustomRAMContainer = New System.Windows.Forms.Panel
Me.WarningInvalidSize = New System.Windows.Forms.Label
Me.RAMSlider = New System.Windows.Forms.TrackBar
Me.RamMBLabel = New System.Windows.Forms.Label
Me.RAM = New System.Windows.Forms.TextBox
Me.DescriptionContainer = New System.Windows.Forms.GroupBox
Me.Description = New System.Windows.Forms.Label
Me.DescriptionName = New System.Windows.Forms.Label
Me.Open = New System.Windows.Forms.OpenFileDialog
Me.Save = New System.Windows.Forms.SaveFileDialog
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.Welcome = New System.Windows.Forms.Panel
Me.WelcomeDescription = New System.Windows.Forms.Label
Me.WelcomeTitle = New System.Windows.Forms.Label
Me.EndWizard = New System.Windows.Forms.Panel
Me.MachineDisk = New System.Windows.Forms.Label
Me.MachineMemory = New System.Windows.Forms.Label
Me.MachineName = New System.Windows.Forms.Label
Me.FinishDescription = New System.Windows.Forms.Label
Me.DiskLabel = New System.Windows.Forms.Label
Me.MemoryLabel = New System.Windows.Forms.Label
Me.NameLabel = New System.Windows.Forms.Label
Me.EndDescription = New System.Windows.Forms.Label
Me.EndTitle = New System.Windows.Forms.Label
Me.FormButtons.SuspendLayout()
Me.Wizard.SuspendLayout()
Me.AddExisting.SuspendLayout()
Me.SelectType.SuspendLayout()
Me.SelectDisk.SuspendLayout()
Me.DiskTools.SuspendLayout()
CType(Me.DiskSize, System.ComponentModel.ISupportInitialize).BeginInit()
Me.HwPresets.SuspendLayout()
Me.CreateNew.SuspendLayout()
Me.AssignRAM.SuspendLayout()
Me.CustomRAMContainer.SuspendLayout()
CType(Me.RAMSlider, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DescriptionContainer.SuspendLayout()
Me.Welcome.SuspendLayout()
Me.EndWizard.SuspendLayout()
Me.SuspendLayout()
'
'FormButtons
'
Me.FormButtons.Controls.Add(Me.cmdCancel)
Me.FormButtons.Controls.Add(Me.cmdNext)
Me.FormButtons.Controls.Add(Me.cmdBack)
Me.FormButtons.Location = New System.Drawing.Point(-1, 307)
Me.FormButtons.Margin = New System.Windows.Forms.Padding(0)
Me.FormButtons.Name = "FormButtons"
Me.FormButtons.Size = New System.Drawing.Size(499, 54)
Me.FormButtons.TabIndex = 0
Me.FormButtons.TabStop = False
'
'cmdCancel
'
Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.cmdCancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdCancel.Location = New System.Drawing.Point(412, 13)
Me.cmdCancel.Name = "cmdCancel"
Me.cmdCancel.Size = New System.Drawing.Size(75, 23)
Me.cmdCancel.TabIndex = 2
Me.cmdCancel.Text = "Cancel"
Me.cmdCancel.UseVisualStyleBackColor = True
'
'cmdNext
'
Me.cmdNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdNext.Location = New System.Drawing.Point(327, 13)
Me.cmdNext.Name = "cmdNext"
Me.cmdNext.Size = New System.Drawing.Size(75, 23)
Me.cmdNext.TabIndex = 1
Me.cmdNext.Text = "&Next >"
Me.cmdNext.UseVisualStyleBackColor = True
'
'cmdBack
'
Me.cmdBack.Enabled = False
Me.cmdBack.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdBack.Location = New System.Drawing.Point(252, 13)
Me.cmdBack.Name = "cmdBack"
Me.cmdBack.Size = New System.Drawing.Size(75, 23)
Me.cmdBack.TabIndex = 0
Me.cmdBack.Text = "< &Back"
Me.cmdBack.UseVisualStyleBackColor = True
'
'Wizard
'
Me.Wizard.BackColor = System.Drawing.SystemColors.Control
Me.Wizard.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Wizard.Controls.Add(Me.AddExisting)
Me.Wizard.Controls.Add(Me.SelectType)
Me.Wizard.Controls.Add(Me.SelectDisk)
Me.Wizard.Controls.Add(Me.HwPresets)
Me.Wizard.Controls.Add(Me.CreateNew)
Me.Wizard.Controls.Add(Me.AssignRAM)
Me.Wizard.Controls.Add(Me.DescriptionContainer)
Me.Wizard.Location = New System.Drawing.Point(0, 0)
Me.Wizard.Margin = New System.Windows.Forms.Padding(0)
Me.Wizard.Name = "Wizard"
Me.Wizard.Size = New System.Drawing.Size(497, 313)
Me.Wizard.TabIndex = 2
'
'AddExisting
'
Me.AddExisting.Controls.Add(Me.AEName)
Me.AddExisting.Controls.Add(Me.AENameLabel)
Me.AddExisting.Controls.Add(Me.AEFileLabel)
Me.AddExisting.Controls.Add(Me.AEEmulatorTypeLabel)
Me.AddExisting.Controls.Add(Me.AEEmulatorType)
Me.AddExisting.Controls.Add(Me.AEInfo)
Me.AddExisting.Controls.Add(Me.AEBrowseFile)
Me.AddExisting.Controls.Add(Me.AEFile)
Me.AddExisting.Location = New System.Drawing.Point(0, 59)
Me.AddExisting.Name = "AddExisting"
Me.AddExisting.Size = New System.Drawing.Size(498, 245)
Me.AddExisting.TabIndex = 3
'
'AEName
'
Me.AEName.Location = New System.Drawing.Point(30, 70)
Me.AEName.Name = "AEName"
Me.AEName.Size = New System.Drawing.Size(285, 21)
Me.AEName.TabIndex = 4
'
'AENameLabel
'
Me.AENameLabel.AutoSize = True
Me.AENameLabel.Location = New System.Drawing.Point(27, 48)
Me.AENameLabel.Name = "AENameLabel"
Me.AENameLabel.Size = New System.Drawing.Size(38, 13)
Me.AENameLabel.TabIndex = 6
Me.AENameLabel.Text = "Name:"
'
'AEFileLabel
'
Me.AEFileLabel.AutoSize = True
Me.AEFileLabel.Location = New System.Drawing.Point(30, 103)
Me.AEFileLabel.Name = "AEFileLabel"
Me.AEFileLabel.Size = New System.Drawing.Size(27, 13)
Me.AEFileLabel.TabIndex = 5
Me.AEFileLabel.Text = "File:"
'
'AEEmulatorTypeLabel
'
Me.AEEmulatorTypeLabel.AutoSize = True
Me.AEEmulatorTypeLabel.Location = New System.Drawing.Point(323, 48)
Me.AEEmulatorTypeLabel.Name = "AEEmulatorTypeLabel"
Me.AEEmulatorTypeLabel.Size = New System.Drawing.Size(53, 13)
Me.AEEmulatorTypeLabel.TabIndex = 4
Me.AEEmulatorTypeLabel.Text = "Emulator:"
'
'AEEmulatorType
'
Me.AEEmulatorType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.AEEmulatorType.FormattingEnabled = True
Me.AEEmulatorType.Items.AddRange(New Object() {"Mini vMac Batch", "Virtual Mac MvM File", "Basilisk", "SheepShaver", "PearPC", "QEMU Windows Batch"})
Me.AEEmulatorType.Location = New System.Drawing.Point(326, 70)
Me.AEEmulatorType.Name = "AEEmulatorType"
Me.AEEmulatorType.Size = New System.Drawing.Size(159, 21)
Me.AEEmulatorType.TabIndex = 3
'
'AEInfo
'
Me.AEInfo.AutoSize = True
Me.AEInfo.Location = New System.Drawing.Point(30, 20)
Me.AEInfo.Name = "AEInfo"
Me.AEInfo.Size = New System.Drawing.Size(234, 13)
Me.AEInfo.TabIndex = 2
Me.AEInfo.Text = "Select the file to add to the Virtual Mac Console"
'
'AEBrowseFile
'
Me.AEBrowseFile.Location = New System.Drawing.Point(410, 125)
Me.AEBrowseFile.Name = "AEBrowseFile"
Me.AEBrowseFile.Size = New System.Drawing.Size(75, 23)
Me.AEBrowseFile.TabIndex = 6
Me.AEBrowseFile.Text = "Browse"
Me.AEBrowseFile.UseVisualStyleBackColor = True
'
'AEFile
'
Me.AEFile.Location = New System.Drawing.Point(30, 125)
Me.AEFile.Name = "AEFile"
Me.AEFile.Size = New System.Drawing.Size(371, 21)
Me.AEFile.TabIndex = 5
'
'SelectType
'
Me.SelectType.Controls.Add(Me.DontUseWizardDescription)
Me.SelectType.Controls.Add(Me.DontUseWizard)
Me.SelectType.Controls.Add(Me.AddFromFileDescription)
Me.SelectType.Controls.Add(Me.UseWizardDescription)
Me.SelectType.Controls.Add(Me.AddFromFile)
Me.SelectType.Controls.Add(Me.UseWizard)
Me.SelectType.Controls.Add(Me.SelectTypeDescription)
Me.SelectType.Location = New System.Drawing.Point(0, 59)
Me.SelectType.Name = "SelectType"
Me.SelectType.Size = New System.Drawing.Size(498, 245)
Me.SelectType.TabIndex = 1
'
'DontUseWizardDescription
'
Me.DontUseWizardDescription.Location = New System.Drawing.Point(54, 60)
Me.DontUseWizardDescription.Name = "DontUseWizardDescription"
Me.DontUseWizardDescription.Size = New System.Drawing.Size(412, 33)
Me.DontUseWizardDescription.TabIndex = 3
Me.DontUseWizardDescription.Text = "Recommended for more users. Creates a Macintosh in base to the system you want to" & _
" install on it."
'
'DontUseWizard
'
Me.DontUseWizard.AutoSize = True
Me.DontUseWizard.Checked = True
Me.DontUseWizard.Location = New System.Drawing.Point(57, 40)
Me.DontUseWizard.Name = "DontUseWizard"
Me.DontUseWizard.Size = New System.Drawing.Size(118, 17)
Me.DontUseWizard.TabIndex = 0
Me.DontUseWizard.TabStop = True
Me.DontUseWizard.Text = "&Create a Macintosh"
Me.DontUseWizard.UseVisualStyleBackColor = True
'
'AddFromFileDescription
'
Me.AddFromFileDescription.Location = New System.Drawing.Point(54, 175)
Me.AddFromFileDescription.Name = "AddFromFileDescription"
Me.AddFromFileDescription.Size = New System.Drawing.Size(412, 33)
Me.AddFromFileDescription.TabIndex = 5
Me.AddFromFileDescription.Text = "For Basilisk, SheepShaver and PearPC users. Creates a Macintosh from a file in yo" & _
"ur physical machine."
'
'UseWizardDescription
'
Me.UseWizardDescription.Location = New System.Drawing.Point(54, 116)
Me.UseWizardDescription.Name = "UseWizardDescription"
Me.UseWizardDescription.Size = New System.Drawing.Size(412, 33)
Me.UseWizardDescription.TabIndex = 4
Me.UseWizardDescription.Text = "Recommended for advanced users. Creates a Macintosh guiding you to increase or de" & _
"crease the resources you assign to this Macintosh."
'
'AddFromFile
'
Me.AddFromFile.AutoSize = True
Me.AddFromFile.Location = New System.Drawing.Point(57, 155)
Me.AddFromFile.Name = "AddFromFile"
Me.AddFromFile.Size = New System.Drawing.Size(100, 17)
Me.AddFromFile.TabIndex = 2
Me.AddFromFile.Text = "Create from file"
Me.AddFromFile.UseVisualStyleBackColor = True
'
'UseWizard
'
Me.UseWizard.AutoSize = True
Me.UseWizard.Location = New System.Drawing.Point(57, 96)
Me.UseWizard.Name = "UseWizard"
Me.UseWizard.Size = New System.Drawing.Size(105, 17)
Me.UseWizard.TabIndex = 1
Me.UseWizard.Text = "Customise a Mac"
Me.UseWizard.UseVisualStyleBackColor = True
'
'SelectTypeDescription
'
Me.SelectTypeDescription.AutoSize = True
Me.SelectTypeDescription.Location = New System.Drawing.Point(47, 24)
Me.SelectTypeDescription.Name = "SelectTypeDescription"
Me.SelectTypeDescription.Size = New System.Drawing.Size(88, 13)
Me.SelectTypeDescription.TabIndex = 0
Me.SelectTypeDescription.Text = "Select an option:"
'
'SelectDisk
'
Me.SelectDisk.Controls.Add(Me.NoDisk)
Me.SelectDisk.Controls.Add(Me.BrowseDiskLocation)
Me.SelectDisk.Controls.Add(Me.DiskPath)
Me.SelectDisk.Controls.Add(Me.SelectDiskDescription)
Me.SelectDisk.Controls.Add(Me.ExistingDisk)
Me.SelectDisk.Controls.Add(Me.NewDisk)
Me.SelectDisk.Controls.Add(Me.DiskTools)
Me.SelectDisk.Location = New System.Drawing.Point(0, 59)
Me.SelectDisk.Name = "SelectDisk"
Me.SelectDisk.Size = New System.Drawing.Size(498, 245)
Me.SelectDisk.TabIndex = 7
'
'NoDisk
'
Me.NoDisk.AutoSize = True
Me.NoDisk.Location = New System.Drawing.Point(25, 123)
Me.NoDisk.Name = "NoDisk"
Me.NoDisk.Size = New System.Drawing.Size(107, 17)
Me.NoDisk.TabIndex = 16
Me.NoDisk.Text = "Do not use a disk"
Me.NoDisk.UseVisualStyleBackColor = True
'
'BrowseDiskLocation
'
Me.BrowseDiskLocation.Location = New System.Drawing.Point(395, 55)
Me.BrowseDiskLocation.Name = "BrowseDiskLocation"
Me.BrowseDiskLocation.Size = New System.Drawing.Size(75, 21)
Me.BrowseDiskLocation.TabIndex = 21
Me.BrowseDiskLocation.Text = "Browse..."
Me.BrowseDiskLocation.UseVisualStyleBackColor = True
'
'DiskPath
'
Me.DiskPath.Location = New System.Drawing.Point(25, 55)
Me.DiskPath.Name = "DiskPath"
Me.DiskPath.Size = New System.Drawing.Size(364, 21)
Me.DiskPath.TabIndex = 20
'
'SelectDiskDescription
'
Me.SelectDiskDescription.Location = New System.Drawing.Point(22, 15)
Me.SelectDiskDescription.Name = "SelectDiskDescription"
Me.SelectDiskDescription.Size = New System.Drawing.Size(445, 30)
Me.SelectDiskDescription.TabIndex = 22
Me.SelectDiskDescription.Text = "A Macintosh needs a disk to install the operating system. You can create a new di" & _
"sk to install MacOS (Or Linux) or you can use an exisitng disk with a preinstall" & _
"ed operating system."
'
'ExistingDisk
'
Me.ExistingDisk.AutoSize = True
Me.ExistingDisk.Location = New System.Drawing.Point(25, 106)
Me.ExistingDisk.Name = "ExistingDisk"
Me.ExistingDisk.Size = New System.Drawing.Size(119, 17)
Me.ExistingDisk.TabIndex = 15
Me.ExistingDisk.Text = "Use an existing disk"
Me.ExistingDisk.UseVisualStyleBackColor = True
'
'NewDisk
'
Me.NewDisk.AutoSize = True
Me.NewDisk.Checked = True
Me.NewDisk.Location = New System.Drawing.Point(25, 90)
Me.NewDisk.Name = "NewDisk"
Me.NewDisk.Size = New System.Drawing.Size(111, 17)
Me.NewDisk.TabIndex = 14
Me.NewDisk.TabStop = True
Me.NewDisk.Text = "Create a new disk"
Me.NewDisk.UseVisualStyleBackColor = True
'
'DiskTools
'
Me.DiskTools.Controls.Add(Me.DiskSizeLabel)
Me.DiskTools.Controls.Add(Me.DiskSize)
Me.DiskTools.Controls.Add(Me.DiskMBLabel)
Me.DiskTools.Location = New System.Drawing.Point(229, 95)
Me.DiskTools.Name = "DiskTools"
Me.DiskTools.Size = New System.Drawing.Size(197, 25)
Me.DiskTools.TabIndex = 17
'
'DiskSizeLabel
'
Me.DiskSizeLabel.AutoSize = True
Me.DiskSizeLabel.Location = New System.Drawing.Point(3, 4)
Me.DiskSizeLabel.Name = "DiskSizeLabel"
Me.DiskSizeLabel.Size = New System.Drawing.Size(83, 13)
Me.DiskSizeLabel.TabIndex = 17
Me.DiskSizeLabel.Text = "Size of the disk:"
'
'DiskSize
'
Me.DiskSize.Location = New System.Drawing.Point(92, 2)
Me.DiskSize.Maximum = New Decimal(New Integer() {130000, 0, 0, 0})
Me.DiskSize.Name = "DiskSize"
Me.DiskSize.Size = New System.Drawing.Size(68, 21)
Me.DiskSize.TabIndex = 18
'
'DiskMBLabel
'
Me.DiskMBLabel.AutoSize = True
Me.DiskMBLabel.Location = New System.Drawing.Point(162, 5)
Me.DiskMBLabel.Name = "DiskMBLabel"
Me.DiskMBLabel.Size = New System.Drawing.Size(21, 13)
Me.DiskMBLabel.TabIndex = 19
Me.DiskMBLabel.Text = "MB"
'
'HwPresets
'
Me.HwPresets.Controls.Add(Me.RecHwLabel)
Me.HwPresets.Controls.Add(Me.OSListDescription)
Me.HwPresets.Controls.Add(Me.HwPresetsDescription)
Me.HwPresets.Controls.Add(Me.DefMem)
Me.HwPresets.Controls.Add(Me.DefDisk)
Me.HwPresets.Controls.Add(Me.DefCPU)
Me.HwPresets.Controls.Add(Me.DefCPULabel)
Me.HwPresets.Controls.Add(Me.DefDiskLabel)
Me.HwPresets.Controls.Add(Me.DefMemLabel)
Me.HwPresets.Controls.Add(Me.OSList)
Me.HwPresets.Location = New System.Drawing.Point(0, 59)
Me.HwPresets.Name = "HwPresets"
Me.HwPresets.Size = New System.Drawing.Size(498, 245)
Me.HwPresets.TabIndex = 4
'
'RecHwLabel
'
Me.RecHwLabel.Location = New System.Drawing.Point(236, 70)
Me.RecHwLabel.Name = "RecHwLabel"
Me.RecHwLabel.Size = New System.Drawing.Size(212, 28)
Me.RecHwLabel.TabIndex = 9
Me.RecHwLabel.Text = "Recommended hardware for this operating system:"
'
'OSListDescription
'
Me.OSListDescription.AutoSize = True
Me.OSListDescription.Location = New System.Drawing.Point(22, 80)
Me.OSListDescription.Name = "OSListDescription"
Me.OSListDescription.Size = New System.Drawing.Size(88, 13)
Me.OSListDescription.TabIndex = 8
Me.OSListDescription.Text = "Select an option:"
'
'HwPresetsDescription
'
Me.HwPresetsDescription.Location = New System.Drawing.Point(22, 15)
Me.HwPresetsDescription.Name = "HwPresetsDescription"
Me.HwPresetsDescription.Size = New System.Drawing.Size(448, 50)
Me.HwPresetsDescription.TabIndex = 7
Me.HwPresetsDescription.Text = resources.GetString("HwPresetsDescription.Text")
'
'DefMem
'
Me.DefMem.Location = New System.Drawing.Point(345, 101)
Me.DefMem.Name = "DefMem"
Me.DefMem.Size = New System.Drawing.Size(103, 13)
Me.DefMem.TabIndex = 6
Me.DefMem.Text = "256 MB"
Me.DefMem.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'DefDisk
'
Me.DefDisk.Location = New System.Drawing.Point(345, 125)
Me.DefDisk.Name = "DefDisk"
Me.DefDisk.Size = New System.Drawing.Size(103, 13)
Me.DefDisk.TabIndex = 5
Me.DefDisk.Text = "2048 MB"
Me.DefDisk.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'DefCPU
'
Me.DefCPU.Location = New System.Drawing.Point(345, 149)
Me.DefCPU.Name = "DefCPU"
Me.DefCPU.Size = New System.Drawing.Size(103, 13)
Me.DefCPU.TabIndex = 4
Me.DefCPU.Text = "Unknown"
Me.DefCPU.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'DefCPULabel
'
Me.DefCPULabel.AutoSize = True
Me.DefCPULabel.Location = New System.Drawing.Point(236, 149)
Me.DefCPULabel.Name = "DefCPULabel"
Me.DefCPULabel.Size = New System.Drawing.Size(31, 13)
Me.DefCPULabel.TabIndex = 3
Me.DefCPULabel.Text = "CPU:"
'
'DefDiskLabel
'
Me.DefDiskLabel.AutoSize = True
Me.DefDiskLabel.Location = New System.Drawing.Point(236, 125)
Me.DefDiskLabel.Name = "DefDiskLabel"
Me.DefDiskLabel.Size = New System.Drawing.Size(30, 13)
Me.DefDiskLabel.TabIndex = 2
Me.DefDiskLabel.Text = "Disk:"
'
'DefMemLabel
'
Me.DefMemLabel.AutoSize = True
Me.DefMemLabel.Location = New System.Drawing.Point(236, 101)
Me.DefMemLabel.Name = "DefMemLabel"
Me.DefMemLabel.Size = New System.Drawing.Size(49, 13)
Me.DefMemLabel.TabIndex = 1
Me.DefMemLabel.Text = "Memory:"
'
'OSList
'
Me.OSList.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.OSList.FormattingEnabled = True
Me.OSList.Items.AddRange(New Object() {"System Software 6", "System Software 7", "System Software 7 Pro", "Mac OS 8", "Mac OS 9", "Mac OS X", "Debian", "Lubuntu", "Other Linux", "Other"})
Me.OSList.Location = New System.Drawing.Point(35, 101)
Me.OSList.Name = "OSList"
Me.OSList.Size = New System.Drawing.Size(158, 21)
Me.OSList.TabIndex = 0
'
'CreateNew
'
Me.CreateNew.Controls.Add(Me.SaveMac)
Me.CreateNew.Controls.Add(Me.MacName)
Me.CreateNew.Controls.Add(Me.CreateNewDescription)
Me.CreateNew.Location = New System.Drawing.Point(0, 59)
Me.CreateNew.Name = "CreateNew"
Me.CreateNew.Size = New System.Drawing.Size(498, 245)
Me.CreateNew.TabIndex = 2
'
'SaveMac
'
Me.SaveMac.Location = New System.Drawing.Point(395, 68)
Me.SaveMac.Name = "SaveMac"
Me.SaveMac.Size = New System.Drawing.Size(75, 23)
Me.SaveMac.TabIndex = 2
Me.SaveMac.Text = "Browse..."
Me.SaveMac.UseVisualStyleBackColor = True
'
'MacName
'
Me.MacName.Location = New System.Drawing.Point(25, 68)
Me.MacName.Name = "MacName"
Me.MacName.Size = New System.Drawing.Size(364, 21)
Me.MacName.TabIndex = 1
'
'CreateNewDescription
'
Me.CreateNewDescription.Location = New System.Drawing.Point(22, 24)
Me.CreateNewDescription.Name = "CreateNewDescription"
Me.CreateNewDescription.Size = New System.Drawing.Size(448, 41)
Me.CreateNewDescription.TabIndex = 0
Me.CreateNewDescription.Text = "Give a name to your Macintosh, remember to make it descirptive, something like ""M" & _
"ac OS 7"" or ""iMac G3"" are good examples. "
'
'AssignRAM
'
Me.AssignRAM.Controls.Add(Me.RecommendedRAM)
Me.AssignRAM.Controls.Add(Me.AssignRAMDescription)
Me.AssignRAM.Controls.Add(Me.CustomRAM)
Me.AssignRAM.Controls.Add(Me.DefaultRAM)
Me.AssignRAM.Controls.Add(Me.CustomRAMContainer)
Me.AssignRAM.Location = New System.Drawing.Point(0, 59)
Me.AssignRAM.Name = "AssignRAM"
Me.AssignRAM.Size = New System.Drawing.Size(498, 245)
Me.AssignRAM.TabIndex = 5
'
'RecommendedRAM
'
Me.RecommendedRAM.AutoSize = True
Me.RecommendedRAM.Location = New System.Drawing.Point(47, 60)
Me.RecommendedRAM.Name = "RecommendedRAM"
Me.RecommendedRAM.Size = New System.Drawing.Size(199, 13)
Me.RecommendedRAM.TabIndex = 6
Me.RecommendedRAM.Text = "The recommended memory is [ %m MB ]"
'
'AssignRAMDescription
'
Me.AssignRAMDescription.Location = New System.Drawing.Point(47, 15)
Me.AssignRAMDescription.Name = "AssignRAMDescription"
Me.AssignRAMDescription.Size = New System.Drawing.Size(423, 42)
Me.AssignRAMDescription.TabIndex = 4
Me.AssignRAMDescription.Text = resources.GetString("AssignRAMDescription.Text")
'
'CustomRAM
'
Me.CustomRAM.AutoSize = True
Me.CustomRAM.Location = New System.Drawing.Point(57, 107)
Me.CustomRAM.Name = "CustomRAM"
Me.CustomRAM.Size = New System.Drawing.Size(156, 17)
Me.CustomRAM.TabIndex = 1
Me.CustomRAM.Text = "Use this amount of memory"
Me.CustomRAM.UseVisualStyleBackColor = True
'
'DefaultRAM
'
Me.DefaultRAM.AutoSize = True
Me.DefaultRAM.Checked = True
Me.DefaultRAM.Location = New System.Drawing.Point(57, 84)
Me.DefaultRAM.Name = "DefaultRAM"
Me.DefaultRAM.Size = New System.Drawing.Size(173, 17)
Me.DefaultRAM.TabIndex = 0
Me.DefaultRAM.TabStop = True
Me.DefaultRAM.Text = "Use the recommended memory"
Me.DefaultRAM.UseVisualStyleBackColor = True
'
'CustomRAMContainer
'
Me.CustomRAMContainer.Controls.Add(Me.WarningInvalidSize)
Me.CustomRAMContainer.Controls.Add(Me.RAMSlider)
Me.CustomRAMContainer.Controls.Add(Me.RamMBLabel)
Me.CustomRAMContainer.Controls.Add(Me.RAM)
Me.CustomRAMContainer.Location = New System.Drawing.Point(50, 130)
Me.CustomRAMContainer.Name = "CustomRAMContainer"
Me.CustomRAMContainer.Size = New System.Drawing.Size(420, 93)
Me.CustomRAMContainer.TabIndex = 7
'
'WarningInvalidSize
'
Me.WarningInvalidSize.AutoSize = True
Me.WarningInvalidSize.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.WarningInvalidSize.Location = New System.Drawing.Point(10, 69)
Me.WarningInvalidSize.Name = "WarningInvalidSize"
Me.WarningInvalidSize.Size = New System.Drawing.Size(219, 13)
Me.WarningInvalidSize.TabIndex = 8
Me.WarningInvalidSize.Text = "Please use a valid size between %n and %x"
'
'RAMSlider
'
Me.RAMSlider.Location = New System.Drawing.Point(3, 22)
Me.RAMSlider.Maximum = 960
Me.RAMSlider.Minimum = 4
Me.RAMSlider.Name = "RAMSlider"
Me.RAMSlider.Size = New System.Drawing.Size(329, 45)
Me.RAMSlider.TabIndex = 2
Me.RAMSlider.TickFrequency = 48
Me.RAMSlider.Value = 4
'
'RamMBLabel
'
Me.RamMBLabel.AutoSize = True
Me.RamMBLabel.Location = New System.Drawing.Point(385, 28)
Me.RamMBLabel.Name = "RamMBLabel"
Me.RamMBLabel.Size = New System.Drawing.Size(21, 13)
Me.RamMBLabel.TabIndex = 5
Me.RamMBLabel.Text = "MB"
'
'RAM
'
Me.RAM.Location = New System.Drawing.Point(338, 25)
Me.RAM.Name = "RAM"
Me.RAM.Size = New System.Drawing.Size(45, 21)
Me.RAM.TabIndex = 3
'
'DescriptionContainer
'
Me.DescriptionContainer.BackColor = System.Drawing.Color.White
Me.DescriptionContainer.Controls.Add(Me.Description)
Me.DescriptionContainer.Controls.Add(Me.DescriptionName)
Me.DescriptionContainer.Location = New System.Drawing.Point(-1, -8)
Me.DescriptionContainer.Name = "DescriptionContainer"
Me.DescriptionContainer.Size = New System.Drawing.Size(499, 67)
Me.DescriptionContainer.TabIndex = 0
Me.DescriptionContainer.TabStop = False
'
'Description
'
Me.Description.Location = New System.Drawing.Point(48, 34)
Me.Description.Name = "Description"
Me.Description.Size = New System.Drawing.Size(423, 30)
Me.Description.TabIndex = 1
Me.Description.Text = "You can create a new Mac or add an existing one to the Virtual Mac Console"
'
'DescriptionName
'
Me.DescriptionName.AutoSize = True
Me.DescriptionName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DescriptionName.Location = New System.Drawing.Point(23, 20)
Me.DescriptionName.Name = "DescriptionName"
Me.DescriptionName.Size = New System.Drawing.Size(50, 13)
Me.DescriptionName.TabIndex = 0
Me.DescriptionName.Text = "Options"
'
'ToolTip1
'
Me.ToolTip1.AutoPopDelay = 5000
Me.ToolTip1.InitialDelay = 1000
Me.ToolTip1.ReshowDelay = 200
'
'Welcome
'
Me.Welcome.BackColor = System.Drawing.Color.White
Me.Welcome.BackgroundImage = Global.VirtualMac.My.Resources.Resources.NewMac
Me.Welcome.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Welcome.Controls.Add(Me.WelcomeDescription)
Me.Welcome.Controls.Add(Me.WelcomeTitle)
Me.Welcome.Location = New System.Drawing.Point(0, 0)
Me.Welcome.Margin = New System.Windows.Forms.Padding(0)
Me.Welcome.Name = "Welcome"
Me.Welcome.Size = New System.Drawing.Size(497, 313)
Me.Welcome.TabIndex = 1
'
'WelcomeDescription
'
Me.WelcomeDescription.Location = New System.Drawing.Point(170, 75)
Me.WelcomeDescription.Name = "WelcomeDescription"
Me.WelcomeDescription.Size = New System.Drawing.Size(300, 80)
Me.WelcomeDescription.TabIndex = 1
Me.WelcomeDescription.Text = "This wizard helps you create and configure a new Macintosh or add an existing Mac" & _
"intosh to the Virtual Mac Console." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "The Macintosh configuration is stored in a" & _
" .mcc file." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "To continue, click Next."
'
'WelcomeTitle
'
Me.WelcomeTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.WelcomeTitle.Location = New System.Drawing.Point(170, 15)
Me.WelcomeTitle.Name = "WelcomeTitle"
Me.WelcomeTitle.Size = New System.Drawing.Size(300, 45)
Me.WelcomeTitle.TabIndex = 0
Me.WelcomeTitle.Text = "Welcome to the New Macintosh Wizard"
'
'EndWizard
'
Me.EndWizard.BackColor = System.Drawing.Color.White
Me.EndWizard.BackgroundImage = Global.VirtualMac.My.Resources.Resources.NewMac
Me.EndWizard.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.EndWizard.Controls.Add(Me.MachineDisk)
Me.EndWizard.Controls.Add(Me.MachineMemory)
Me.EndWizard.Controls.Add(Me.MachineName)
Me.EndWizard.Controls.Add(Me.FinishDescription)
Me.EndWizard.Controls.Add(Me.DiskLabel)
Me.EndWizard.Controls.Add(Me.MemoryLabel)
Me.EndWizard.Controls.Add(Me.NameLabel)
Me.EndWizard.Controls.Add(Me.EndDescription)
Me.EndWizard.Controls.Add(Me.EndTitle)
Me.EndWizard.Location = New System.Drawing.Point(0, 0)
Me.EndWizard.Margin = New System.Windows.Forms.Padding(0)
Me.EndWizard.Name = "EndWizard"
Me.EndWizard.Size = New System.Drawing.Size(497, 313)
Me.EndWizard.TabIndex = 3
'
'MachineDisk
'
Me.MachineDisk.AutoSize = True
Me.MachineDisk.Location = New System.Drawing.Point(277, 147)
Me.MachineDisk.Name = "MachineDisk"
Me.MachineDisk.Size = New System.Drawing.Size(22, 13)
Me.MachineDisk.TabIndex = 8
Me.MachineDisk.Text = "C:\"
'
'MachineMemory
'
Me.MachineMemory.AutoSize = True
Me.MachineMemory.Location = New System.Drawing.Point(277, 129)
Me.MachineMemory.Name = "MachineMemory"
Me.MachineMemory.Size = New System.Drawing.Size(42, 13)
Me.MachineMemory.TabIndex = 7
Me.MachineMemory.Text = "255 MB"
'
'MachineName
'
Me.MachineName.AutoSize = True
Me.MachineName.Location = New System.Drawing.Point(277, 111)
Me.MachineName.Name = "MachineName"
Me.MachineName.Size = New System.Drawing.Size(77, 13)
Me.MachineName.TabIndex = 6
Me.MachineName.Text = "Example Name"
'
'FinishDescription
'
Me.FinishDescription.Location = New System.Drawing.Point(170, 223)
Me.FinishDescription.Name = "FinishDescription"
Me.FinishDescription.Size = New System.Drawing.Size(300, 35)
Me.FinishDescription.TabIndex = 5
Me.FinishDescription.Text = "To close this wizard and create this Mac, click Finish."
'
'DiskLabel
'
Me.DiskLabel.AutoSize = True
Me.DiskLabel.Location = New System.Drawing.Point(181, 147)
Me.DiskLabel.Name = "DiskLabel"
Me.DiskLabel.Size = New System.Drawing.Size(30, 13)
Me.DiskLabel.TabIndex = 4
Me.DiskLabel.Text = "Disk:"
'
'MemoryLabel
'
Me.MemoryLabel.AutoSize = True
Me.MemoryLabel.Location = New System.Drawing.Point(181, 129)
Me.MemoryLabel.Name = "MemoryLabel"
Me.MemoryLabel.Size = New System.Drawing.Size(49, 13)
Me.MemoryLabel.TabIndex = 3
Me.MemoryLabel.Text = "Memory:"
'
'NameLabel
'
Me.NameLabel.AutoSize = True
Me.NameLabel.Location = New System.Drawing.Point(181, 111)
Me.NameLabel.Name = "NameLabel"
Me.NameLabel.Size = New System.Drawing.Size(38, 13)
Me.NameLabel.TabIndex = 2
Me.NameLabel.Text = "Name:"
'
'EndDescription
'
Me.EndDescription.Location = New System.Drawing.Point(170, 62)
Me.EndDescription.Name = "EndDescription"
Me.EndDescription.Size = New System.Drawing.Size(300, 49)
Me.EndDescription.TabIndex = 1
Me.EndDescription.Text = "You have succefully completed the New Macintosh Wizard. Your Macintosh will be cr" & _
"eated with the following attributes:"
'
'EndTitle
'
Me.EndTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.EndTitle.Location = New System.Drawing.Point(169, 13)
Me.EndTitle.Name = "EndTitle"
Me.EndTitle.Size = New System.Drawing.Size(301, 46)
Me.EndTitle.TabIndex = 0
Me.EndTitle.Text = "Completing the New Macintosh Wizard"
'
'frmNewMac
'
Me.AcceptButton = Me.cmdNext
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.cmdCancel
Me.ClientSize = New System.Drawing.Size(499, 362)
Me.ControlBox = False
Me.Controls.Add(Me.Welcome)
Me.Controls.Add(Me.Wizard)
Me.Controls.Add(Me.EndWizard)
Me.Controls.Add(Me.FormButtons)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmNewMac"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "New Macintosh Wizard"
Me.FormButtons.ResumeLayout(False)
Me.Wizard.ResumeLayout(False)
Me.AddExisting.ResumeLayout(False)
Me.AddExisting.PerformLayout()
Me.SelectType.ResumeLayout(False)
Me.SelectType.PerformLayout()
Me.SelectDisk.ResumeLayout(False)
Me.SelectDisk.PerformLayout()
Me.DiskTools.ResumeLayout(False)
Me.DiskTools.PerformLayout()
CType(Me.DiskSize, System.ComponentModel.ISupportInitialize).EndInit()
Me.HwPresets.ResumeLayout(False)
Me.HwPresets.PerformLayout()
Me.CreateNew.ResumeLayout(False)
Me.CreateNew.PerformLayout()
Me.AssignRAM.ResumeLayout(False)
Me.AssignRAM.PerformLayout()
Me.CustomRAMContainer.ResumeLayout(False)
Me.CustomRAMContainer.PerformLayout()
CType(Me.RAMSlider, System.ComponentModel.ISupportInitialize).EndInit()
Me.DescriptionContainer.ResumeLayout(False)
Me.DescriptionContainer.PerformLayout()
Me.Welcome.ResumeLayout(False)
Me.EndWizard.ResumeLayout(False)
Me.EndWizard.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents FormButtons As System.Windows.Forms.GroupBox
Friend WithEvents Welcome As System.Windows.Forms.Panel
Friend WithEvents cmdCancel As System.Windows.Forms.Button
Friend WithEvents cmdNext As System.Windows.Forms.Button
Friend WithEvents cmdBack As System.Windows.Forms.Button
Friend WithEvents WelcomeDescription As System.Windows.Forms.Label
Friend WithEvents WelcomeTitle As System.Windows.Forms.Label
Friend WithEvents Wizard As System.Windows.Forms.Panel
Friend WithEvents DescriptionContainer As System.Windows.Forms.GroupBox
Friend WithEvents SelectType As System.Windows.Forms.Panel
Friend WithEvents Description As System.Windows.Forms.Label
Friend WithEvents DescriptionName As System.Windows.Forms.Label
Friend WithEvents HwPresets As System.Windows.Forms.Panel
Friend WithEvents AddExisting As System.Windows.Forms.Panel
Friend WithEvents CreateNew As System.Windows.Forms.Panel
Friend WithEvents SelectDisk As System.Windows.Forms.Panel
Friend WithEvents AssignRAM As System.Windows.Forms.Panel
Friend WithEvents EndWizard As System.Windows.Forms.Panel
Friend WithEvents DiskLabel As System.Windows.Forms.Label
Friend WithEvents MemoryLabel As System.Windows.Forms.Label
Friend WithEvents NameLabel As System.Windows.Forms.Label
Friend WithEvents EndDescription As System.Windows.Forms.Label
Friend WithEvents EndTitle As System.Windows.Forms.Label
Friend WithEvents FinishDescription As System.Windows.Forms.Label
Friend WithEvents MachineDisk As System.Windows.Forms.Label
Friend WithEvents MachineMemory As System.Windows.Forms.Label
Friend WithEvents MachineName As System.Windows.Forms.Label
Friend WithEvents AddFromFile As System.Windows.Forms.RadioButton
Friend WithEvents UseWizard As System.Windows.Forms.RadioButton
Friend WithEvents SelectTypeDescription As System.Windows.Forms.Label
Friend WithEvents UseWizardDescription As System.Windows.Forms.Label
Friend WithEvents AddFromFileDescription As System.Windows.Forms.Label
Friend WithEvents DontUseWizardDescription As System.Windows.Forms.Label
Friend WithEvents DontUseWizard As System.Windows.Forms.RadioButton
Friend WithEvents SaveMac As System.Windows.Forms.Button
Friend WithEvents MacName As System.Windows.Forms.TextBox
Friend WithEvents CreateNewDescription As System.Windows.Forms.Label
Friend WithEvents Open As System.Windows.Forms.OpenFileDialog
Friend WithEvents Save As System.Windows.Forms.SaveFileDialog
Friend WithEvents HwPresetsDescription As System.Windows.Forms.Label
Friend WithEvents DefMem As System.Windows.Forms.Label
Friend WithEvents DefDisk As System.Windows.Forms.Label
Friend WithEvents DefCPU As System.Windows.Forms.Label
Friend WithEvents DefCPULabel As System.Windows.Forms.Label
Friend WithEvents DefDiskLabel As System.Windows.Forms.Label
Friend WithEvents DefMemLabel As System.Windows.Forms.Label
Friend WithEvents OSList As System.Windows.Forms.ComboBox
Friend WithEvents OSListDescription As System.Windows.Forms.Label
Friend WithEvents RamMBLabel As System.Windows.Forms.Label
Friend WithEvents AssignRAMDescription As System.Windows.Forms.Label
Friend WithEvents RAM As System.Windows.Forms.TextBox
Friend WithEvents RAMSlider As System.Windows.Forms.TrackBar
Friend WithEvents CustomRAM As System.Windows.Forms.RadioButton
Friend WithEvents DefaultRAM As System.Windows.Forms.RadioButton
Friend WithEvents RecommendedRAM As System.Windows.Forms.Label
Friend WithEvents RecHwLabel As System.Windows.Forms.Label
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Friend WithEvents CustomRAMContainer As System.Windows.Forms.Panel
Friend WithEvents DiskSizeLabel As System.Windows.Forms.Label
Friend WithEvents DiskSize As System.Windows.Forms.NumericUpDown
Friend WithEvents DiskMBLabel As System.Windows.Forms.Label
Friend WithEvents WarningInvalidSize As System.Windows.Forms.Label
Friend WithEvents DiskTools As System.Windows.Forms.Panel
Friend WithEvents SelectDiskDescription As System.Windows.Forms.Label
Friend WithEvents ExistingDisk As System.Windows.Forms.RadioButton
Friend WithEvents NewDisk As System.Windows.Forms.RadioButton
Friend WithEvents BrowseDiskLocation As System.Windows.Forms.Button
Friend WithEvents DiskPath As System.Windows.Forms.TextBox
Friend WithEvents NoDisk As System.Windows.Forms.RadioButton
Friend WithEvents AEBrowseFile As System.Windows.Forms.Button
Friend WithEvents AEFile As System.Windows.Forms.TextBox
Friend WithEvents AEInfo As System.Windows.Forms.Label
Friend WithEvents AEFileLabel As System.Windows.Forms.Label
Friend WithEvents AEEmulatorTypeLabel As System.Windows.Forms.Label
Friend WithEvents AEEmulatorType As System.Windows.Forms.ComboBox
Friend WithEvents AEName As System.Windows.Forms.TextBox
Friend WithEvents AENameLabel As System.Windows.Forms.Label
End Class

189
frmNewMac.resx Normal file
View File

@ -0,0 +1,189 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="HwPresetsDescription.Text" xml:space="preserve">
<value>Select the operating system you plan to install on this Macintosh. Below are shown the specifications for the operating system detected from the name of your Mac. If the OS isn't in the list, select other.</value>
</data>
<data name="AssignRAMDescription.Text" xml:space="preserve">
<value>A Macintosh needs memory to boot the system, and the applications need it to run. A more recent system needs more memory, also the heavier apps you want to run, the more memory you will need. It's recommended that you use the recommended memory unless you want to run heavy applications.</value>
</data>
<metadata name="Open.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 3</value>
</metadata>
<metadata name="Save.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>63, 5</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>126, 5</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>40</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAABAAoAQAANgAAACAgEAAAAAQA6AIAAF4BAAAwMBAAAAAEAGgGAABGBAAAKAAAABAA
AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAQAAAAEAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAiIiIiIiIAAjoiIiIiI6AiO6O7u7o
7uiI6IiIiIiOiIgAAAAAAACIiAAAAAAAAIiIAAAAAAAAiIgAAAAAAACIiAAAAAAAAIiIAAAAAAAAiIgA
AAAAAACIiAAAAAAAAIiIAAAAAAAAiIgAAAAAAACICIiIiIiIiIAAiIiIiIiIAMADAACAAQAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAEAAMADAAAoAAAAIAAAAEAA
AAABAAQAAAAAAAACAAAAAAAAAAAAABAAAAAQAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICA
gADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wDQ0AAA////AAAAAAAAAAAAAAAAAAAAAAAAAIiIiIiIiIiI
iIiIiAAAAIiIiIiIiIiIiIiIiIiIAACI7uiIiIiIiIiIiI7u6AAIju7uiIiIiIiIiIiO7uiACI7u7oju
7u7u7u6Iju7ogAiI7uiIiIiIiIiIiI7u6IAIiIiIiIiIiIiIiIiIiIiACIiAAAAAAAAAAAAAAAiIgAiI
gAAAAAAAAAAAAAAIiIAIiIAAAAAAAAAAAAAACIiACIiAAAAAAAAAAAAAAAiIgAiIgAAAAAAAAAAAAAAI
iIAIiIAAAAAAAAAAAAAACIiACIiAAAAAAAAAAAAAAAiIgAiIgAAAAAAAAAAAAAAIiIAIiIAAAAAAAAAA
AAAACIiACIiAAAAAAAAAAAAAAAiIgAiIgAAAAAAAAAAAAAAIiIAIiIAAAAAAAAAAAAAACIiACIiAAAAA
AAAAAAAAAAiIgAiIgAAAAAAAAAAAAAAIiIAIiIAAAAAAAAAAAAAACIiACIiAAAAAAAAAAAAAAAiIgAiI
gAAAAAAAAAAAAAAIiIAIiIAAAAAAAAAAAAAACIiACIiAAAAAAAAAAAAAAAiIgAiIiIiIiIiIiIiIiIiI
iIAAiIiIiIiIiIiIiIiIiIgAAIiIiIiIiIiIiIiIiIiIAAAAiIiIiIiIiIiIiIiIAAAAAAAAAAAAAAAA
AAAAAAAA//////AAAA/AAAADwAAAA4AAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAA
AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAcAA
AAPAAAAD8AAAD/////8oAAAAMAAAAGAAAAABAAQAAAAAAIAEAAAAAAAAAAAAABAAAAAQAAAAAAAAAAAA
gAAAgAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wDZ2QAA////AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd3d3d3d3d3d3d3d3d3d3d3cAAAAAAAB3d3d3d3d3d3d3d3
d3d3d3d3d3AAAAAAd3d3d3d3d3d3d3d3d3d3d3d3d3cAAAAHd37ud3d3d3d3d3d3d3d3d3d+7ndwAAB3
d+7u53d3d3d3d3d3d3d3d3fu7ud3AAB3fu7u7nd3d3d3d3d3d3d3d37u7u53AAd3fu7u7nd+7u7u7u7u
7u7nd37u7u53cAd3fu7u7nd+7u7u7u7u7u7nd37u7u53cAd3d+7u53d3d3d3d3d3d3d3d3fu7ud3cAd3
d37ud3d3d3d3d3d3d3d3d3d+7nd3cAd3d3d3d3d3d3d3d3d3d3d3d3d3d3d3cAd3d3AAAAAAAAAAAAAA
AAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3
d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAA
AAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3
d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAA
AAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3
d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAA
AAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3
d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAA
AAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3
d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAA
AAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3
d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAB3d3d3d3d3d3d3d3d3d3d3d3d3d3d3AAB3d3d3d3d3d3d3d3d3
d3d3d3d3d3d3AAAHd3d3d3d3d3d3d3d3d3d3d3d3d3dwAAAAd3d3d3d3d3d3d3d3d3d3d3d3d3cAAAAA
B3d3d3d3d3d3d3d3d3d3d3d3d3AAAAAAAAd3d3d3d3d3d3d3d3d3d3d3cAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAP///////wAA/gAAAAB/AAD4AAAAAB8AAPAAAAAADwAA4AAAAAAHAADAAAAAAAMAAMAA
AAAAAwAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB
AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAA
AAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB
AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAA
AAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAADAAAAAAAMAAMAAAAAAAwAA4AAAAAAH
AADwAAAAAA8AAPgAAAAAHwAA/gAAAAB/AAD///////8AAA==
</value>
</data>
</root>

585
frmNewMac.vb Normal file
View File

@ -0,0 +1,585 @@
Public Class frmNewMac
Public HostRAM As Long = My.Computer.Info.TotalPhysicalMemory / 1024 / 1024
Public NameWithoutPath As String
Public Sub SetFinalData()
MachineName.Text = NameWithoutPath
MachineMemory.Text = RAM.Text & " MB"
MachineDisk.Text = DiskSize.Value & " MB"
End Sub
Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
Me.Close()
End Sub
Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click
If My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\Tools\qemu-img.exe") = False Then
ExistingDisk.Checked = True
NewDisk.Enabled = False
End If
If Welcome.Visible = True And Welcome.Enabled = True Then
SelectType.Enabled = True
SelectType.BringToFront()
MovePage(Welcome, Wizard)
DontUseWizard.Focus()
cmdBack.Enabled = True
GoTo EndOfInstruction
End If
If Wizard.Visible = True And Wizard.Enabled = True Then
If SelectType.Visible = True And SelectType.Enabled = True Then
If UseWizard.Checked = True Or DontUseWizard.Checked = True Then
MovePage(SelectType, CreateNew)
MacName.Focus()
MacName.SelectAll()
Else
MovePage(SelectType, AddExisting)
cmdNext.Enabled = False
End If
GoTo EndOfInstruction
End If
If AddExisting.Visible = True And AddExisting.Enabled = True Then
MovePage(Wizard, EndWizard)
GoTo EndOfInstruction
End If
If CreateNew.Visible = True And CreateNew.Enabled = True Then
If System.IO.Path.GetFileNameWithoutExtension(MacName.Text) = MacName.Text Then
NameWithoutPath = MacName.Text
End If
If My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder & "\" & NameWithoutPath) = True Then
MsgBox("This Mac already exists in ''My Macs\" & NameWithoutPath & "''. Please use a different name, or save the Mac to another location.", MsgBoxStyle.Exclamation)
Exit Sub
Else
AutoSelectOS()
MovePage(CreateNew, HwPresets)
End If
GoTo EndOfInstruction
End If
If HwPresets.Visible = True And HwPresets.Enabled = True Then
If DontUseWizard.Checked = True Then
SetFinalData()
cmdNext.Text = "Finish"
MovePage(Wizard, EndWizard)
cmdNext.Focus()
Else
MovePage(HwPresets, AssignRAM)
End If
GoTo EndOfInstruction
End If
If AssignRAM.Visible = True And AssignRAM.Enabled = True Then
MovePage(AssignRAM, SelectDisk)
GoTo EndOfInstruction
End If
If SelectDisk.Visible = True And SelectDisk.Enabled = True Then
SetFinalData()
cmdNext.Text = "Finish"
MovePage(Wizard, EndWizard)
cmdNext.Focus()
GoTo EndOfInstruction
End If
End If
If EndWizard.Visible = True And EndWizard.Enabled = True Then
CreateMac()
Me.Close()
GoTo EndOfInstruction
End If
EndOfInstruction:
End Sub
Private Sub cmdBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBack.Click
If Wizard.Visible = True And Wizard.Enabled = True Then
If SelectType.Visible = True And SelectType.Enabled = True Then
cmdBack.Enabled = False
MovePage(Wizard, Welcome)
GoTo EndOfInstruction
End If
If AddExisting.Visible = True And AddExisting.Enabled = True Then
MovePage(AddExisting, SelectType)
GoTo EndOfInstruction
End If
If CreateNew.Visible = True And CreateNew.Enabled = True Then
MovePage(CreateNew, SelectType)
GoTo EndOfInstruction
End If
If HwPresets.Visible = True And HwPresets.Enabled = True Then
MovePage(HwPresets, CreateNew)
MacName.Focus()
MacName.SelectAll()
GoTo EndOfInstruction
End If
If AssignRAM.Visible = True And AssignRAM.Enabled = True Then
MovePage(AssignRAM, HwPresets)
GoTo EndOfInstruction
End If
If SelectDisk.Visible = True And SelectDisk.Enabled = True Then
MovePage(SelectDisk, AssignRAM)
GoTo EndOfInstruction
End If
End If
If EndWizard.Visible = True And EndWizard.Enabled = True Then
cmdNext.Text = "Next >"
MovePage(EndWizard, Wizard)
GoTo EndOfInstruction
End If
EndOfInstruction:
End Sub
Public Sub CreateMac()
Dim CreateDisk As Boolean
Dim UD As Boolean 'UD stands for UseDisk, just that the object already exists, so I need an acronym
Dim Emulator As String = ""
Dim Configs() As String
If NewDisk.Checked = True Then
CreateDisk = True
Else
CreateDisk = False
End If
If NoDisk.Checked = True Then
UD = False
End If
If AddFromFile.Checked = True Then '//Checking the RadioButton "Add from file" to be checked, so we create from file
Select Case AEEmulatorType.SelectedItem.ToString
Case "Mini vMac Batch"
Emulator = "vMacBatch"
Case "Virtual Mac MvM File"
Emulator = "vMac"
Case "Basilisk"
Emulator = "BII"
Case "SheepShaver"
Emulator = "SheepShaver"
Case "PearPC"
Emulator = "PearPC"
Case "QEMU Windows Batch"
Emulator = "QEMUBatch"
End Select
ConfigFileHandler.CreateFromFile(AEFile.Text, Emulator, AEName.Text)
ElseIf UseWizard.Checked = True Or DontUseWizard.Checked = True Then
Select Case OSList.SelectedIndex
Case 0
Emulator = "vMac"
Case 1, 2
Emulator = "BII"
Case 3, 4
Emulator = "SheepShaver"
Case 5, 6, 7, 8, 9
Emulator = "QEMU"
End Select
ConfigFileHandler.Create(Emulator, MacName.Text, Configs)
End If
End Sub
Public Sub DisableAllPages()
EndWizard.Enabled = False
SelectDisk.Enabled = False
AssignRAM.Enabled = False
HwPresets.Enabled = False
AddExisting.Enabled = False
CreateNew.Enabled = False
SelectType.Enabled = False
Wizard.Enabled = False
Welcome.Enabled = False
End Sub
Public Sub MovePage(ByVal CurrentTab As System.Windows.Forms.Panel, ByVal NewTab As System.Windows.Forms.Panel)
NewTab.Enabled = True
NewTab.BringToFront()
CurrentTab.Enabled = False
End Sub
Public Sub DataProgrammer(ByVal OSType As String)
Select Case OSType
Case "Mac6"
If HostRAM < 8 Then
MsgBox("You have lower memory than the required to run System Software 6. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "Insufficient Memory")
RAM.Text = RAMSlider.Maximum
End If
RAM.Text = 8
DiskSize.Value = 100
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", "8")
DefMem.Text = 8 & " MB"
DefDisk.Text = 128 & " MB"
DefCPU.Text = "Motorola 68000"
Case "Mac7"
If HostRAM < 40 Then
MsgBox("You have lower memory than the required to run System Software 7. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAM.Text = RAMSlider.Maximum
End If
RAM.Text = 16
DiskSize.Value = 250
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 16)
DefMem.Text = 16 & " MB"
DefDisk.Text = 250 & " MB"
DefCPU.Text = "Motorola 68040"
Case "Mac7Pro"
If HostRAM < 64 Then
MsgBox("You have lower memory than the required to run MacOS 7. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAM.Text = RAMSlider.Maximum
End If
RAM.Text = 24
DiskSize.Value = 250
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 24)
DefMem.Text = 24 & " MB"
DefDisk.Text = 250 & " MB"
DefCPU.Text = "PowerPC G3"
Case "Mac8"
If HostRAM < 128 Then
MsgBox("You have lower memory than the required to run MacOS 8. Install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAM.Text = RAMSlider.Maximum
End If
RAM.Text = 64
DiskSize.Value = 500
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 64)
DefMem.Text = 64 & " MB"
DefDisk.Text = 500 & " MB"
DefCPU.Text = "PowerPC G3"
Case "Mac9"
If HostRAM < 256 Then
MsgBox("You have lower memory than the required to run MacOS 9. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAM.Text = RAMSlider.Maximum
End If
RAM.Text = 256
DiskSize.Value = 1024
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 256)
DefMem.Text = 256 & " MB"
DefDisk.Text = 1024 & " MB"
DefCPU.Text = "PowerPC G3"
Case "Mac10"
If HostRAM < 384 Then
MsgBox("You have lower memory than the required to run Mac OS X. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAM.Text = RAMSlider.Maximum
End If
RAM.Text = 384
DiskSize.Value = 3072
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 384)
DefMem.Text = 384 & " MB"
DefDisk.Text = 3072 & " MB"
DefCPU.Text = "PowerPC G3"
Case "Debian"
If HostRAM < 400 Then
MsgBox("You have lower memory than the required to run Debian. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAM.Text = RAMSlider.Maximum
End If
RAM.Text = 400
DiskSize.Value = 4096
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 400)
DefMem.Text = 400 & " MB"
DefDisk.Text = 4096 & " MB"
DefCPU.Text = "PowerPC G3"
Case "Ubuntu"
If HostRAM < 400 Then
MsgBox("You have lower memory than the required to run Ubuntu. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAM.Text = RAMSlider.Maximum
End If
RAM.Text = 400
DiskSize.Value = 6144
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 400)
DefMem.Text = 400 & " MB"
DefDisk.Text = 6144 & " MB"
DefCPU.Text = "PowerPC G3"
Case "Linux"
If HostRAM < 400 Then
MsgBox("You have lower memory than the required to run Linux. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAM.Text = RAMSlider.Maximum
End If
RAM.Text = 400
DiskSize.Value = 4096
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 400)
DefMem.Text = 400 & " MB"
DefDisk.Text = 4096 & " MB"
DefCPU.Text = "PowerPC G3"
Case "Other"
If HostRAM < 256 Then
MsgBox("You have lower memory than the required to run Other. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAM.Text = RAMSlider.Maximum
End If
RAM.Text = 256
DiskSize.Value = 4096
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 256)
DefMem.Text = 256 & " MB"
DefDisk.Text = 4096 & " MB"
DefCPU.Text = "PowerPC G3"
End Select
'Place in cmdNext.Click code area
MacName.Text = My.Settings.DefaultMacFolder & "\" & NameWithoutPath & "\" & NameWithoutPath & ".mcf"
DiskPath.Text = My.Settings.DefaultMacFolder & "\" & NameWithoutPath & "\" & NameWithoutPath & ".dsk"
End Sub
Public Function AutoSelectOS() As String
Dim OS As String = "Other"
Dim OsFound As Long
OsFound = InStr(MacName.Text, "System Software")
If OsFound <> 0 Then
OS = "Mac6"
OSList.SelectedIndex = 0
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 6")
If OsFound <> 0 Then
OS = "Mac6"
OSList.SelectedIndex = 0
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 7")
If OsFound <> 0 Then
OS = "Mac7"
OSList.SelectedIndex = 1
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 7.")
If OsFound <> 0 Then
OS = "Mac75"
OSList.SelectedIndex = 2
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 8")
If OsFound <> 0 Then
OS = "Mac8"
OSList.SelectedIndex = 3
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 9")
If OsFound <> 0 Then
OS = "Mac9"
OSList.SelectedIndex = 4
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " Classic")
If OsFound <> 0 Then
OS = "Mac9"
OSList.SelectedIndex = 4
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 10")
If OsFound <> 0 Then
OS = "Mac10"
OSList.SelectedIndex = 5
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " X")
If OsFound <> 0 Then
OS = "Mac10"
OSList.SelectedIndex = 5
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, "Debian")
If OsFound <> 0 Then
OS = "Debian"
OSList.SelectedIndex = 6
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, "Ubuntu")
If OsFound <> 0 Then
OS = "Ubuntu"
OSList.SelectedIndex = 7
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, "Linux")
If OsFound <> 0 Then
OS = "Linux"
OSList.SelectedIndex = 8
GoTo OSDetected
End If
OSList.SelectedIndex = 9
OSDetected:
Return OS
End Function
Private Sub SaveMac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveMac.Click
Save.Filter = "Virtual Mac Configuration File (*.mcf)|*.mcf|All files (*.*)|*.*"
Save.ShowDialog()
If Save.FileName <> "" Then
MacName.Text = Save.FileName
End If
End Sub
Private Sub frmNewMac_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
RAMSlider.TickFrequency = HostRAM / 20
RAMSlider.Maximum = HostRAM
WarningInvalidSize.Text = Replace(Replace(WarningInvalidSize.Text, "%x", RAMSlider.Maximum), "%n", RAMSlider.Minimum)
DisableAllPages()
MovePage(Wizard, Welcome)
AEEmulatorType.SelectedIndex = 0
OSList.SelectedIndex = 0
End Sub
Private Sub RAM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RAM.TextChanged
If RAM.Text = "" Then
RAMSlider.Value = RAMSlider.Minimum
cmdNext.Enabled = False
WarningInvalidSize.Visible = True
Else
If RAM.Text > RAMSlider.Maximum Then
RAMSlider.Value = RAMSlider.Maximum
cmdNext.Enabled = False
WarningInvalidSize.Visible = True
Else
If RAM.Text < RAMSlider.Minimum Then
RAMSlider.Value = RAMSlider.Minimum
cmdNext.Enabled = False
WarningInvalidSize.Visible = True
Else
RAMSlider.Value = RAM.Text
WarningInvalidSize.Visible = False
cmdNext.Enabled = True
End If
End If
End If
End Sub
Private Sub RAMSlider_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RAMSlider.Scroll
RAM.Text = RAMSlider.Value
End Sub
Private Sub RAM_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultRAM.CheckedChanged, CustomRAM.CheckedChanged
If CustomRAM.Checked = True Then
CustomRAMContainer.Enabled = True
CustomRAMContainer.Visible = True
Else
CustomRAMContainer.Enabled = False
CustomRAMContainer.Visible = False
End If
End Sub
Private Sub OSList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OSList.SelectedIndexChanged
Select Case OSList.SelectedIndex
Case 0
DataProgrammer("Mac6")
Case 1
DataProgrammer("Mac7")
Case 2
DataProgrammer("Mac7Pro")
Case 3
DataProgrammer("Mac8")
Case 4
DataProgrammer("Mac9")
Case 5
DataProgrammer("Mac10")
Case 6
DataProgrammer("Debian")
Case 7
DataProgrammer("Ubuntu")
Case 8
DataProgrammer("Linux")
Case 9
DataProgrammer("Other")
End Select
End Sub
Private Sub BrowseDiskLocation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowseDiskLocation.Click
If NewDisk.Checked = True Then
Save.Filter = "Disk files (*.dsk)|*.dsk|Disk Image Files (*.img)|*.img|All files (*.*)|*.*"
Save.ShowDialog()
If Save.FileName <> "" Then
DiskPath.Text = Save.FileName
End If
Else
Open.Filter = "Disk files (*.dsk)|*.dsk|Disk Image Files (*.img)|*.img|All files (*.*)|*.*"
Open.ShowDialog()
If Open.FileName <> "" Then
DiskPath.Text = Open.FileName
End If
End If
End Sub
Private Sub MacName_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MacName.Click
MacName.SelectAll()
End Sub
Private Sub MacName_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MacName.GotFocus
MacName.SelectAll()
End Sub
Private Sub Disk_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewDisk.CheckedChanged, ExistingDisk.CheckedChanged
If NewDisk.Checked = True Then
DiskTools.Visible = True
Else
DiskTools.Visible = False
End If
If NoDisk.Checked = True Then
DiskPath.Enabled = False
BrowseDiskLocation.Enabled = False
Else
DiskPath.Enabled = True
BrowseDiskLocation.Enabled = True
End If
End Sub
Private Sub AEBrowseFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AEBrowseFile.Click
Open.Filter = "Batch files|*.bat|Basilisk/SheepShaver preferences file|*_prefs|PearPC Config Files|*.cfg|Virtual Mac Mini vMac Configuration File|*.mcf|All files|*.*"
Select Case AEEmulatorType.SelectedIndex
Case 0
Open.FilterIndex = 0
Case 1
Open.FilterIndex = 3
Case 2
Open.FilterIndex = 1
Case 3
Open.FilterIndex = 1
Case 4
Open.FilterIndex = 2
Case 5
Open.FilterIndex = 0
Case Else
Open.FilterIndex = 4
End Select
Open.ShowDialog()
If Open.FileName <> "" Then
AEFile.Text = Open.FileName
End If
End Sub
Private Sub AEName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AEName.TextChanged
If AEName.Text <> "" And AEFile.Text <> "" Then
cmdNext.Enabled = True
Else
cmdNext.Enabled = False
End If
End Sub
Private Sub AEFile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AEFile.TextChanged
If AEName.Text <> "" And AEFile.Text <> "" Then
cmdNext.Enabled = True
Else
cmdNext.Enabled = False
End If
End Sub
End Class

332
frmOptions.Designer.vb generated Normal file
View File

@ -0,0 +1,332 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class frmOptions
#Region "Windows Form Designer generated code "
<System.Diagnostics.DebuggerNonUserCode()> Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
Public ToolTip1 As System.Windows.Forms.ToolTip
Public BrowseOpen As System.Windows.Forms.OpenFileDialog
Public WithEvents cmdOK As System.Windows.Forms.Button
Public WithEvents cmdCancel As System.Windows.Forms.Button
Public WithEvents Folders As System.Windows.Forms.GroupBox
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmOptions))
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.BrowseOpen = New System.Windows.Forms.OpenFileDialog
Me.cmdOK = New System.Windows.Forms.Button
Me.cmdCancel = New System.Windows.Forms.Button
Me.Folders = New System.Windows.Forms.GroupBox
Me.ProgramFolder = New System.Windows.Forms.Label
Me.ProgramFolderLabel = New System.Windows.Forms.Label
Me.DefFolderTitle = New System.Windows.Forms.Label
Me.DefaultMacFolder = New System.Windows.Forms.TextBox
Me.BrowseDefFolder = New System.Windows.Forms.Button
Me.ROM = New System.Windows.Forms.GroupBox
Me.NoteQemuPPCROM = New System.Windows.Forms.Label
Me.SSROMLabel = New System.Windows.Forms.Label
Me.SSROM = New System.Windows.Forms.TextBox
Me.BrowseSSROM = New System.Windows.Forms.Button
Me.BIIROMLabel = New System.Windows.Forms.Label
Me.BIIROM = New System.Windows.Forms.TextBox
Me.BrowseBIIROM = New System.Windows.Forms.Button
Me.vMacROMLabel = New System.Windows.Forms.Label
Me.vMacROM = New System.Windows.Forms.TextBox
Me.BrowsevMacROM = New System.Windows.Forms.Button
Me.FolderBrowser = New System.Windows.Forms.FolderBrowserDialog
Me.OptionsContainer = New System.Windows.Forms.ListView
Me.Options = New System.Windows.Forms.ColumnHeader
Me.Value = New System.Windows.Forms.ColumnHeader
Me.TestNewWindow = New System.Windows.Forms.GroupBox
Me.DisableTest = New System.Windows.Forms.RadioButton
Me.EnableTest = New System.Windows.Forms.RadioButton
Me.Folders.SuspendLayout()
Me.ROM.SuspendLayout()
Me.TestNewWindow.SuspendLayout()
Me.SuspendLayout()
'
'BrowseOpen
'
resources.ApplyResources(Me.BrowseOpen, "BrowseOpen")
Me.BrowseOpen.ReadOnlyChecked = True
Me.BrowseOpen.ShowReadOnly = True
'
'cmdOK
'
Me.cmdOK.BackColor = System.Drawing.SystemColors.Control
Me.cmdOK.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdOK.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.cmdOK, "cmdOK")
Me.cmdOK.Name = "cmdOK"
Me.cmdOK.Tag = "1024"
Me.cmdOK.UseVisualStyleBackColor = True
'
'cmdCancel
'
Me.cmdCancel.BackColor = System.Drawing.SystemColors.Control
Me.cmdCancel.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.cmdCancel.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.cmdCancel, "cmdCancel")
Me.cmdCancel.Name = "cmdCancel"
Me.cmdCancel.Tag = "1023"
Me.cmdCancel.UseVisualStyleBackColor = True
'
'Folders
'
Me.Folders.BackColor = System.Drawing.SystemColors.Control
Me.Folders.Controls.Add(Me.ProgramFolder)
Me.Folders.Controls.Add(Me.ProgramFolderLabel)
Me.Folders.Controls.Add(Me.DefFolderTitle)
Me.Folders.Controls.Add(Me.DefaultMacFolder)
Me.Folders.Controls.Add(Me.BrowseDefFolder)
Me.Folders.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.Folders, "Folders")
Me.Folders.Name = "Folders"
Me.Folders.TabStop = False
'
'ProgramFolder
'
resources.ApplyResources(Me.ProgramFolder, "ProgramFolder")
Me.ProgramFolder.Name = "ProgramFolder"
'
'ProgramFolderLabel
'
resources.ApplyResources(Me.ProgramFolderLabel, "ProgramFolderLabel")
Me.ProgramFolderLabel.Name = "ProgramFolderLabel"
'
'DefFolderTitle
'
Me.DefFolderTitle.BackColor = System.Drawing.SystemColors.Control
Me.DefFolderTitle.Cursor = System.Windows.Forms.Cursors.Default
Me.DefFolderTitle.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.DefFolderTitle, "DefFolderTitle")
Me.DefFolderTitle.Name = "DefFolderTitle"
'
'DefaultMacFolder
'
Me.DefaultMacFolder.AcceptsReturn = True
Me.DefaultMacFolder.BackColor = System.Drawing.SystemColors.Window
Me.DefaultMacFolder.Cursor = System.Windows.Forms.Cursors.IBeam
Me.DefaultMacFolder.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.DefaultMacFolder, "DefaultMacFolder")
Me.DefaultMacFolder.Name = "DefaultMacFolder"
Me.DefaultMacFolder.ReadOnly = True
'
'BrowseDefFolder
'
Me.BrowseDefFolder.BackColor = System.Drawing.SystemColors.Control
Me.BrowseDefFolder.Cursor = System.Windows.Forms.Cursors.Default
Me.BrowseDefFolder.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.BrowseDefFolder, "BrowseDefFolder")
Me.BrowseDefFolder.Name = "BrowseDefFolder"
Me.BrowseDefFolder.UseVisualStyleBackColor = True
'
'ROM
'
Me.ROM.BackColor = System.Drawing.SystemColors.Control
Me.ROM.Controls.Add(Me.NoteQemuPPCROM)
Me.ROM.Controls.Add(Me.SSROMLabel)
Me.ROM.Controls.Add(Me.SSROM)
Me.ROM.Controls.Add(Me.BrowseSSROM)
Me.ROM.Controls.Add(Me.BIIROMLabel)
Me.ROM.Controls.Add(Me.BIIROM)
Me.ROM.Controls.Add(Me.BrowseBIIROM)
Me.ROM.Controls.Add(Me.vMacROMLabel)
Me.ROM.Controls.Add(Me.vMacROM)
Me.ROM.Controls.Add(Me.BrowsevMacROM)
Me.ROM.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.ROM, "ROM")
Me.ROM.Name = "ROM"
Me.ROM.TabStop = False
'
'NoteQemuPPCROM
'
resources.ApplyResources(Me.NoteQemuPPCROM, "NoteQemuPPCROM")
Me.NoteQemuPPCROM.Name = "NoteQemuPPCROM"
'
'SSROMLabel
'
resources.ApplyResources(Me.SSROMLabel, "SSROMLabel")
Me.SSROMLabel.Name = "SSROMLabel"
'
'SSROM
'
Me.SSROM.AcceptsReturn = True
Me.SSROM.BackColor = System.Drawing.SystemColors.Window
Me.SSROM.Cursor = System.Windows.Forms.Cursors.IBeam
Me.SSROM.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.SSROM, "SSROM")
Me.SSROM.Name = "SSROM"
Me.SSROM.ReadOnly = True
'
'BrowseSSROM
'
Me.BrowseSSROM.BackColor = System.Drawing.SystemColors.Control
Me.BrowseSSROM.Cursor = System.Windows.Forms.Cursors.Default
Me.BrowseSSROM.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.BrowseSSROM, "BrowseSSROM")
Me.BrowseSSROM.Name = "BrowseSSROM"
Me.BrowseSSROM.UseVisualStyleBackColor = True
'
'BIIROMLabel
'
resources.ApplyResources(Me.BIIROMLabel, "BIIROMLabel")
Me.BIIROMLabel.Name = "BIIROMLabel"
'
'BIIROM
'
Me.BIIROM.AcceptsReturn = True
Me.BIIROM.BackColor = System.Drawing.SystemColors.Window
Me.BIIROM.Cursor = System.Windows.Forms.Cursors.IBeam
Me.BIIROM.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.BIIROM, "BIIROM")
Me.BIIROM.Name = "BIIROM"
Me.BIIROM.ReadOnly = True
'
'BrowseBIIROM
'
Me.BrowseBIIROM.BackColor = System.Drawing.SystemColors.Control
Me.BrowseBIIROM.Cursor = System.Windows.Forms.Cursors.Default
Me.BrowseBIIROM.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.BrowseBIIROM, "BrowseBIIROM")
Me.BrowseBIIROM.Name = "BrowseBIIROM"
Me.BrowseBIIROM.UseVisualStyleBackColor = True
'
'vMacROMLabel
'
resources.ApplyResources(Me.vMacROMLabel, "vMacROMLabel")
Me.vMacROMLabel.Name = "vMacROMLabel"
'
'vMacROM
'
Me.vMacROM.AcceptsReturn = True
Me.vMacROM.BackColor = System.Drawing.SystemColors.Window
Me.vMacROM.Cursor = System.Windows.Forms.Cursors.IBeam
Me.vMacROM.ForeColor = System.Drawing.SystemColors.WindowText
resources.ApplyResources(Me.vMacROM, "vMacROM")
Me.vMacROM.Name = "vMacROM"
Me.vMacROM.ReadOnly = True
'
'BrowsevMacROM
'
Me.BrowsevMacROM.BackColor = System.Drawing.SystemColors.Control
Me.BrowsevMacROM.Cursor = System.Windows.Forms.Cursors.Default
Me.BrowsevMacROM.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.BrowsevMacROM, "BrowsevMacROM")
Me.BrowsevMacROM.Name = "BrowsevMacROM"
Me.BrowsevMacROM.UseVisualStyleBackColor = True
'
'OptionsContainer
'
Me.OptionsContainer.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Options, Me.Value})
Me.OptionsContainer.FullRowSelect = True
Me.OptionsContainer.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
Me.OptionsContainer.Items.AddRange(New System.Windows.Forms.ListViewItem() {CType(resources.GetObject("OptionsContainer.Items"), System.Windows.Forms.ListViewItem), CType(resources.GetObject("OptionsContainer.Items1"), System.Windows.Forms.ListViewItem), CType(resources.GetObject("OptionsContainer.Items2"), System.Windows.Forms.ListViewItem), CType(resources.GetObject("OptionsContainer.Items3"), System.Windows.Forms.ListViewItem), CType(resources.GetObject("OptionsContainer.Items4"), System.Windows.Forms.ListViewItem)})
resources.ApplyResources(Me.OptionsContainer, "OptionsContainer")
Me.OptionsContainer.Name = "OptionsContainer"
Me.OptionsContainer.UseCompatibleStateImageBehavior = False
Me.OptionsContainer.View = System.Windows.Forms.View.Details
'
'Options
'
resources.ApplyResources(Me.Options, "Options")
'
'Value
'
resources.ApplyResources(Me.Value, "Value")
'
'TestNewWindow
'
Me.TestNewWindow.BackColor = System.Drawing.SystemColors.Control
Me.TestNewWindow.Controls.Add(Me.DisableTest)
Me.TestNewWindow.Controls.Add(Me.EnableTest)
Me.TestNewWindow.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.TestNewWindow, "TestNewWindow")
Me.TestNewWindow.Name = "TestNewWindow"
Me.TestNewWindow.TabStop = False
'
'DisableTest
'
resources.ApplyResources(Me.DisableTest, "DisableTest")
Me.DisableTest.Name = "DisableTest"
Me.DisableTest.UseVisualStyleBackColor = True
'
'EnableTest
'
resources.ApplyResources(Me.EnableTest, "EnableTest")
Me.EnableTest.Name = "EnableTest"
Me.EnableTest.UseVisualStyleBackColor = True
'
'frmOptions
'
Me.AcceptButton = Me.cmdOK
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.Control
Me.CancelButton = Me.cmdCancel
Me.Controls.Add(Me.TestNewWindow)
Me.Controls.Add(Me.ROM)
Me.Controls.Add(Me.Folders)
Me.Controls.Add(Me.cmdCancel)
Me.Controls.Add(Me.cmdOK)
Me.Controls.Add(Me.OptionsContainer)
Me.Cursor = System.Windows.Forms.Cursors.Default
Me.ForeColor = System.Drawing.Color.Black
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.KeyPreview = True
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmOptions"
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.Tag = "1017"
Me.Folders.ResumeLayout(False)
Me.Folders.PerformLayout()
Me.ROM.ResumeLayout(False)
Me.ROM.PerformLayout()
Me.TestNewWindow.ResumeLayout(False)
Me.TestNewWindow.PerformLayout()
Me.ResumeLayout(False)
End Sub
Public WithEvents DefFolderTitle As System.Windows.Forms.Label
Public WithEvents DefaultMacFolder As System.Windows.Forms.TextBox
Public WithEvents BrowseDefFolder As System.Windows.Forms.Button
Public WithEvents ROM As System.Windows.Forms.GroupBox
Public WithEvents vMacROM As System.Windows.Forms.TextBox
Public WithEvents BrowsevMacROM As System.Windows.Forms.Button
Friend WithEvents FolderBrowser As System.Windows.Forms.FolderBrowserDialog
Friend WithEvents Options As System.Windows.Forms.ColumnHeader
Friend WithEvents Value As System.Windows.Forms.ColumnHeader
Public WithEvents TestNewWindow As System.Windows.Forms.GroupBox
Friend WithEvents DisableTest As System.Windows.Forms.RadioButton
Friend WithEvents EnableTest As System.Windows.Forms.RadioButton
Friend WithEvents OptionsContainer As System.Windows.Forms.ListView
Friend WithEvents SSROMLabel As System.Windows.Forms.Label
Public WithEvents SSROM As System.Windows.Forms.TextBox
Public WithEvents BrowseSSROM As System.Windows.Forms.Button
Friend WithEvents BIIROMLabel As System.Windows.Forms.Label
Public WithEvents BIIROM As System.Windows.Forms.TextBox
Public WithEvents BrowseBIIROM As System.Windows.Forms.Button
Friend WithEvents vMacROMLabel As System.Windows.Forms.Label
Friend WithEvents NoteQemuPPCROM As System.Windows.Forms.Label
Friend WithEvents ProgramFolderLabel As System.Windows.Forms.Label
Friend WithEvents ProgramFolder As System.Windows.Forms.Label
#End Region
End Class

1060
frmOptions.resx Normal file

File diff suppressed because it is too large Load Diff

88
frmOptions.vb Normal file
View File

@ -0,0 +1,88 @@
Option Strict Off
Option Explicit On
Friend Class frmOptions
Inherits System.Windows.Forms.Form
Private Sub cmdCancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCancel.Click
Me.Close()
End Sub
Private Sub cmdOK_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOK.Click
SaveSettings()
Me.Close()
End Sub
Private Sub BrowseFolder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BrowseDefFolder.Click
FolderBrowser.ShowDialog()
DefaultMacFolder.Text = FolderBrowser.SelectedPath
End Sub
Private Sub OptionsContainer_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsContainer.SelectedIndexChanged
ROM.Visible = False
Folders.Visible = False
TestNewWindow.Visible = False
Select Case OptionsContainer.FocusedItem.Index
Case 0
TestNewWindow.Visible = True
Case 1
'ShittyWindow.Visible = True
Case 2
ROM.Visible = True
Case 3
Folders.Visible = True
End Select
End Sub
Private Sub frmOptions_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
LoadSettings()
End Sub
Public Sub LoadSettings()
Dim ROMFileNames As String = System.IO.Path.GetFileName(My.Settings.vMacROM) & ", " & System.IO.Path.GetFileName(My.Settings.BasiliskROM) & ", " & System.IO.Path.GetFileName(My.Settings.SheepShaverROM)
OptionsContainer.Items(2).SubItems(1).Text = ROMFileNames
OptionsContainer.Items(3).SubItems(1).Text = My.Settings.DefaultMacFolder
DefaultMacFolder.Text = My.Settings.DefaultMacFolder
ProgramFolder.Text = My.Application.Info.DirectoryPath
vMacROM.Text = My.Settings.vMacROM
BIIROM.Text = My.Settings.BasiliskROM
SSROM.Text = My.Settings.SheepShaverROM
If My.Settings.TestWindow = True Then
EnableTest.Checked = True
Else
DisableTest.Checked = True
End If
End Sub
Public Sub SaveSettings()
My.Settings.DefaultMacFolder = DefaultMacFolder.Text
My.Settings.vMacROM = vMacROM.Text
My.Settings.BasiliskROM = BIIROM.Text
My.Settings.SheepShaverROM = SSROM.Text
If EnableTest.Checked = True Then
My.Settings.TestWindow = True
Else
My.Settings.TestWindow = False
End If
End Sub
Private Sub BrowseSSROM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowseSSROM.Click
BrowseOpen.ShowDialog()
If BrowseOpen.FileName <> "" Then
Me.SSROM.Text = BrowseOpen.FileName
End If
End Sub
Private Sub BrowseBIIROM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowseBIIROM.Click
BrowseOpen.ShowDialog()
If BrowseOpen.FileName <> "" Then
BIIROM.Text = BrowseOpen.FileName
End If
End Sub
Private Sub BrowsevMacROM_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BrowsevMacROM.Click
BrowseOpen.ShowDialog()
If BrowseOpen.FileName <> "" Then
vMacROM.Text = BrowseOpen.FileName
End If
End Sub
End Class

1439
frmSettingsBasiliskVM.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

381
frmSettingsBasiliskVM.resx Normal file
View File

@ -0,0 +1,381 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="IconInfo.Text" xml:space="preserve">
<value>Some personalization to your Mac could come very handy. In this page
you can change an icon of your desire for your emulated Mac. Scroll
the bar to see more icons, or click in "Add" to add a picture and set it as
the icon for your Mac</value>
</data>
<metadata name="ControlToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>14, 6</value>
</metadata>
<data name="NetEnableUDP.ToolTip" xml:space="preserve">
<value>The UDP tunnel works connecting the emulator throught your
host operating system. This way the emulator works like a browser,
where it asks for internet throught your local IP. This mode is better
for novices, but if you want to connect the emulated Mac to an
AppleTalk network, you must not use this option.</value>
</data>
<data name="NetServerPorts.ToolTip" xml:space="preserve">
<value>The TCP ports open in the emulated router. The most common
ones are 80, 443, 8080. If you are going to connect to a special
web server, like a hospital one, if you are going to play an
online game that uses a dedicated port, or if you want to open
an email port, type it here, separated with commas.
Example given: 80, 443, 8080, 995</value>
</data>
<data name="NetFTPPorts.ToolTip" xml:space="preserve">
<value>The FTP ports open in the emulated router. The most common
FTP port is 21, but if you are going to connect to a special FTP
server, then you should type here the port where you are going
to connect by.
Example given: 21, 50000, 43, 995</value>
</data>
<data name="NetType.ToolTip" xml:space="preserve">
<value>Slirp: Uses your network and connects the emulator to a
virtualized network with connection to the real network
Router: Emulates a router to which the emulator connects to.
The emulated router connects throught your real network, so
it still has access to the internet. Note that you need to specify
which ports are gonna be open in the router network
None: No network hardware is emulated</value>
</data>
<metadata name="DriveListContext.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>255, 6</value>
</metadata>
<metadata name="DriveIcons.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>147, 6</value>
</metadata>
<data name="DriveIcons.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADG
DwAAAk1TRnQBSQFMAgEBAwEAAbgBAAG4AQABEAEAARABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFA
AwABEAMAAQEBAAEgBgABEBIAAy0BRQFaAVcBWgHFAVwBWQFcAcwBWwFZAVsBxAGQAYsBjgH/A10B0gNd
AdIDXQHSA10B0gNdAdIDXQHSAV4CXAHOAVgCVgG7AVgCVgG7AVwBWgFcAc0DQgF0QAADOgFgA14BzgFj
AlsB/wFjAlsB/wFjAlsB/wFjAlsB/wFjAlsB/wFjAlsB/wFjAlsB/wFjAlsB/wFjAlsB/wFjAlsB/wFj
AlsB/wFjAlsB/wNYAbkDOgFgQAADXwHoAdEBWwGuAf8BzAFRAacB/wHBAYgBrAH/Ab8CvQH/Ab8CvQH/
AaoCpgH/AaACnAH/AZQCkAH/AY0BigGJAf8BiwGJAYgB/wGBAmYB/wGSATABYgH/AaUBQAGNAf8BuQFJ
AZoB/wFRAlABnxAAAw4BEwM3AVsDUQGiA18B2wNcAeoDXwHbA1IBowM4AV0DDwEUDAADZQHlAUYCQQH/
AbQBrwGwAf8BtAGvAbAB/wG0Aa8BsAH/AbQBrwGwAf8BtAGvAbAB/wG0Aa8BsAH/AbQBrwGwAf8BtAGv
AbAB/wG0Aa8BsAH/AbQBrwGwAf8BlwHGAaUB/wG0Aa8BsAH/AUYCQQH/A2UB5UAAAWkCZAHxAcABWAGk
Af8BvwFMAZ0B/wHAAYsBrQH/AdMC0gH/AawBQQGPAf8BrgFEAZEB/wGqAqYB/wGdApoB/wGQAo0B/wGJ
AoUB/wFfAVwBWwH/AYoBLgFaAf8BnQE7AYYB/wGxAUQBkwH/A04BmQwAAyoBQANUAawE/wH6AfsB+gH/
A+cB/wPWAf8CygHLAf8BwAG+Ab8B/wGwAb0BuAH/A1QBrAMoATwIAAFjAlsB/wG0Aa8BsAH/AdgB1gHV
Af8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHl
AdkB2AH/AWECXQH/ASUBsQFKAf8BRwJEAf8BtAGvAbAB/wFjAlsB/0AAA2EB7gHFAVoBpgH/AcABTwGf
Af8BxwGSAbUB/wPyAf8BsQFEAZMB/wG0AUYBlQH/AcUCwgH/AboCuAH/AagCpgH/AZ0BmgGZAf8BhgKC
Af8BjwEwAV8B/wGeATwBhQH/AbIBRQGUAf8DTgGZCAADKgFBA1kBxwT/A/0B/wPtAf8D3gH/A84B/wG8
AbsBvAH/AbICswH/AakCrAH/A58B/wNZAccDJQE3BAABYwJbAf8BtAGvAbAB/wHYAdYB1QH/AeUB2QHY
Af8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wFJ
AY4BVgH/AQAB6gE8Af8BPAI5Af8BtAGvAbAB/wFjAlsB/0AAA2EB7gHHAV0BqQH/AcABUgGgAf8BxwGV
AbUF/wG2AVIBmwH/AboBUwGbAf8B9ALzAf8D7QH/AdMC0gH/AcICwAH/AaICoAH/AZMBMgFhAf8BnQE7
AYQB/wGyAUUBlAH/A04BmQQAAw8BFANUAawB2wHaAdgB/wHgAd8B3gH/A/cB/wP3Af8B5QLmAf8DzwH/
ArkBugH/A7MB/wGZApgB/wONAf8BpAGlAaQB/wNVAa0DDAEQAWMCWwH/Ab0BuAG5Af8B2AHWAdUB/wHl
AdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHY
Af8BYQJdAf8BGQHAAUgB/wFMAU0BSwH/AbUBsAGxAf8BYwJbAf9AAANhAe4ByAFgAaoB/wHIAVoBqAH/
AbMBVQGcAf8BuAGJAaoB/wGkAVcBkwH/AaQBVQGSAf8BuwGLAawB/wG5AYoBqQH/AbQBggGlAf8BrgFo
AZ4B/wGiAVgBjwH/AZMBMQFjAf8BmgE5AYIB/wGzAUIBkwH/A04BmQQAAzoBYAGLAZgBmQH7AcEBzwHZ
Af8ByQLKAf8B3wHhAd0B/wH5AfoB+QH/A2oB8gNhAeQDagHzAqABoQH/AY4BjwGOAf8BngGfAZ0B/wGw
Aa8BsQH/AcQBwAHGAf8DNQFWAWMCWwH/AcQCvwH/AdgB1gHVJf8ByQH3AdkB/wHZAtYB/wHGAcIBwQH/
AWMCWwH/QAADYQHuAcQBXwGpAf8BvgFmAaUB/wHAAWUBpwH/AbkBWgGdAf8BvAFeAaIB/wG8AVoBnwH/
AbcBUwGZAf8BtgFRAZgB/wG1AVABlwH/AbMBTgGVAf8BswFMAZIB/wGzAVIBlQH/AbMBSAGUAf8BtQE/
AZIB/wNOAZkEAANTAaUBswHdAeQB/wG6AdAB6gH/AcoBxgHmAf8B0QHHAdoB/wNeAdkDUAGeA04BlQNR
AaIDXAHfAasBpgGtAf8BtgGuAboB/wGsAaYBsAH/Aa0BqAGwAf8DUQGcAzoBYANlAeUBtAGvAbAB/wG0
Aa8BsAH/AbQBrwGwAf8BtAGvAbAB/wG0Aa8BsAH/AbQBrwGwAf8BtAGvAbAB/wG0Aa8BsAH/AbQBrwGw
Af8BtAGvAbAB/wG1AbABsQH/AbQBrwGwAf8DZQHlAzoBYEAAA2EB7gHAAWcBqAH/AbABXwGdAf8B3QHG
AdEB/wH4AfYB8QH/AfgB9QHwAf8B+AH1Ae4B/wH4AfQB7QH/AfgB9AHrAf8B+AHzAeoB/wH4AfMB6QH/
AfgB8gHnAf8B3QHGAdEB/wG+AYgBpgH/AbYBOwGTAf8DTgGZBAADXgHOAZUBlAGWAf8BkwGVAZkB/wGj
AZ4BrgH/AWoBaAFsAfUDUgGhAz4BawMrAUMDQAFxA1UBsAF2AXIBeAH6AZkBlQGbAf8BkgGQAZEB/wOU
Af8DWAG8BAADPwFtA1UBtQJrAWgB9gHhAeAB4QH/AusB7QH/Au0B7wH/Au0B7wH/Au0B7wH/Au0B7wH/
AuwB7gH/Ad8B3gHfAf8BggKBAfcDVQG1Az8BbUQAA2EB7gHDAYIBqwH/AbABXwGdAf8B+gH7AfgB/wH5
AfgB9QH/AfkB+AH0Af8B+QH3AfMB/wH5AfcB8gH/AfkB9gHxAf8B+QH2AfAB/wH5AfUB7wH/AfkB9QHu
Af8B+wH8AfQB/wG+AYgBpgH/AboBPwGVAf8DTgGZBAADYAHUApMBkQH/AYgBiQGGAf8BhwGIAYYB/wNi
Ae8DUQGfAzoBYQMYASIDOgFhA1MBqAF0AXEBbQH3AaYBpQGiAf8BrAGjAagB/wG0AaYBrAH/A1sBxAwA
AwoBDQNRAaADWwHEA14B2ANeAdgDXgHYA14B2ANaAb0DUQGgAwQBBUwAA2EB7gHDAYUBrAH/AbABXwGd
Af8C+gH4Af8B+QH3AfUB/wH5AfcB9AH/AfkB9gHyAf8B+QH2AfIB/wH5AfYB8AH/AfkB9QHvAf8B+QH1
Ae4B/wH4AfQB7QH/AvsB8wH/Ab4BiAGmAf8BvgFDAZsB/wNOAZkEAANbAcMBmAGXAZgB/wGWAZABlwH/
AZgBkgGcAf8BggF2AYQB+wNXAbgDSAGDA0MBeANIAYMDWQHCAaYBogFGAf0BigG5AV8B/wFkAcUBlQH/
AZEByQGxAf8DVAGvgAADYQHuAcUBiQGvAf8BsAFfAZ0B/wL6AfgB/wH5AfgB9QH/AfkB9wH0Af8B+QH3
AfQB/wH5AfcB8gH/AfkB9gHxAf8B+QH1AfAB/wH5AfUB7wH/AfkB9QHuAf8C+wH0Af8BvgGIAaYB/wHA
AUcBngH/A04BmQQAA04BlAGmAZ8BqQH/AZgBkgGcAf8BkgGQAZMB/wGcAZsBnAH/A2UB9ANaAcUDVgG2
A1sBxgNlAfQBmwGdAZEB/wGBAakBZgH/ASgB0wGBAf8BAAH/AaQB/wFFAkYBf4AAA2EB7gHFAYwBsAH/
AbABXwGdAf8C+gH5Af8B+QH4AfYB/wH5AfgB9QH/AfkB+AH1Af8B+QH3AfMB/wH5AfYB8gH/AfkB9gHx
Af8B+QH1AfAB/wH5AfUB7wH/AfoB+wH0Af8BvgGIAaYB/wHEAUsBogH/A04BmQQAAy8BSQNkAewBlQGW
AZUB/wGfAaABnwH/AbgBuQG3Af8B3QHcAd0B/wH3AvgB/wOWAfsDzwH/ArsBvAH/AqsBrgH/AaIBnQGi
Af8BjgGkAZsB/wFZAmcB8gMgAS+AAAFpAmcB8gHHAY8BsgH/AbABXwGdAf8C+gH5Af8B+QH4AfcB/wH5
AfgB9gH/AfkB+AH1Af8B+QH3AfQB/wH5AfcB8wH/AfkB9gHyAf8B+QH2AfEB/wH5AfUB8AH/AfoB+wH1
Af8BvgGIAaYB/wHLAVABqAH/A04BmAQAAwwBEANIAYYCtQG0Af8DuQH/Ac8BzgHPAf8B7AHrAewB/wP7
Af8D6wH/A9YB/wPFAf8DtQH/Aa8BrgGvAf8BswGuAbEB/wNDAXiEAANcAdED1QH/AbABXwGdAf8D+gH/
AfoC+QH/AvoB+AH/AfoB+QH4Af8B+wH5AfcB/wH6AfkB9gH/AfoB+AH1Af8B+gH4AfMB/wH6AfcB8gH/
AvwB9wH/Ab4BiAGmAf8D1QH/AUwBSwFMAY8IAAMOARMDUAGbAdgB1wHYAf8B6gHoAeoB/wP1Af8D+AH/
AegC6QH/A9kB/wPLAf8DxwH/AcECwAH/A0wBkAMHAQmEAANVAbUBXwE0AVQB/wGwAV8BnQH/AvoB+AH/
AfcB9QHzAf8B9AHyAfAB/wHzAe8B7AH/AfAB7AHpAf8B7wHrAecB/wHvAesB5gH/Ae8B6wHmAf8B7wHq
AeYB/wHxAfAB6wH/Ab4BiAGmAf8BXwE0AVQB/wNKAY0MAAMKAQ4DPwFtA2EB4gj/AfcC9gH/A+sB/wPf
Af8DXgHdAz0BaAMEAQaIAANdAdMB0AGhAcAB/wHQAaEBwAH/Ad0BxgHRAf8B3QHGAdEB/wHdAcYB0QH/
Ad0BxgHRAf8B3QHGAdEB/wHdAcYB0QH/Ad0BxgHRAf8B3QHGAdEB/wHdAcYB0QH/Ad0BxgHRAf8B0AGh
AcAB/wFvAVkBagH1A0EBchAAAwIBAwMWAR4DNgFZA00BkQNUAaYDTAGSAzQBVAMQARaQAAFCAU0BPgcA
AT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/AwAC/wYAAfABBwYAAeABAwYAAcABAQYAAYAHAAGA
BwABgAcAAYABAAGAAQEEAAGAAQAB4AEHBAABgAEAAv8EAAGAAQAC/wQAAYABAAL/BAABgAEBAv8EAAHA
AQEC/wQAAeABAwL/BAAB8AEPAv8CAAs=
</value>
</data>
<data name="JITFPU.ToolTip" xml:space="preserve">
<value>If JIT Compiler is enabled, and this option is marked, it will
compile too the Floating Point Unit (FPU) instructions. This
is a chipset presents in some old 68k Macs, needed for certain
applications. It also makes emulation a bit faster, but might
brake some things.</value>
</data>
<data name="JITCacheSize.ToolTip" xml:space="preserve">
<value>Size of the JIT cache. This is used so that the JIT doesn't
have recompile the instructions used early. The bigger,
the more instructions it will cache. Note that this is
recommended for slow CPUs, but requires enough
memory.</value>
</data>
<data name="MiscHwFPU.ToolTip" xml:space="preserve">
<value>The Floating Point Unit (FPU) is a chip
which allows some programs to run
quickier and smoother. If you're sure
don't need it or some program doesn't
work properly with this enabled, you
can disable it. Note also that the
Motorola 68040 cannot use FPU</value>
</data>
<metadata name="ControlToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>14, 6</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>34</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAABAAoAQAANgAAACAgAAAAAAgAqAgAAF4BAAAwMAAAAAAIAKgOAAAGCgAAKAAAABAA
AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAQAAAAEAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAd3d3AAAAAAAHd3AAAAAAAAd3cA
AAB3d3d4d3d3d3d3d3d3d3d3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPgfAAD8PwAA/D8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAIAAAAEAA
AAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDA
wADA3MAA8MqmAAQEBAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8
/wBQUP8AkwDWAP/szADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAz
zAAAM/8AAGYAAABmMwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADM
MwAAzGYAAMyZAADMzAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMz
MwAzM2YAMzOZADMzzAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZ
zAAzmf8AM8wAADPMMwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYA
ZgBmAJkAZgDMAGYA/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZ
AABmmTMAZplmAGaZmQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA
/wD/AMwAmZkAAJkzmQCZAJkAmQDMAJkAAACZMzMAmQBmAJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlm
zACZM/8AmZkzAJmZZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnM
ZgCZ/5kAmf/MAJn//wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxm
AADMZjMAmWZmAMxmmQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzM
mQDMzMwAzMz/AMz/AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8z
mQD/M8wA/zP/AP9mAAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/M
AAD/zDMA/8xmAP/MmQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//
ZgAhAKUAX19fAHd3dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgA8Pv/AKSg
oACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAoKCgoKCgoKCgoKBwcHBwcHBwcHBwoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcH
BwcKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgcHBwcHBwcHBwcHBwcH
B+zsBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKChEREREREREREREREREREREREREREREREREREREKCgoK
EREREREREREREREREREREREREREREREREREREQoKCgoRERERERERERERERERERERERERERERERERERER
CgoKChEREREREREREREREREREREREREREREREREREREKCgoKERERERERERERERERERERERERERERERER
EREREQoKCgoRERERERERERERERERERERERERERERERERERERCgoKChERERERERERERERERERERERERER
EREREREREREKCgoKEREREREREREREREREREREREREREREREREREREQoKCgoRERERERERERERERERERER
ERERERERERERERERCgoKChEREREREREREREREREREREREREREREREREREREKCgoKERERERERERERERER
EREREREREREREREREREREQoKCgoRERERERERERERERERERERERERERERERERERERCgoKChERERERERER
EREREREREREREREREREREREREREKCgoKEREREREREREREREREREREREREREREREREREREQoKCgoRERER
ERERERERERERERERERERERERERERERERCgoKChEREREREREREREREREREREREREREREREREREREKCgoK
EREREREREREREREREREREREREREREREREREREQoKCgoRERERERERERERERERERERERERERERERERERER
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgr/4Af///AP///wD///8A////AP/4AA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAB/////ygAAAAwAAAAYAAAAAEA
CAAAAAAAAAkAAAAAAAAAAAAAAAEAAAABAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDc
wADwyqYABAQEAAgICAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ
/wCTANYA/+zMAMbW7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz
/wAAZgAAAGYzAABmZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADM
ZgAAzJkAAMzMAADM/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMz
ZgAzM5kAMzPMADMz/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ
/wAzzAAAM8wzADPMZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYA
mQBmAMwAZgD/AGYzAABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZ
MwBmmWYAZpmZAGaZzABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8A
zACZmQAAmTOZAJkAmQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz
/wCZmTMAmZlmAJmZmQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/
mQCZ/8wAmf//AMwAAACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxm
MwCZZmYAzGaZAMxmzACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzM
zADMzP8AzP8AAMz/MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8z
zAD/M/8A/2YAAP9mMwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/M
MwD/zGYA/8yZAP/MzAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEA
pQBfX18Ad3d3AIaGhgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICA
gAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8ACgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHBwcHBwcH
BwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
BwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcH
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcH
BwcHBwcHBwcHBwcHBwcHBwfs7AcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgcHBwcHBwcHBwcHBwcHBwcH
BwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcKBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK//8AAP//
AAD//4AB//8AAP//wAP//wAA///AA///AAD//8AD//8AAP//wAP//wAA///AA///AAD//8AD//8AAMAA
AAAAAwAAgAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAB
AADAAAAAAAMAAP///////wAA
</value>
</data>
</root>

733
frmSettingsBasiliskVM.vb Normal file
View File

@ -0,0 +1,733 @@
Imports System
Imports System.IO
Imports System.Collections
Public Class frmSettingsBasiliskVM
Public ConfigFile As String
Public VMName As String
Public Sub File(ByVal File As String, ByVal vName As String)
ConfigFile = File
VMName = vName
End Sub
Public Sub Settings()
Dim Reader As New StreamReader(ConfigFIle)
Dim ConfigValues As New ArrayList()
Dim strContainer As String = ""
Do
strContainer = Reader.ReadLine()
If Not strContainer Is Nothing Then
ConfigValues.Add(strContainer)
End If
Loop Until strContainer Is Nothing
Reader.Close()
For x As Integer = 0 To ConfigValues.Count - 1
If InStr(ConfigValues(x), "disk") <> 0 Then
With DriveList.Items.Add(ConfigValues(x).ToString.Substring(5))
.ImageKey = "Drive"
.SubItems.Add("Disk")
.SubItems.Add("")
End With
End If
If InStr(ConfigValues(x), "floppy") <> 0 Then
With DriveList.Items.Add(ConfigValues(x).ToString.Substring(7))
.ImageKey = "Floppy"
.SubItems.Add("Floppy")
.SubItems.Add("")
End With
End If
If ConfigValues(x).ToString.Substring(0, 5) = "cdrom" Then
With DriveList.Items.Add(ConfigValues(x).ToString.Substring(6))
.ImageKey = "Disc"
.SubItems.Add("CD")
.SubItems.Add("")
End With
End If
If InStr(ConfigValues(x), "screen") <> 0 Then
Dim a As String = ConfigValues(x).ToString.Substring(7)
Dim b() As String = Split(a, "/")
Dim FoundX As Boolean = False
Dim FoundY As Boolean = False
Select Case b(0)
Case "win"
ScrMode.SelectedIndex = 0
Case "dga"
ScrMode.SelectedIndex = 1
End Select
For c As Integer = 0 To ScrResY.Items.Count - 1
If FoundX = True And FoundY = True Then
Exit For
End If
If InStr(ScrResX.Items.Item(c).ToString, b(1)) <> 0 Then
ScrResX.SelectedIndex = c
FoundX = True
ElseIf c = ScrResX.Items.Count - 1 And FoundX = False Then
ScrResX.Items.Add(b(1))
ScrResX.SelectedIndex = ScrResX.Items.Count - 1
End If
If InStr(ScrResY.Items.Item(c).ToString, b(2)) <> 0 Then
ScrResY.SelectedIndex = c
FoundY = True
ElseIf c = ScrResY.Items.Count - 1 And FoundY = False Then
ScrResY.Items.Add(b(2))
ScrResY.SelectedIndex = ScrResY.Items.Count - 1
End If
Next
End If
If InStr(ConfigValues(x), "seriala") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(8)
Case "COM1"
SerialA.SelectedIndex = 0
Case "COM2"
SerialA.SelectedIndex = 1
Case "COM3"
SerialA.SelectedIndex = 2
Case "COM4"
SerialA.SelectedIndex = 3
Case "COM5"
SerialA.SelectedIndex = 4
Case "COM6"
SerialA.SelectedIndex = 5
Case "LPT1"
SerialA.SelectedIndex = 6
Case "LPT2"
SerialA.SelectedIndex = 7
Case "LPT3"
SerialA.SelectedIndex = 8
Case "LPT4"
SerialA.SelectedIndex = 9
Case "LPT5"
SerialA.SelectedIndex = 10
Case "LPT6"
SerialA.SelectedIndex = 11
Case "FILE"
SerialA.SelectedIndex = 12
End Select
End If
If InStr(ConfigValues(x), "serialb") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(8)
Case "COM1"
SerialB.SelectedIndex = 0
Case "COM2"
SerialB.SelectedIndex = 1
Case "COM3"
SerialB.SelectedIndex = 2
Case "COM4"
SerialB.SelectedIndex = 3
Case "COM5"
SerialB.SelectedIndex = 4
Case "COM6"
SerialB.SelectedIndex = 5
Case "LPT1"
SerialB.SelectedIndex = 6
Case "LPT2"
SerialB.SelectedIndex = 7
Case "LPT3"
SerialB.SelectedIndex = 8
Case "LPT4"
SerialB.SelectedIndex = 9
Case "LPT5"
SerialB.SelectedIndex = 10
Case "LPT6"
SerialB.SelectedIndex = 11
Case "FILE"
SerialB.SelectedIndex = 12
End Select
End If
If InStr(ConfigValues(x), "ether") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(6)
Case "slirp"
NetType.SelectedIndex = 0
Case "router"
NetType.SelectedIndex = 1
End Select
End If
If InStr(ConfigValues(x), "udpport") <> 0 Then
NetUPDPort.Text = ConfigValues(x).ToString.Substring(8)
End If
If InStr(ConfigValues(x), "udptunnel") <> 0 Then
If ConfigValues(x).ToString.Substring(10) = "true" Then
NetEnableUDP.Checked = True
Else
NetEnableUDP.Checked = False
End If
End If
If ConfigValues(x).ToString.Substring(0, 3) = "rom" Then
MiscROM.Text = ConfigValues(x).ToString.Substring(4)
End If
If InStr(ConfigValues(x), "bootdrive") <> 0 Then
Dim bd As Integer = ConfigValues(x).ToString.Substring(10)
If bd <= DriveList.Items.Count Then
DriveList.Items.Item(bd).SubItems.Item(2).Text = "*"
End If
End If
If InStr(ConfigValues(x), "bootdriver") Then
Dim BootDriver As Integer = ConfigValues(x).ToString.Substring(11)
Select Case BootDriver
Case 0
DriveBootDisk.Checked = True
Case -62
DriveBootCD.Checked = True
End Select
End If
If InStr(ConfigValues(x), "ramsize") <> 0 Then
Dim RAMMiB As Long = ConfigValues(x).ToString.Substring(7)
RAMMiB = (RAMMiB / 1024) / 1024
MemoryBox.Text = RAMMiB
End If
If InStr(ConfigValues(x), "frameskip") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(10)
Case "12"
ScrRefresh.SelectedIndex = 0
Case "8"
ScrRefresh.SelectedIndex = 1
Case "6"
ScrRefresh.SelectedIndex = 2
Case "4"
ScrRefresh.SelectedIndex = 3
Case "2"
ScrRefresh.SelectedIndex = 4
Case "1"
ScrRefresh.SelectedIndex = 5
End Select
End If
If InStr(ConfigValues(x), "modelid") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(8)
Case "5"
MiscHwModel.SelectedIndex = 0
Case "14"
MiscHwModel.SelectedIndex = 1
End Select
End If
If ConfigValues(x).ToString.Substring(0, 3) = "cpu" Then
Select Case ConfigValues(x).ToString.Substring(4)
Case "2"
MiscHwCPU.SelectedIndex = 0
Case "3"
MiscHwCPU.SelectedIndex = 1
Case "4"
MiscHwCPU.SelectedIndex = 2
End Select
End If
If ConfigValues(x).ToString.Substring(0, 3) = "fpu" Then
Select Case ConfigValues(x).ToString.Substring(4)
Case "true"
MiscHwFPU.Checked = True
Case "false"
MiscHwFPU.Checked = False
End Select
End If
If InStr(ConfigValues(x), "nocdrom") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(8)
Case "false"
MiscHwCD.Checked = True
Case "true"
MiscHwCD.Checked = False
End Select
End If
If InStr(ConfigValues(x), "nosound") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(8)
Case "false"
MiscHwSound.Checked = True
Case "true"
MiscHwSound.Checked = False
End Select
End If
If InStr(ConfigValues(x), "nogui") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(6)
Case "false"
MiscEnableGUI.Checked = True
Case "true"
MiscEnableGUI.Checked = False
End Select
End If
If ConfigValues(x).ToString.Substring(0, 3) = "jit" Then
Select Case ConfigValues(x).ToString.Substring(4)
Case "true"
JITEnable.Checked = True
Case "false"
JITEnable.Checked = False
End Select
End If
If InStr(ConfigValues(x), "jitfpu") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(7)
Case "true"
JITFPU.Checked = True
Case "false"
JITFPU.Checked = False
End Select
End If
If InStr(ConfigValues(x), "jitdebug") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(9)
Case "true"
JITDebug.Checked = True
Case "false"
JITDebug.Checked = False
End Select
End If
If InStr(ConfigValues(x), "jitcachesize") <> 0 Then
Dim Value As String = ConfigValues(x).ToString.Substring(13)
Dim Found As Boolean
For c As Integer = 0 To JITCacheSize.Items.Count - 1
If Found = True Then
Exit For
End If
If InStr(JITCacheSize.Items.Item(c).ToString, Value) <> 0 Then
JITCacheSize.SelectedIndex = c
Found = True
ElseIf c = JITCacheSize.Items.Count - 1 And Found = False Then
JITCacheSize.Items.Add(Value)
JITCacheSize.SelectedIndex = JITCacheSize.Items.Count - 1
End If
Next
End If
If InStr(ConfigValues(x), "jitlazyflush") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(13)
Case "true"
JITLazyFlush.Checked = True
Case "false"
JITLazyFlush.Checked = False
End Select
End If
If InStr(ConfigValues(x), "jitinline") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(10)
Case "true"
JITInLine.Checked = True
Case "false"
JITInLine.Checked = False
End Select
End If
If InStr(ConfigValues(x), "keyboardtype") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(13)
Case "5"
InputEmuKbdType.SelectedIndex = 0
Case "6"
Case "7"
Case "8"
Case "9"
Case "10"
Case "11"
InputEmuKbdType.SelectedIndex = 1
Case "12"
Case "13"
InputEmuKbdType.SelectedIndex = 2
End Select
End If
If InStr(ConfigValues(x), "keycodes") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(9)
Case "true"
InputKeycodesEnable.Checked = True
Case "false"
InputKeycodesEnable.Checked = False
End Select
End If
If InStr(ConfigValues(x), "keycodesfile") <> 0 Then
InputKeyCodesPath.Text = ConfigValues(x).ToString.Substring(13)
End If
If InStr(ConfigValues(x), "mousewheelmode") <> 0 Then
If InStr(ConfigValues(x).ToString.Substring(14), "0") Then
InputMouseWheelMode.SelectedIndex = 0
End If
If InStr(ConfigValues(x).ToString.Substring(14), "1") Then
InputMouseWheelMode.SelectedIndex = 1
End If
End If
If InStr(ConfigValues(x), "mousewheellines") <> 0 Then
Dim Number As Integer = ConfigValues(x).ToString.Substring(15)
InputMouseWheelLines.Value = Number
End If
If InStr(ConfigValues(x), "ignoresegv") <> 0 Then
If ConfigValues(x).ToString.Substring(11) = "true" Then
MiscIgnoreSegv.Checked = True
Else
MiscIgnoreSegv.Checked = False
End If
End If
If InStr(ConfigValues(x), "idlewait") <> 0 Then
If ConfigValues(x).ToString.Substring(9) = "true" Then
MiscIdleWait.Checked = True
Else
MiscIdleWait.Checked = False
End If
End If
If InStr(ConfigValues(x), "enableextfs") <> 0 Then
If ConfigValues(x).ToString.Substring(12) = "true" Then
ExtFSEnable.Checked = True
End If
End If
If InStr(ConfigValues(x), "debugextfs") <> 0 Then
If ConfigValues(x).ToString.Substring(11) = "true" Then
JITDebugExtFS.Checked = True
End If
End If
If InStr(ConfigValues(x), "extdrives") <> 0 Then
Dim StringValue As String = ConfigValues(x).ToString.Substring(10)
For a As Integer = 0 To StringValue.Length - 1
Select Case StringValue.Substring(a, 1)
Case "C"
ExtFSDrives.SetItemCheckState(0, CheckState.Checked)
Case "D"
ExtFSDrives.SetItemCheckState(1, CheckState.Checked)
Case "E"
ExtFSDrives.SetItemCheckState(2, CheckState.Checked)
Case "F"
ExtFSDrives.SetItemCheckState(3, CheckState.Checked)
Case "G"
ExtFSDrives.SetItemCheckState(4, CheckState.Checked)
Case "H"
ExtFSDrives.SetItemCheckState(5, CheckState.Checked)
Case "I"
ExtFSDrives.SetItemCheckState(6, CheckState.Checked)
Case "J"
ExtFSDrives.SetItemCheckState(7, CheckState.Checked)
Case "K"
ExtFSDrives.SetItemCheckState(8, CheckState.Checked)
Case "L"
ExtFSDrives.SetItemCheckState(9, CheckState.Checked)
Case "M"
ExtFSDrives.SetItemCheckState(10, CheckState.Checked)
Case "N"
ExtFSDrives.SetItemCheckState(11, CheckState.Checked)
Case "O"
ExtFSDrives.SetItemCheckState(12, CheckState.Checked)
Case "P"
ExtFSDrives.SetItemCheckState(13, CheckState.Checked)
Case "Q"
ExtFSDrives.SetItemCheckState(14, CheckState.Checked)
Case "R"
ExtFSDrives.SetItemCheckState(15, CheckState.Checked)
Case "S"
ExtFSDrives.SetItemCheckState(16, CheckState.Checked)
Case "T"
ExtFSDrives.SetItemCheckState(17, CheckState.Checked)
Case "U"
ExtFSDrives.SetItemCheckState(18, CheckState.Checked)
Case "V"
ExtFSDrives.SetItemCheckState(19, CheckState.Checked)
Case "W"
ExtFSDrives.SetItemCheckState(20, CheckState.Checked)
Case "X"
ExtFSDrives.SetItemCheckState(21, CheckState.Checked)
Case "Y"
ExtFSDrives.SetItemCheckState(22, CheckState.Checked)
Case "Z"
ExtFSDrives.SetItemCheckState(23, CheckState.Checked)
End Select
Next
End If
If InStr(ConfigValues(x), "pollmedia") <> 0 Then
If ConfigValues(x).ToString.Substring(10) = "true" Then
DrivePollMedia.Checked = True
End If
End If
If InStr(ConfigValues(x), "etherpermanentaddress") <> 0 Then
If ConfigValues(x).ToString.Substring(22) = "true" Then
NetPermPhysicalAddress.Checked = True
End If
End If
If InStr(ConfigValues(x), "ethermulticastmode") <> 0 Then
End If
If InStr(ConfigValues(x), "routerenabled") <> 0 Then
If ConfigValues(x).ToString.Substring(14) = "true" Then
NetRouterEnabled.Checked = True
Else
NetRouterEnabled.Checked = False
End If
End If
If InStr(ConfigValues(x), "ftp_port:list") <> 0 Then
NetFTPPorts.Text = ConfigValues(x).ToString.Substring(14)
End If
If InStr(ConfigValues(x), "tcp_port") <> 0 Then
NetFTPPorts.Text = ConfigValues(x).ToString.Substring(14)
End If
If InStr(ConfigValues(x), "portfile0") <> 0 Then
SAFilePath.Text = ConfigValues(x).ToString.Substring(10)
End If
If InStr(ConfigValues(x), "portfile1") <> 0 Then
SBFilePath.Text = ConfigValues(x).ToString.Substring(10)
End If
If InStr(ConfigValues(x), "displaycolordepth") <> 0 Then
End If
If ConfigValues(x).ToString.Substring(0, 4) = "scsi" Then
Select Case ConfigValues(x).ToString.Substring(0, 5)
Case "scsi0"
Case "scsi1"
Case "scsi2"
Case "scsi3"
Case "scsi4"
Case "scsi5"
Case "scsi6"
End Select
End If
EMCEditor.Items.Add(ConfigValues(x))
Next
End Sub
Private Sub frmSettingsBasiliskVM_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
SetInitialData()
Settings()
End Sub
Private Sub OptionList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionList.SelectedIndexChanged
HidePages()
Select Case OptionList.FocusedItem.Index
Case 0
MacNameFrame.Visible = True
Case 1
IconFrame.Visible = True
Case 2
MemoryFrame.Visible = True
Case 3
DriveFrame.Visible = True
Case 4
NetworkFrame.Visible = True
Case 5
ScreenFrame.Visible = True
Case 6
InputFrame.Visible = True
Case 7
SerialFrame.Visible = True
Case 8
MiscHwFrame.Visible = True
Case 9
ExtFSFrame.Visible = True
Case 10
MiscFrame.Visible = True
Case 11
JITFrame.Visible = True
Case 12
EMCFrame.Visible = True
End Select
End Sub
Public Sub HidePages()
MacNameFrame.Visible = False
IconFrame.Visible = False
MemoryFrame.Visible = False
DriveFrame.Visible = False
NetworkFrame.Visible = False
ScreenFrame.Visible = False
InputFrame.Visible = False
SerialFrame.Visible = False
MiscHwFrame.Visible = False
ExtFSFrame.Visible = False
MiscFrame.Visible = False
JITFrame.Visible = False
EMCFrame.Visible = False
End Sub
Public Sub SetInitialData()
Dim SysMem As Long = (My.Computer.Info.TotalPhysicalMemory / 1024) / 1024
MacName.Text = VMName
If SysMem < 1024 Then
MemoryTracker.Maximum = SysMem
End If
NetType.SelectedIndex = 0
End Sub
Private Sub ScrResCust_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScrResCust.CheckedChanged
If ScrResCust.Checked = True Then
ScrResX.DropDownStyle = ComboBoxStyle.DropDown
ScrResY.DropDownStyle = ComboBoxStyle.DropDown
Else
ScrResX.DropDownStyle = ComboBoxStyle.DropDownList
ScrResY.DropDownStyle = ComboBoxStyle.DropDownList
End If
End Sub
Private Sub MemoryBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemoryBox.TextChanged
MemoryTracker.Value = MemoryBox.Text
End Sub
Private Sub MemoryTracker_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemoryTracker.Scroll
MemoryBox.Text = MemoryTracker.Value
End Sub
Private Sub MiscHwCPU_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MiscHwCPU.SelectedIndexChanged
If MiscHwCPU.SelectedIndex = 2 Then
MiscHwFPU.Enabled = False
MiscHwFPU.Checked = True
Else
MiscHwFPU.Enabled = True
End If
End Sub
Private Sub DriveList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveList.SelectedIndexChanged
If DriveList.FocusedItem.Index <> -1 Then
ContextSelectedDrive(True)
Else
ContextSelectedDrive(False)
End If
End Sub
Public Sub ContextSelectedDrive(ByVal IsSelected As Boolean)
If IsSelected = True Then
DriveListContext.Items.Item(3).Enabled = True
DriveListContext.Items.Item(4).Enabled = True
Else
DriveListContext.Items.Item(3).Enabled = False
DriveListContext.Items.Item(4).Enabled = False
End If
End Sub
Private Sub SetAsBootDriveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextSetAsBoot.Click
For x As Integer = 0 To DriveList.Items.Count - 1
If DriveList.Items.Item(x).SubItems.Item(2).Text = "*" Then
DriveList.Items.Item(x).SubItems.Item(2).Text = ""
End If
Next
DriveList.FocusedItem.SubItems.Item(2).Text = "*"
End Sub
Private Sub ContextRemoveDrive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextRemoveDrive.Click
Dim Remove As Integer = MsgBox("Are you sure you want to remove ''" & DriveList.FocusedItem.Text & "'' from the drives list?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Remove drive")
If Remove = 6 Then
DriveList.FocusedItem.Remove()
End If
End Sub
Private Sub NetEnableUDP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NetEnableUDP.CheckedChanged
If NetEnableUDP.Checked = False Then
NetUPDPort.Enabled = False
NetUPDPortLabel.Enabled = False
Else
NetUPDPort.Enabled = True
NetUPDPortLabel.Enabled = True
End If
End Sub
Private Sub NetType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NetType.SelectedIndexChanged
If NetType.SelectedIndex = 1 Then
NetRouterConfig.Visible = True
NetRouterEnabled.Enabled = True
Else
NetRouterConfig.Visible = False
NetRouterEnabled.Enabled = False
End If
End Sub
Private Sub InputEnableKeycodes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputKeycodesEnable.CheckedChanged
If InputKeycodesEnable.Checked = False Then
InputKeyCodesPathPanel.Enabled = False
Else
InputKeyCodesPathPanel.Enabled = True
End If
End Sub
Private Sub DriveRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveRemove.Click
Dim Remove As Integer = MsgBox("Are you sure you want to remove ''" & DriveList.FocusedItem.Text & "'' from the drives list?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Remove drive")
If Remove = 6 Then
DriveList.FocusedItem.Remove()
End If
End Sub
Private Sub DriveSetBootDrive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveSetBootDrive.Click
For x As Integer = 0 To DriveList.Items.Count - 1
If DriveList.Items.Item(x).SubItems.Item(2).Text = "*" Then
DriveList.Items.Item(x).SubItems.Item(2).Text = ""
End If
Next
DriveList.FocusedItem.SubItems.Item(2).Text = "*"
End Sub
Private Sub ExtFSEnable_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExtFSEnable.CheckedChanged
If ExtFSEnable.Checked = True Then
ExtFSDrivesLabel.Visible = True
ExtFSDrives.Visible = True
Else
ExtFSDrivesLabel.Visible = False
ExtFSDrives.Visible = False
End If
End Sub
Private Sub EMCEditor_ItemActivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles EMCEditor.ItemActivate
EMCEditor.FocusedItem.BeginEdit()
End Sub
Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
SaveConfig()
Me.Close()
End Sub
Public Sub SaveConfig()
Dim File As String = ""
For x As Integer = 0 To EMCEditor.Items.Count - 1
File = File & EMCEditor.Items.Item(x).Text & vbCrLf
Next
ConfigFileHandler.Write(File, ConfigFile)
End Sub
End Class

932
frmSettingsQemuVM.Designer.vb generated Normal file
View File

@ -0,0 +1,932 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSettingsQemuVM
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim ListViewItem10 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Name", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem11 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Icon", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem12 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Memory")
Dim ListViewItem13 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Drives", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem14 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Network", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem15 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Screen", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem16 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Mouse and keyboard")
Dim ListViewItem17 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Serial ports")
Dim ListViewItem18 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Miscelaneous")
Me.BrowseIcon = New System.Windows.Forms.Button
Me.OptionPanel = New System.Windows.Forms.Panel
Me.SerialFrame = New System.Windows.Forms.GroupBox
Me.PrinterPort = New System.Windows.Forms.ComboBox
Me.PrinterPortLabel = New System.Windows.Forms.Label
Me.PrinterOutputFile = New System.Windows.Forms.Panel
Me.PrinterOutputPath = New System.Windows.Forms.TextBox
Me.BrowsePOFile = New System.Windows.Forms.Button
Me.ModemPort = New System.Windows.Forms.ComboBox
Me.Label2 = New System.Windows.Forms.Label
Me.ModemOutputFile = New System.Windows.Forms.Panel
Me.ModemOutputPath = New System.Windows.Forms.TextBox
Me.BrowseMOFile = New System.Windows.Forms.Button
Me.MiscFrame = New System.Windows.Forms.GroupBox
Me.IgnoreIllegal = New System.Windows.Forms.CheckBox
Me.IdleCPU = New System.Windows.Forms.CheckBox
Me.Enable68kEmu = New System.Windows.Forms.CheckBox
Me.EnableJIT = New System.Windows.Forms.CheckBox
Me.NetworkFrame = New System.Windows.Forms.GroupBox
Me.NetInterfaceLabel = New System.Windows.Forms.Label
Me.NetInterface = New System.Windows.Forms.ComboBox
Me.RouterPanel = New System.Windows.Forms.Panel
Me.FTPPortsLabel = New System.Windows.Forms.Label
Me.ServerPortsLabel = New System.Windows.Forms.Label
Me.FTPPorts = New System.Windows.Forms.TextBox
Me.ServerPorts = New System.Windows.Forms.TextBox
Me.InputFrame = New System.Windows.Forms.GroupBox
Me.KeyboardGroup = New System.Windows.Forms.GroupBox
Me.KeyCodesPathLabel = New System.Windows.Forms.Label
Me.KeyCodesPath = New System.Windows.Forms.TextBox
Me.UseKeycodes = New System.Windows.Forms.CheckBox
Me.BrowseKeyCodes = New System.Windows.Forms.Button
Me.MouseGroup = New System.Windows.Forms.GroupBox
Me.ScrollLinesLabel = New System.Windows.Forms.Label
Me.WheelFunctionLabel = New System.Windows.Forms.Label
Me.WheelFunction = New System.Windows.Forms.ComboBox
Me.ScrollLines = New System.Windows.Forms.NumericUpDown
Me.ScreenFrame = New System.Windows.Forms.GroupBox
Me.CustResolution = New System.Windows.Forms.CheckBox
Me.VMResHeight = New System.Windows.Forms.ComboBox
Me.VMResWidth = New System.Windows.Forms.ComboBox
Me.VMResLabel = New System.Windows.Forms.Label
Me.VMResDef = New System.Windows.Forms.ComboBox
Me.RefeshRateLabel = New System.Windows.Forms.Label
Me.RefreshRate = New System.Windows.Forms.ComboBox
Me.StartModeLabel = New System.Windows.Forms.Label
Me.StartMode = New System.Windows.Forms.ComboBox
Me.IconFrame = New System.Windows.Forms.GroupBox
Me.IconDescription = New System.Windows.Forms.Label
Me.IconList = New System.Windows.Forms.ListView
Me.DrivesFrame = New System.Windows.Forms.GroupBox
Me.DrivesList = New System.Windows.Forms.ListBox
Me.MoveItemDown = New System.Windows.Forms.Button
Me.MoveItemUp = New System.Windows.Forms.Button
Me.AddDisk = New System.Windows.Forms.Button
Me.AddCD = New System.Windows.Forms.Button
Me.DeleteItem = New System.Windows.Forms.Button
Me.MemoryFrame = New System.Windows.Forms.GroupBox
Me.Memory = New System.Windows.Forms.TextBox
Me.MegabyteLabel = New System.Windows.Forms.Label
Me.MemoryLabel = New System.Windows.Forms.Label
Me.MemorySlider = New System.Windows.Forms.TrackBar
Me.VMNameFrame = New System.Windows.Forms.GroupBox
Me.VMNameHelp = New System.Windows.Forms.Label
Me.VMName = New System.Windows.Forms.TextBox
Me.OptionList = New System.Windows.Forms.ListView
Me.Options = New System.Windows.Forms.ColumnHeader
Me.Value = New System.Windows.Forms.ColumnHeader
Me.cmdCancel = New System.Windows.Forms.Button
Me.cmdOK = New System.Windows.Forms.Button
Me.OptionPanel.SuspendLayout()
Me.SerialFrame.SuspendLayout()
Me.PrinterOutputFile.SuspendLayout()
Me.ModemOutputFile.SuspendLayout()
Me.MiscFrame.SuspendLayout()
Me.NetworkFrame.SuspendLayout()
Me.RouterPanel.SuspendLayout()
Me.InputFrame.SuspendLayout()
Me.KeyboardGroup.SuspendLayout()
Me.MouseGroup.SuspendLayout()
CType(Me.ScrollLines, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ScreenFrame.SuspendLayout()
Me.IconFrame.SuspendLayout()
Me.DrivesFrame.SuspendLayout()
Me.MemoryFrame.SuspendLayout()
CType(Me.MemorySlider, System.ComponentModel.ISupportInitialize).BeginInit()
Me.VMNameFrame.SuspendLayout()
Me.SuspendLayout()
'
'BrowseIcon
'
Me.BrowseIcon.Location = New System.Drawing.Point(286, 12)
Me.BrowseIcon.Name = "BrowseIcon"
Me.BrowseIcon.Size = New System.Drawing.Size(75, 23)
Me.BrowseIcon.TabIndex = 6
Me.BrowseIcon.Text = "Browse..."
Me.BrowseIcon.UseVisualStyleBackColor = True
'
'OptionPanel
'
Me.OptionPanel.Controls.Add(Me.SerialFrame)
Me.OptionPanel.Controls.Add(Me.MiscFrame)
Me.OptionPanel.Controls.Add(Me.NetworkFrame)
Me.OptionPanel.Controls.Add(Me.InputFrame)
Me.OptionPanel.Controls.Add(Me.ScreenFrame)
Me.OptionPanel.Controls.Add(Me.IconFrame)
Me.OptionPanel.Controls.Add(Me.DrivesFrame)
Me.OptionPanel.Controls.Add(Me.MemoryFrame)
Me.OptionPanel.Controls.Add(Me.VMNameFrame)
Me.OptionPanel.Location = New System.Drawing.Point(371, 1)
Me.OptionPanel.Name = "OptionPanel"
Me.OptionPanel.Size = New System.Drawing.Size(373, 294)
Me.OptionPanel.TabIndex = 29
'
'SerialFrame
'
Me.SerialFrame.Controls.Add(Me.PrinterPort)
Me.SerialFrame.Controls.Add(Me.PrinterPortLabel)
Me.SerialFrame.Controls.Add(Me.PrinterOutputFile)
Me.SerialFrame.Controls.Add(Me.ModemPort)
Me.SerialFrame.Controls.Add(Me.Label2)
Me.SerialFrame.Controls.Add(Me.ModemOutputFile)
Me.SerialFrame.Location = New System.Drawing.Point(0, 3)
Me.SerialFrame.Name = "SerialFrame"
Me.SerialFrame.Size = New System.Drawing.Size(367, 279)
Me.SerialFrame.TabIndex = 8
Me.SerialFrame.TabStop = False
Me.SerialFrame.Text = "Serial ports"
'
'PrinterPort
'
Me.PrinterPort.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.PrinterPort.FormattingEnabled = True
Me.PrinterPort.Items.AddRange(New Object() {"COM 1", "COM 2", "COM 3", "COM 4", "COM 5", "COM 6", "LPT 1", "LPT 2", "LPT 3", "LPT 4", "LPT 5", "LPT 6", "File"})
Me.PrinterPort.Location = New System.Drawing.Point(76, 80)
Me.PrinterPort.Name = "PrinterPort"
Me.PrinterPort.Size = New System.Drawing.Size(69, 21)
Me.PrinterPort.TabIndex = 8
'
'PrinterPortLabel
'
Me.PrinterPortLabel.AutoSize = True
Me.PrinterPortLabel.Location = New System.Drawing.Point(6, 84)
Me.PrinterPortLabel.Name = "PrinterPortLabel"
Me.PrinterPortLabel.Size = New System.Drawing.Size(62, 13)
Me.PrinterPortLabel.TabIndex = 7
Me.PrinterPortLabel.Text = "Printer Port:"
'
'PrinterOutputFile
'
Me.PrinterOutputFile.Controls.Add(Me.PrinterOutputPath)
Me.PrinterOutputFile.Controls.Add(Me.BrowsePOFile)
Me.PrinterOutputFile.Location = New System.Drawing.Point(6, 100)
Me.PrinterOutputFile.Name = "PrinterOutputFile"
Me.PrinterOutputFile.Size = New System.Drawing.Size(360, 31)
Me.PrinterOutputFile.TabIndex = 9
'
'PrinterOutputPath
'
Me.PrinterOutputPath.Location = New System.Drawing.Point(3, 5)
Me.PrinterOutputPath.Name = "PrinterOutputPath"
Me.PrinterOutputPath.Size = New System.Drawing.Size(274, 20)
Me.PrinterOutputPath.TabIndex = 0
'
'BrowsePOFile
'
Me.BrowsePOFile.Location = New System.Drawing.Point(283, 4)
Me.BrowsePOFile.Name = "BrowsePOFile"
Me.BrowsePOFile.Size = New System.Drawing.Size(75, 23)
Me.BrowsePOFile.TabIndex = 4
Me.BrowsePOFile.Text = "Browse"
Me.BrowsePOFile.UseVisualStyleBackColor = True
'
'ModemPort
'
Me.ModemPort.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ModemPort.FormattingEnabled = True
Me.ModemPort.Items.AddRange(New Object() {"COM 1", "COM 2", "COM 3", "COM 4", "COM 5", "COM 6", "LPT 1", "LPT 2", "LPT 3", "LPT 4", "LPT 5", "LPT 6", "File"})
Me.ModemPort.Location = New System.Drawing.Point(76, 20)
Me.ModemPort.Name = "ModemPort"
Me.ModemPort.Size = New System.Drawing.Size(69, 21)
Me.ModemPort.TabIndex = 5
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(6, 24)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(67, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Modem Port:"
'
'ModemOutputFile
'
Me.ModemOutputFile.Controls.Add(Me.ModemOutputPath)
Me.ModemOutputFile.Controls.Add(Me.BrowseMOFile)
Me.ModemOutputFile.Location = New System.Drawing.Point(6, 40)
Me.ModemOutputFile.Name = "ModemOutputFile"
Me.ModemOutputFile.Size = New System.Drawing.Size(360, 31)
Me.ModemOutputFile.TabIndex = 6
'
'ModemOutputPath
'
Me.ModemOutputPath.Location = New System.Drawing.Point(3, 5)
Me.ModemOutputPath.Name = "ModemOutputPath"
Me.ModemOutputPath.Size = New System.Drawing.Size(274, 20)
Me.ModemOutputPath.TabIndex = 0
'
'BrowseMOFile
'
Me.BrowseMOFile.Location = New System.Drawing.Point(283, 4)
Me.BrowseMOFile.Name = "BrowseMOFile"
Me.BrowseMOFile.Size = New System.Drawing.Size(75, 23)
Me.BrowseMOFile.TabIndex = 4
Me.BrowseMOFile.Text = "Browse"
Me.BrowseMOFile.UseVisualStyleBackColor = True
'
'MiscFrame
'
Me.MiscFrame.Controls.Add(Me.IgnoreIllegal)
Me.MiscFrame.Controls.Add(Me.IdleCPU)
Me.MiscFrame.Controls.Add(Me.Enable68kEmu)
Me.MiscFrame.Controls.Add(Me.EnableJIT)
Me.MiscFrame.Location = New System.Drawing.Point(0, 3)
Me.MiscFrame.Name = "MiscFrame"
Me.MiscFrame.Size = New System.Drawing.Size(367, 279)
Me.MiscFrame.TabIndex = 8
Me.MiscFrame.TabStop = False
Me.MiscFrame.Text = "Miscelaneous"
'
'IgnoreIllegal
'
Me.IgnoreIllegal.AutoSize = True
Me.IgnoreIllegal.Location = New System.Drawing.Point(3, 86)
Me.IgnoreIllegal.Name = "IgnoreIllegal"
Me.IgnoreIllegal.Size = New System.Drawing.Size(172, 17)
Me.IgnoreIllegal.TabIndex = 3
Me.IgnoreIllegal.Text = "Ignore illegal memory accesses"
Me.IgnoreIllegal.UseVisualStyleBackColor = True
'
'IdleCPU
'
Me.IdleCPU.AutoSize = True
Me.IdleCPU.Location = New System.Drawing.Point(3, 63)
Me.IdleCPU.Name = "IdleCPU"
Me.IdleCPU.Size = New System.Drawing.Size(144, 17)
Me.IdleCPU.TabIndex = 2
Me.IdleCPU.Text = "Don't use CPU when idle"
Me.IdleCPU.UseVisualStyleBackColor = True
'
'Enable68kEmu
'
Me.Enable68kEmu.AutoSize = True
Me.Enable68kEmu.Enabled = False
Me.Enable68kEmu.Location = New System.Drawing.Point(3, 40)
Me.Enable68kEmu.Name = "Enable68kEmu"
Me.Enable68kEmu.Size = New System.Drawing.Size(191, 17)
Me.Enable68kEmu.TabIndex = 1
Me.Enable68kEmu.Text = "Enable 68k emulator (experimental)"
Me.Enable68kEmu.UseVisualStyleBackColor = True
'
'EnableJIT
'
Me.EnableJIT.AutoSize = True
Me.EnableJIT.Location = New System.Drawing.Point(3, 17)
Me.EnableJIT.Name = "EnableJIT"
Me.EnableJIT.Size = New System.Drawing.Size(120, 17)
Me.EnableJIT.TabIndex = 0
Me.EnableJIT.Text = "Enable JIT Compiler"
Me.EnableJIT.UseVisualStyleBackColor = True
'
'NetworkFrame
'
Me.NetworkFrame.Controls.Add(Me.NetInterfaceLabel)
Me.NetworkFrame.Controls.Add(Me.NetInterface)
Me.NetworkFrame.Controls.Add(Me.RouterPanel)
Me.NetworkFrame.Location = New System.Drawing.Point(0, 3)
Me.NetworkFrame.Name = "NetworkFrame"
Me.NetworkFrame.Size = New System.Drawing.Size(367, 279)
Me.NetworkFrame.TabIndex = 8
Me.NetworkFrame.TabStop = False
Me.NetworkFrame.Text = "Network"
'
'NetInterfaceLabel
'
Me.NetInterfaceLabel.AutoSize = True
Me.NetInterfaceLabel.Location = New System.Drawing.Point(14, 30)
Me.NetInterfaceLabel.Name = "NetInterfaceLabel"
Me.NetInterfaceLabel.Size = New System.Drawing.Size(95, 13)
Me.NetInterfaceLabel.TabIndex = 2
Me.NetInterfaceLabel.Text = "Network Interface:"
'
'NetInterface
'
Me.NetInterface.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.NetInterface.FormattingEnabled = True
Me.NetInterface.Items.AddRange(New Object() {"Slirp", "Router", "Disabled"})
Me.NetInterface.Location = New System.Drawing.Point(119, 27)
Me.NetInterface.Name = "NetInterface"
Me.NetInterface.Size = New System.Drawing.Size(242, 21)
Me.NetInterface.TabIndex = 1
'
'RouterPanel
'
Me.RouterPanel.Controls.Add(Me.FTPPortsLabel)
Me.RouterPanel.Controls.Add(Me.ServerPortsLabel)
Me.RouterPanel.Controls.Add(Me.FTPPorts)
Me.RouterPanel.Controls.Add(Me.ServerPorts)
Me.RouterPanel.Location = New System.Drawing.Point(9, 51)
Me.RouterPanel.Name = "RouterPanel"
Me.RouterPanel.Size = New System.Drawing.Size(360, 62)
Me.RouterPanel.TabIndex = 8
'
'FTPPortsLabel
'
Me.FTPPortsLabel.AutoSize = True
Me.FTPPortsLabel.Location = New System.Drawing.Point(5, 6)
Me.FTPPortsLabel.Name = "FTPPortsLabel"
Me.FTPPortsLabel.Size = New System.Drawing.Size(54, 13)
Me.FTPPortsLabel.TabIndex = 4
Me.FTPPortsLabel.Text = "FTP Ports"
'
'ServerPortsLabel
'
Me.ServerPortsLabel.AutoSize = True
Me.ServerPortsLabel.Location = New System.Drawing.Point(5, 33)
Me.ServerPortsLabel.Name = "ServerPortsLabel"
Me.ServerPortsLabel.Size = New System.Drawing.Size(65, 13)
Me.ServerPortsLabel.TabIndex = 6
Me.ServerPortsLabel.Text = "Server Ports"
'
'FTPPorts
'
Me.FTPPorts.Location = New System.Drawing.Point(110, 3)
Me.FTPPorts.Name = "FTPPorts"
Me.FTPPorts.Size = New System.Drawing.Size(242, 20)
Me.FTPPorts.TabIndex = 3
'
'ServerPorts
'
Me.ServerPorts.Location = New System.Drawing.Point(110, 30)
Me.ServerPorts.Name = "ServerPorts"
Me.ServerPorts.Size = New System.Drawing.Size(242, 20)
Me.ServerPorts.TabIndex = 5
'
'InputFrame
'
Me.InputFrame.Controls.Add(Me.KeyboardGroup)
Me.InputFrame.Controls.Add(Me.MouseGroup)
Me.InputFrame.Location = New System.Drawing.Point(0, 3)
Me.InputFrame.Name = "InputFrame"
Me.InputFrame.Size = New System.Drawing.Size(367, 279)
Me.InputFrame.TabIndex = 8
Me.InputFrame.TabStop = False
Me.InputFrame.Text = "Mouse and keyboard"
'
'KeyboardGroup
'
Me.KeyboardGroup.Controls.Add(Me.KeyCodesPathLabel)
Me.KeyboardGroup.Controls.Add(Me.KeyCodesPath)
Me.KeyboardGroup.Controls.Add(Me.UseKeycodes)
Me.KeyboardGroup.Controls.Add(Me.BrowseKeyCodes)
Me.KeyboardGroup.Location = New System.Drawing.Point(6, 126)
Me.KeyboardGroup.Name = "KeyboardGroup"
Me.KeyboardGroup.Size = New System.Drawing.Size(355, 147)
Me.KeyboardGroup.TabIndex = 0
Me.KeyboardGroup.TabStop = False
Me.KeyboardGroup.Text = "Keyboard"
'
'KeyCodesPathLabel
'
Me.KeyCodesPathLabel.AutoSize = True
Me.KeyCodesPathLabel.Location = New System.Drawing.Point(3, 49)
Me.KeyCodesPathLabel.Name = "KeyCodesPathLabel"
Me.KeyCodesPathLabel.Size = New System.Drawing.Size(109, 13)
Me.KeyCodesPathLabel.TabIndex = 3
Me.KeyCodesPathLabel.Text = "Path to keycodes file:"
'
'KeyCodesPath
'
Me.KeyCodesPath.Location = New System.Drawing.Point(3, 70)
Me.KeyCodesPath.Name = "KeyCodesPath"
Me.KeyCodesPath.Size = New System.Drawing.Size(307, 20)
Me.KeyCodesPath.TabIndex = 2
'
'UseKeycodes
'
Me.UseKeycodes.AutoSize = True
Me.UseKeycodes.Location = New System.Drawing.Point(6, 20)
Me.UseKeycodes.Name = "UseKeycodes"
Me.UseKeycodes.Size = New System.Drawing.Size(110, 17)
Me.UseKeycodes.TabIndex = 0
Me.UseKeycodes.Text = "Use keycodes file"
Me.UseKeycodes.UseVisualStyleBackColor = True
'
'BrowseKeyCodes
'
Me.BrowseKeyCodes.Location = New System.Drawing.Point(316, 68)
Me.BrowseKeyCodes.Name = "BrowseKeyCodes"
Me.BrowseKeyCodes.Size = New System.Drawing.Size(33, 23)
Me.BrowseKeyCodes.TabIndex = 1
Me.BrowseKeyCodes.Text = "..."
Me.BrowseKeyCodes.UseVisualStyleBackColor = True
'
'MouseGroup
'
Me.MouseGroup.Controls.Add(Me.ScrollLinesLabel)
Me.MouseGroup.Controls.Add(Me.WheelFunctionLabel)
Me.MouseGroup.Controls.Add(Me.WheelFunction)
Me.MouseGroup.Controls.Add(Me.ScrollLines)
Me.MouseGroup.Location = New System.Drawing.Point(6, 20)
Me.MouseGroup.Name = "MouseGroup"
Me.MouseGroup.Size = New System.Drawing.Size(355, 100)
Me.MouseGroup.TabIndex = 5
Me.MouseGroup.TabStop = False
Me.MouseGroup.Text = "Mouse"
'
'ScrollLinesLabel
'
Me.ScrollLinesLabel.AutoSize = True
Me.ScrollLinesLabel.Location = New System.Drawing.Point(6, 47)
Me.ScrollLinesLabel.Name = "ScrollLinesLabel"
Me.ScrollLinesLabel.Size = New System.Drawing.Size(74, 13)
Me.ScrollLinesLabel.TabIndex = 6
Me.ScrollLinesLabel.Text = "Lines to scroll:"
'
'WheelFunctionLabel
'
Me.WheelFunctionLabel.AutoSize = True
Me.WheelFunctionLabel.Location = New System.Drawing.Point(6, 21)
Me.WheelFunctionLabel.Name = "WheelFunctionLabel"
Me.WheelFunctionLabel.Size = New System.Drawing.Size(82, 13)
Me.WheelFunctionLabel.TabIndex = 5
Me.WheelFunctionLabel.Text = "Wheel function:"
'
'WheelFunction
'
Me.WheelFunction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.WheelFunction.FormattingEnabled = True
Me.WheelFunction.Items.AddRange(New Object() {"Cursor Up/Down", "Page Up/Down"})
Me.WheelFunction.Location = New System.Drawing.Point(95, 18)
Me.WheelFunction.Name = "WheelFunction"
Me.WheelFunction.Size = New System.Drawing.Size(76, 21)
Me.WheelFunction.TabIndex = 3
'
'ScrollLines
'
Me.ScrollLines.Location = New System.Drawing.Point(95, 45)
Me.ScrollLines.Maximum = New Decimal(New Integer() {50, 0, 0, 0})
Me.ScrollLines.Name = "ScrollLines"
Me.ScrollLines.Size = New System.Drawing.Size(76, 20)
Me.ScrollLines.TabIndex = 4
'
'ScreenFrame
'
Me.ScreenFrame.Controls.Add(Me.CustResolution)
Me.ScreenFrame.Controls.Add(Me.VMResHeight)
Me.ScreenFrame.Controls.Add(Me.VMResWidth)
Me.ScreenFrame.Controls.Add(Me.VMResLabel)
Me.ScreenFrame.Controls.Add(Me.VMResDef)
Me.ScreenFrame.Controls.Add(Me.RefeshRateLabel)
Me.ScreenFrame.Controls.Add(Me.RefreshRate)
Me.ScreenFrame.Controls.Add(Me.StartModeLabel)
Me.ScreenFrame.Controls.Add(Me.StartMode)
Me.ScreenFrame.Location = New System.Drawing.Point(0, 3)
Me.ScreenFrame.Name = "ScreenFrame"
Me.ScreenFrame.Size = New System.Drawing.Size(367, 279)
Me.ScreenFrame.TabIndex = 5
Me.ScreenFrame.TabStop = False
Me.ScreenFrame.Text = "Screen"
'
'CustResolution
'
Me.CustResolution.AutoSize = True
Me.CustResolution.Location = New System.Drawing.Point(189, 23)
Me.CustResolution.Name = "CustResolution"
Me.CustResolution.Size = New System.Drawing.Size(114, 17)
Me.CustResolution.TabIndex = 8
Me.CustResolution.Text = "Custom Resolution"
Me.CustResolution.UseVisualStyleBackColor = True
'
'VMResHeight
'
Me.VMResHeight.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.VMResHeight.FormattingEnabled = True
Me.VMResHeight.Items.AddRange(New Object() {"384", "480", "600", "768", "864", "1024"})
Me.VMResHeight.Location = New System.Drawing.Point(139, 21)
Me.VMResHeight.Name = "VMResHeight"
Me.VMResHeight.Size = New System.Drawing.Size(46, 21)
Me.VMResHeight.TabIndex = 7
Me.VMResHeight.Visible = False
'
'VMResWidth
'
Me.VMResWidth.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.VMResWidth.FormattingEnabled = True
Me.VMResWidth.Items.AddRange(New Object() {"512", "640", "800", "1024", "1152", "1280"})
Me.VMResWidth.Location = New System.Drawing.Point(87, 21)
Me.VMResWidth.Name = "VMResWidth"
Me.VMResWidth.Size = New System.Drawing.Size(46, 21)
Me.VMResWidth.TabIndex = 6
Me.VMResWidth.Visible = False
'
'VMResLabel
'
Me.VMResLabel.AutoSize = True
Me.VMResLabel.Location = New System.Drawing.Point(6, 24)
Me.VMResLabel.Name = "VMResLabel"
Me.VMResLabel.Size = New System.Drawing.Size(60, 13)
Me.VMResLabel.TabIndex = 5
Me.VMResLabel.Text = "Resolution:"
'
'VMResDef
'
Me.VMResDef.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.VMResDef.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.VMResDef.FormattingEnabled = True
Me.VMResDef.Items.AddRange(New Object() {"512x384", "640x480", "800x600", "1024x768", "1152x864", "1280x1024", "Maximum"})
Me.VMResDef.Location = New System.Drawing.Point(87, 21)
Me.VMResDef.Name = "VMResDef"
Me.VMResDef.Size = New System.Drawing.Size(98, 21)
Me.VMResDef.TabIndex = 4
'
'RefeshRateLabel
'
Me.RefeshRateLabel.AutoSize = True
Me.RefeshRateLabel.Location = New System.Drawing.Point(6, 78)
Me.RefeshRateLabel.Name = "RefeshRateLabel"
Me.RefeshRateLabel.Size = New System.Drawing.Size(73, 13)
Me.RefeshRateLabel.TabIndex = 3
Me.RefeshRateLabel.Text = "Refresh Rate:"
'
'RefreshRate
'
Me.RefreshRate.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.RefreshRate.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.RefreshRate.FormattingEnabled = True
Me.RefreshRate.Items.AddRange(New Object() {"5 Hz", "7.5 Hz", "10 Hz", "15 Hz", "30 Hz", "60 Hz", "Dynamic"})
Me.RefreshRate.Location = New System.Drawing.Point(87, 75)
Me.RefreshRate.Name = "RefreshRate"
Me.RefreshRate.Size = New System.Drawing.Size(98, 21)
Me.RefreshRate.TabIndex = 2
'
'StartModeLabel
'
Me.StartModeLabel.AutoSize = True
Me.StartModeLabel.Location = New System.Drawing.Point(6, 51)
Me.StartModeLabel.Name = "StartModeLabel"
Me.StartModeLabel.Size = New System.Drawing.Size(43, 13)
Me.StartModeLabel.TabIndex = 1
Me.StartModeLabel.Text = "Start in:"
'
'StartMode
'
Me.StartMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.StartMode.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.StartMode.FormattingEnabled = True
Me.StartMode.Items.AddRange(New Object() {"Window", "Fullscreen"})
Me.StartMode.Location = New System.Drawing.Point(87, 48)
Me.StartMode.Name = "StartMode"
Me.StartMode.Size = New System.Drawing.Size(98, 21)
Me.StartMode.TabIndex = 0
'
'IconFrame
'
Me.IconFrame.Controls.Add(Me.BrowseIcon)
Me.IconFrame.Controls.Add(Me.IconDescription)
Me.IconFrame.Controls.Add(Me.IconList)
Me.IconFrame.Location = New System.Drawing.Point(0, 3)
Me.IconFrame.Name = "IconFrame"
Me.IconFrame.Size = New System.Drawing.Size(367, 279)
Me.IconFrame.TabIndex = 3
Me.IconFrame.TabStop = False
Me.IconFrame.Text = "Icon"
'
'IconDescription
'
Me.IconDescription.Location = New System.Drawing.Point(6, 17)
Me.IconDescription.Name = "IconDescription"
Me.IconDescription.Size = New System.Drawing.Size(261, 18)
Me.IconDescription.TabIndex = 7
Me.IconDescription.Text = "If you want an icon that isn't in the list, click Browse."
'
'IconList
'
Me.IconList.Location = New System.Drawing.Point(9, 38)
Me.IconList.Name = "IconList"
Me.IconList.Size = New System.Drawing.Size(352, 235)
Me.IconList.TabIndex = 6
Me.IconList.UseCompatibleStateImageBehavior = False
'
'DrivesFrame
'
Me.DrivesFrame.Controls.Add(Me.DrivesList)
Me.DrivesFrame.Controls.Add(Me.MoveItemDown)
Me.DrivesFrame.Controls.Add(Me.MoveItemUp)
Me.DrivesFrame.Controls.Add(Me.AddDisk)
Me.DrivesFrame.Controls.Add(Me.AddCD)
Me.DrivesFrame.Controls.Add(Me.DeleteItem)
Me.DrivesFrame.Location = New System.Drawing.Point(0, 3)
Me.DrivesFrame.Name = "DrivesFrame"
Me.DrivesFrame.Size = New System.Drawing.Size(367, 279)
Me.DrivesFrame.TabIndex = 8
Me.DrivesFrame.TabStop = False
Me.DrivesFrame.Text = "Drives"
'
'DrivesList
'
Me.DrivesList.FormattingEnabled = True
Me.DrivesList.Items.AddRange(New Object() {"C:\Users\Usuario\Documents\ISOs\Mac OS 8.5 Spanish.iso", "C:\Users\Usuario\Documents\My Macs\Mac OS 8\Mac OS 8.dsk", "C:\Users\Usuario\Documents\My Macs\Mac OS 8\Data.dsk"})
Me.DrivesList.Location = New System.Drawing.Point(3, 17)
Me.DrivesList.Name = "DrivesList"
Me.DrivesList.Size = New System.Drawing.Size(358, 186)
Me.DrivesList.TabIndex = 6
'
'MoveItemDown
'
Me.MoveItemDown.Enabled = False
Me.MoveItemDown.Location = New System.Drawing.Point(328, 213)
Me.MoveItemDown.Name = "MoveItemDown"
Me.MoveItemDown.Size = New System.Drawing.Size(33, 23)
Me.MoveItemDown.TabIndex = 5
Me.MoveItemDown.Text = "\/"
Me.MoveItemDown.UseVisualStyleBackColor = True
'
'MoveItemUp
'
Me.MoveItemUp.Enabled = False
Me.MoveItemUp.Location = New System.Drawing.Point(294, 213)
Me.MoveItemUp.Name = "MoveItemUp"
Me.MoveItemUp.Size = New System.Drawing.Size(33, 23)
Me.MoveItemUp.TabIndex = 4
Me.MoveItemUp.Text = "/\"
Me.MoveItemUp.UseVisualStyleBackColor = True
'
'AddDisk
'
Me.AddDisk.Location = New System.Drawing.Point(6, 213)
Me.AddDisk.Name = "AddDisk"
Me.AddDisk.Size = New System.Drawing.Size(56, 23)
Me.AddDisk.TabIndex = 3
Me.AddDisk.Text = "Add disk"
Me.AddDisk.UseVisualStyleBackColor = True
'
'AddCD
'
Me.AddCD.Location = New System.Drawing.Point(68, 213)
Me.AddCD.Name = "AddCD"
Me.AddCD.Size = New System.Drawing.Size(56, 23)
Me.AddCD.TabIndex = 2
Me.AddCD.Text = "Add CD"
Me.AddCD.UseVisualStyleBackColor = True
'
'DeleteItem
'
Me.DeleteItem.Location = New System.Drawing.Point(130, 213)
Me.DeleteItem.Name = "DeleteItem"
Me.DeleteItem.Size = New System.Drawing.Size(90, 23)
Me.DeleteItem.TabIndex = 1
Me.DeleteItem.Text = "Delete selected"
Me.DeleteItem.UseVisualStyleBackColor = True
'
'MemoryFrame
'
Me.MemoryFrame.Controls.Add(Me.Memory)
Me.MemoryFrame.Controls.Add(Me.MegabyteLabel)
Me.MemoryFrame.Controls.Add(Me.MemoryLabel)
Me.MemoryFrame.Controls.Add(Me.MemorySlider)
Me.MemoryFrame.Location = New System.Drawing.Point(0, 3)
Me.MemoryFrame.Name = "MemoryFrame"
Me.MemoryFrame.Size = New System.Drawing.Size(367, 279)
Me.MemoryFrame.TabIndex = 8
Me.MemoryFrame.TabStop = False
Me.MemoryFrame.Text = "Memory"
'
'Memory
'
Me.Memory.Location = New System.Drawing.Point(273, 61)
Me.Memory.Name = "Memory"
Me.Memory.Size = New System.Drawing.Size(43, 20)
Me.Memory.TabIndex = 5
'
'MegabyteLabel
'
Me.MegabyteLabel.AutoSize = True
Me.MegabyteLabel.Location = New System.Drawing.Point(322, 63)
Me.MegabyteLabel.Name = "MegabyteLabel"
Me.MegabyteLabel.Size = New System.Drawing.Size(23, 13)
Me.MegabyteLabel.TabIndex = 4
Me.MegabyteLabel.Text = "MB"
'
'MemoryLabel
'
Me.MemoryLabel.AutoSize = True
Me.MemoryLabel.Location = New System.Drawing.Point(6, 35)
Me.MemoryLabel.Name = "MemoryLabel"
Me.MemoryLabel.Size = New System.Drawing.Size(257, 13)
Me.MemoryLabel.TabIndex = 2
Me.MemoryLabel.Text = "Set the amount of RAM to dedicate to this Macintosh"
'
'MemorySlider
'
Me.MemorySlider.Location = New System.Drawing.Point(3, 60)
Me.MemorySlider.Maximum = 100
Me.MemorySlider.Name = "MemorySlider"
Me.MemorySlider.Size = New System.Drawing.Size(264, 45)
Me.MemorySlider.TabIndex = 0
Me.MemorySlider.TickFrequency = 5
'
'VMNameFrame
'
Me.VMNameFrame.Controls.Add(Me.VMNameHelp)
Me.VMNameFrame.Controls.Add(Me.VMName)
Me.VMNameFrame.Location = New System.Drawing.Point(0, 3)
Me.VMNameFrame.Name = "VMNameFrame"
Me.VMNameFrame.Size = New System.Drawing.Size(367, 279)
Me.VMNameFrame.TabIndex = 4
Me.VMNameFrame.TabStop = False
Me.VMNameFrame.Text = "Name"
'
'VMNameHelp
'
Me.VMNameHelp.Location = New System.Drawing.Point(6, 17)
Me.VMNameHelp.Name = "VMNameHelp"
Me.VMNameHelp.Size = New System.Drawing.Size(363, 18)
Me.VMNameHelp.TabIndex = 7
Me.VMNameHelp.Text = "Do you want a change? Why not start with the name?"
'
'VMName
'
Me.VMName.Location = New System.Drawing.Point(9, 38)
Me.VMName.Name = "VMName"
Me.VMName.Size = New System.Drawing.Size(352, 20)
Me.VMName.TabIndex = 6
'
'OptionList
'
Me.OptionList.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Options, Me.Value})
Me.OptionList.FullRowSelect = True
Me.OptionList.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
Me.OptionList.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem10, ListViewItem11, ListViewItem12, ListViewItem13, ListViewItem14, ListViewItem15, ListViewItem16, ListViewItem17, ListViewItem18})
Me.OptionList.Location = New System.Drawing.Point(12, 11)
Me.OptionList.Name = "OptionList"
Me.OptionList.Size = New System.Drawing.Size(353, 376)
Me.OptionList.TabIndex = 28
Me.OptionList.UseCompatibleStateImageBehavior = False
Me.OptionList.View = System.Windows.Forms.View.Details
'
'Options
'
Me.Options.Text = "Options"
Me.Options.Width = 173
'
'Value
'
Me.Value.Text = "Value"
Me.Value.Width = 176
'
'cmdCancel
'
Me.cmdCancel.BackColor = System.Drawing.SystemColors.Control
Me.cmdCancel.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.cmdCancel.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdCancel.Location = New System.Drawing.Point(665, 366)
Me.cmdCancel.Name = "cmdCancel"
Me.cmdCancel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmdCancel.Size = New System.Drawing.Size(73, 22)
Me.cmdCancel.TabIndex = 27
Me.cmdCancel.Text = "Cancel"
Me.cmdCancel.UseVisualStyleBackColor = True
'
'cmdOK
'
Me.cmdOK.BackColor = System.Drawing.SystemColors.Control
Me.cmdOK.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdOK.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdOK.Location = New System.Drawing.Point(585, 366)
Me.cmdOK.Name = "cmdOK"
Me.cmdOK.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmdOK.Size = New System.Drawing.Size(73, 22)
Me.cmdOK.TabIndex = 26
Me.cmdOK.Text = "OK"
Me.cmdOK.UseVisualStyleBackColor = True
'
'frmSettingsQemuVM
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(750, 400)
Me.Controls.Add(Me.OptionPanel)
Me.Controls.Add(Me.OptionList)
Me.Controls.Add(Me.cmdCancel)
Me.Controls.Add(Me.cmdOK)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "frmSettingsQemuVM"
Me.Text = "Settings for %s"
Me.OptionPanel.ResumeLayout(False)
Me.SerialFrame.ResumeLayout(False)
Me.SerialFrame.PerformLayout()
Me.PrinterOutputFile.ResumeLayout(False)
Me.PrinterOutputFile.PerformLayout()
Me.ModemOutputFile.ResumeLayout(False)
Me.ModemOutputFile.PerformLayout()
Me.MiscFrame.ResumeLayout(False)
Me.MiscFrame.PerformLayout()
Me.NetworkFrame.ResumeLayout(False)
Me.NetworkFrame.PerformLayout()
Me.RouterPanel.ResumeLayout(False)
Me.RouterPanel.PerformLayout()
Me.InputFrame.ResumeLayout(False)
Me.KeyboardGroup.ResumeLayout(False)
Me.KeyboardGroup.PerformLayout()
Me.MouseGroup.ResumeLayout(False)
Me.MouseGroup.PerformLayout()
CType(Me.ScrollLines, System.ComponentModel.ISupportInitialize).EndInit()
Me.ScreenFrame.ResumeLayout(False)
Me.ScreenFrame.PerformLayout()
Me.IconFrame.ResumeLayout(False)
Me.DrivesFrame.ResumeLayout(False)
Me.MemoryFrame.ResumeLayout(False)
Me.MemoryFrame.PerformLayout()
CType(Me.MemorySlider, System.ComponentModel.ISupportInitialize).EndInit()
Me.VMNameFrame.ResumeLayout(False)
Me.VMNameFrame.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents BrowseIcon As System.Windows.Forms.Button
Friend WithEvents OptionPanel As System.Windows.Forms.Panel
Friend WithEvents SerialFrame As System.Windows.Forms.GroupBox
Friend WithEvents PrinterPort As System.Windows.Forms.ComboBox
Friend WithEvents PrinterPortLabel As System.Windows.Forms.Label
Friend WithEvents PrinterOutputFile As System.Windows.Forms.Panel
Friend WithEvents PrinterOutputPath As System.Windows.Forms.TextBox
Friend WithEvents BrowsePOFile As System.Windows.Forms.Button
Friend WithEvents ModemPort As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ModemOutputFile As System.Windows.Forms.Panel
Friend WithEvents ModemOutputPath As System.Windows.Forms.TextBox
Friend WithEvents BrowseMOFile As System.Windows.Forms.Button
Friend WithEvents MiscFrame As System.Windows.Forms.GroupBox
Friend WithEvents IgnoreIllegal As System.Windows.Forms.CheckBox
Friend WithEvents IdleCPU As System.Windows.Forms.CheckBox
Friend WithEvents Enable68kEmu As System.Windows.Forms.CheckBox
Friend WithEvents EnableJIT As System.Windows.Forms.CheckBox
Friend WithEvents NetworkFrame As System.Windows.Forms.GroupBox
Friend WithEvents NetInterfaceLabel As System.Windows.Forms.Label
Friend WithEvents NetInterface As System.Windows.Forms.ComboBox
Friend WithEvents RouterPanel As System.Windows.Forms.Panel
Friend WithEvents FTPPortsLabel As System.Windows.Forms.Label
Friend WithEvents ServerPortsLabel As System.Windows.Forms.Label
Friend WithEvents FTPPorts As System.Windows.Forms.TextBox
Friend WithEvents ServerPorts As System.Windows.Forms.TextBox
Friend WithEvents InputFrame As System.Windows.Forms.GroupBox
Friend WithEvents KeyboardGroup As System.Windows.Forms.GroupBox
Friend WithEvents KeyCodesPathLabel As System.Windows.Forms.Label
Friend WithEvents KeyCodesPath As System.Windows.Forms.TextBox
Friend WithEvents UseKeycodes As System.Windows.Forms.CheckBox
Friend WithEvents BrowseKeyCodes As System.Windows.Forms.Button
Friend WithEvents MouseGroup As System.Windows.Forms.GroupBox
Friend WithEvents ScrollLinesLabel As System.Windows.Forms.Label
Friend WithEvents WheelFunctionLabel As System.Windows.Forms.Label
Friend WithEvents WheelFunction As System.Windows.Forms.ComboBox
Friend WithEvents ScrollLines As System.Windows.Forms.NumericUpDown
Friend WithEvents ScreenFrame As System.Windows.Forms.GroupBox
Friend WithEvents CustResolution As System.Windows.Forms.CheckBox
Friend WithEvents VMResHeight As System.Windows.Forms.ComboBox
Friend WithEvents VMResWidth As System.Windows.Forms.ComboBox
Friend WithEvents VMResLabel As System.Windows.Forms.Label
Friend WithEvents VMResDef As System.Windows.Forms.ComboBox
Friend WithEvents RefeshRateLabel As System.Windows.Forms.Label
Friend WithEvents RefreshRate As System.Windows.Forms.ComboBox
Friend WithEvents StartModeLabel As System.Windows.Forms.Label
Friend WithEvents StartMode As System.Windows.Forms.ComboBox
Friend WithEvents IconFrame As System.Windows.Forms.GroupBox
Friend WithEvents IconDescription As System.Windows.Forms.Label
Friend WithEvents IconList As System.Windows.Forms.ListView
Friend WithEvents DrivesFrame As System.Windows.Forms.GroupBox
Friend WithEvents DrivesList As System.Windows.Forms.ListBox
Friend WithEvents MoveItemDown As System.Windows.Forms.Button
Friend WithEvents MoveItemUp As System.Windows.Forms.Button
Friend WithEvents AddDisk As System.Windows.Forms.Button
Friend WithEvents AddCD As System.Windows.Forms.Button
Friend WithEvents DeleteItem As System.Windows.Forms.Button
Friend WithEvents MemoryFrame As System.Windows.Forms.GroupBox
Friend WithEvents Memory As System.Windows.Forms.TextBox
Friend WithEvents MegabyteLabel As System.Windows.Forms.Label
Friend WithEvents MemoryLabel As System.Windows.Forms.Label
Friend WithEvents MemorySlider As System.Windows.Forms.TrackBar
Friend WithEvents VMNameFrame As System.Windows.Forms.GroupBox
Friend WithEvents VMNameHelp As System.Windows.Forms.Label
Friend WithEvents VMName As System.Windows.Forms.TextBox
Friend WithEvents OptionList As System.Windows.Forms.ListView
Friend WithEvents Options As System.Windows.Forms.ColumnHeader
Friend WithEvents Value As System.Windows.Forms.ColumnHeader
Public WithEvents cmdCancel As System.Windows.Forms.Button
Public WithEvents cmdOK As System.Windows.Forms.Button
End Class

120
frmSettingsQemuVM.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

13
frmSettingsQemuVM.vb Normal file
View File

@ -0,0 +1,13 @@
Public Class frmSettingsQemuVM
Private Sub frmSettingsQemuVM_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
LoadSettings()
End Sub
Public Sub LoadSettings()
Dim x As String
x = "qemu-system-ppc.exe -L pc-bios -boot d -m " _
+ 1024 + " -M mac99 -prom-env " & Chr(34) & "auto-boot?=true" & Chr(34) & " -prom-env " & Chr(34) & "boot-args=-v" & Chr(34) & " -prom-env " & Chr(34) & "vga-ndrv?=true" & Chr(34) & " -drive file=MacOS9.2.iso,format=raw,media=cdrom -drive file=MacOS9.2.img,format=raw,media=disk -sdl -netdev user,id=network01 -device sungem,netdev=network01 "
End Sub
End Class

977
frmSettingsSheepVM.Designer.vb generated Normal file
View File

@ -0,0 +1,977 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class frmSettingsSheepVM
#Region "Windows Form Designer generated code "
<System.Diagnostics.DebuggerNonUserCode()> Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
Public ToolTip1 As System.Windows.Forms.ToolTip
Public WithEvents cmdCancel As System.Windows.Forms.Button
Public WithEvents cmdOK As System.Windows.Forms.Button
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Name", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Icon", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem3 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Memory")
Dim ListViewItem4 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Drives", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem5 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Network", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem6 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Screen", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem7 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Mouse and keyboard")
Dim ListViewItem8 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Serial ports")
Dim ListViewItem9 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Miscelaneous")
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSettingsSheepVM))
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.cmdCancel = New System.Windows.Forms.Button
Me.cmdOK = New System.Windows.Forms.Button
Me.IconFrame = New System.Windows.Forms.GroupBox
Me.BrowseIcon = New System.Windows.Forms.Button
Me.IconDescription = New System.Windows.Forms.Label
Me.IconList = New System.Windows.Forms.ListView
Me.Icons = New System.Windows.Forms.ImageList(Me.components)
Me.Browser = New System.Windows.Forms.OpenFileDialog
Me.VMNameFrame = New System.Windows.Forms.GroupBox
Me.VMNameHelp = New System.Windows.Forms.Label
Me.VMName = New System.Windows.Forms.TextBox
Me.ScreenFrame = New System.Windows.Forms.GroupBox
Me.CustResolution = New System.Windows.Forms.CheckBox
Me.VMResHeight = New System.Windows.Forms.ComboBox
Me.VMResWidth = New System.Windows.Forms.ComboBox
Me.VMResLabel = New System.Windows.Forms.Label
Me.VMResDef = New System.Windows.Forms.ComboBox
Me.RefeshRateLabel = New System.Windows.Forms.Label
Me.RefreshRate = New System.Windows.Forms.ComboBox
Me.StartModeLabel = New System.Windows.Forms.Label
Me.StartMode = New System.Windows.Forms.ComboBox
Me.NetworkFrame = New System.Windows.Forms.GroupBox
Me.NetInterfaceLabel = New System.Windows.Forms.Label
Me.NetInterface = New System.Windows.Forms.ComboBox
Me.RouterPanel = New System.Windows.Forms.Panel
Me.FTPPortsLabel = New System.Windows.Forms.Label
Me.ServerPortsLabel = New System.Windows.Forms.Label
Me.FTPPorts = New System.Windows.Forms.TextBox
Me.ServerPorts = New System.Windows.Forms.TextBox
Me.InputFrame = New System.Windows.Forms.GroupBox
Me.KeyboardGroup = New System.Windows.Forms.GroupBox
Me.KeyCodesPathLabel = New System.Windows.Forms.Label
Me.KeyCodesPath = New System.Windows.Forms.TextBox
Me.UseKeycodes = New System.Windows.Forms.CheckBox
Me.BrowseKeyCodes = New System.Windows.Forms.Button
Me.MouseGroup = New System.Windows.Forms.GroupBox
Me.ScrollLinesLabel = New System.Windows.Forms.Label
Me.WheelFunctionLabel = New System.Windows.Forms.Label
Me.WheelFunction = New System.Windows.Forms.ComboBox
Me.ScrollLines = New System.Windows.Forms.NumericUpDown
Me.SerialFrame = New System.Windows.Forms.GroupBox
Me.PrinterPort = New System.Windows.Forms.ComboBox
Me.PrinterPortLabel = New System.Windows.Forms.Label
Me.PrinterOutputFile = New System.Windows.Forms.Panel
Me.PrinterOutputPath = New System.Windows.Forms.TextBox
Me.BrowsePOFile = New System.Windows.Forms.Button
Me.ModemPort = New System.Windows.Forms.ComboBox
Me.Label2 = New System.Windows.Forms.Label
Me.ModemOutputFile = New System.Windows.Forms.Panel
Me.ModemOutputPath = New System.Windows.Forms.TextBox
Me.BrowseMOFile = New System.Windows.Forms.Button
Me.MemoryFrame = New System.Windows.Forms.GroupBox
Me.Memory = New System.Windows.Forms.TextBox
Me.MegabyteLabel = New System.Windows.Forms.Label
Me.MemoryLabel = New System.Windows.Forms.Label
Me.MemorySlider = New System.Windows.Forms.TrackBar
Me.MiscFrame = New System.Windows.Forms.GroupBox
Me.IgnoreIllegal = New System.Windows.Forms.CheckBox
Me.IdleCPU = New System.Windows.Forms.CheckBox
Me.Enable68kEmu = New System.Windows.Forms.CheckBox
Me.EnableJIT = New System.Windows.Forms.CheckBox
Me.DrivesFrame = New System.Windows.Forms.GroupBox
Me.DrivesList = New System.Windows.Forms.ListBox
Me.MoveItemDown = New System.Windows.Forms.Button
Me.MoveItemUp = New System.Windows.Forms.Button
Me.AddDisk = New System.Windows.Forms.Button
Me.AddCD = New System.Windows.Forms.Button
Me.DeleteItem = New System.Windows.Forms.Button
Me.OptionsList = New System.Windows.Forms.ListView
Me.Options = New System.Windows.Forms.ColumnHeader
Me.Value = New System.Windows.Forms.ColumnHeader
Me.OptionPanel = New System.Windows.Forms.Panel
Me.Label1 = New System.Windows.Forms.Label
Me.IconFrame.SuspendLayout()
Me.VMNameFrame.SuspendLayout()
Me.ScreenFrame.SuspendLayout()
Me.NetworkFrame.SuspendLayout()
Me.RouterPanel.SuspendLayout()
Me.InputFrame.SuspendLayout()
Me.KeyboardGroup.SuspendLayout()
Me.MouseGroup.SuspendLayout()
CType(Me.ScrollLines, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SerialFrame.SuspendLayout()
Me.PrinterOutputFile.SuspendLayout()
Me.ModemOutputFile.SuspendLayout()
Me.MemoryFrame.SuspendLayout()
CType(Me.MemorySlider, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MiscFrame.SuspendLayout()
Me.DrivesFrame.SuspendLayout()
Me.OptionPanel.SuspendLayout()
Me.SuspendLayout()
'
'cmdCancel
'
Me.cmdCancel.BackColor = System.Drawing.SystemColors.Control
Me.cmdCancel.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.cmdCancel.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdCancel.Location = New System.Drawing.Point(665, 367)
Me.cmdCancel.Name = "cmdCancel"
Me.cmdCancel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmdCancel.Size = New System.Drawing.Size(73, 22)
Me.cmdCancel.TabIndex = 1
Me.cmdCancel.Text = "Cancel"
Me.cmdCancel.UseVisualStyleBackColor = True
'
'cmdOK
'
Me.cmdOK.BackColor = System.Drawing.SystemColors.Control
Me.cmdOK.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdOK.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdOK.Location = New System.Drawing.Point(585, 367)
Me.cmdOK.Name = "cmdOK"
Me.cmdOK.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmdOK.Size = New System.Drawing.Size(73, 22)
Me.cmdOK.TabIndex = 0
Me.cmdOK.Text = "OK"
Me.cmdOK.UseVisualStyleBackColor = True
'
'IconFrame
'
Me.IconFrame.Controls.Add(Me.BrowseIcon)
Me.IconFrame.Controls.Add(Me.IconDescription)
Me.IconFrame.Controls.Add(Me.IconList)
Me.IconFrame.Location = New System.Drawing.Point(0, 3)
Me.IconFrame.Name = "IconFrame"
Me.IconFrame.Size = New System.Drawing.Size(367, 279)
Me.IconFrame.TabIndex = 3
Me.IconFrame.TabStop = False
Me.IconFrame.Text = "Icon"
'
'BrowseIcon
'
Me.BrowseIcon.Location = New System.Drawing.Point(286, 12)
Me.BrowseIcon.Name = "BrowseIcon"
Me.BrowseIcon.Size = New System.Drawing.Size(75, 23)
Me.BrowseIcon.TabIndex = 6
Me.BrowseIcon.Text = "Browse..."
Me.BrowseIcon.UseVisualStyleBackColor = True
'
'IconDescription
'
Me.IconDescription.Location = New System.Drawing.Point(6, 17)
Me.IconDescription.Name = "IconDescription"
Me.IconDescription.Size = New System.Drawing.Size(261, 18)
Me.IconDescription.TabIndex = 7
Me.IconDescription.Text = "If you want an icon that isn't in the list, click Browse."
'
'IconList
'
Me.IconList.LargeImageList = Me.Icons
Me.IconList.Location = New System.Drawing.Point(9, 38)
Me.IconList.Name = "IconList"
Me.IconList.Size = New System.Drawing.Size(352, 235)
Me.IconList.TabIndex = 6
Me.IconList.UseCompatibleStateImageBehavior = False
'
'Icons
'
Me.Icons.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
Me.Icons.ImageSize = New System.Drawing.Size(48, 48)
Me.Icons.TransparentColor = System.Drawing.Color.Transparent
'
'Browser
'
Me.Browser.DefaultExt = "*.png"
Me.Browser.Filter = """Image files (*.jpg;*.jpeg;*.png;*.bmp;*.ico)|*.jpg;*.jpeg;*.png;*.bmp;*.ico|All " & _
"files|*.*"""
Me.Browser.RestoreDirectory = True
'
'VMNameFrame
'
Me.VMNameFrame.Controls.Add(Me.VMNameHelp)
Me.VMNameFrame.Controls.Add(Me.VMName)
Me.VMNameFrame.Location = New System.Drawing.Point(0, 3)
Me.VMNameFrame.Name = "VMNameFrame"
Me.VMNameFrame.Size = New System.Drawing.Size(367, 279)
Me.VMNameFrame.TabIndex = 4
Me.VMNameFrame.TabStop = False
Me.VMNameFrame.Text = "Name"
'
'VMNameHelp
'
Me.VMNameHelp.Location = New System.Drawing.Point(6, 17)
Me.VMNameHelp.Name = "VMNameHelp"
Me.VMNameHelp.Size = New System.Drawing.Size(363, 18)
Me.VMNameHelp.TabIndex = 7
Me.VMNameHelp.Text = "Do you want a change? Why not start with the name?"
'
'VMName
'
Me.VMName.Location = New System.Drawing.Point(9, 38)
Me.VMName.Name = "VMName"
Me.VMName.Size = New System.Drawing.Size(352, 21)
Me.VMName.TabIndex = 6
'
'ScreenFrame
'
Me.ScreenFrame.Controls.Add(Me.CustResolution)
Me.ScreenFrame.Controls.Add(Me.VMResHeight)
Me.ScreenFrame.Controls.Add(Me.VMResWidth)
Me.ScreenFrame.Controls.Add(Me.VMResLabel)
Me.ScreenFrame.Controls.Add(Me.VMResDef)
Me.ScreenFrame.Controls.Add(Me.RefeshRateLabel)
Me.ScreenFrame.Controls.Add(Me.RefreshRate)
Me.ScreenFrame.Controls.Add(Me.StartModeLabel)
Me.ScreenFrame.Controls.Add(Me.StartMode)
Me.ScreenFrame.Location = New System.Drawing.Point(0, 3)
Me.ScreenFrame.Name = "ScreenFrame"
Me.ScreenFrame.Size = New System.Drawing.Size(367, 279)
Me.ScreenFrame.TabIndex = 5
Me.ScreenFrame.TabStop = False
Me.ScreenFrame.Text = "Screen"
'
'CustResolution
'
Me.CustResolution.AutoSize = True
Me.CustResolution.Location = New System.Drawing.Point(189, 23)
Me.CustResolution.Name = "CustResolution"
Me.CustResolution.Size = New System.Drawing.Size(115, 17)
Me.CustResolution.TabIndex = 8
Me.CustResolution.Text = "Custom Resolution"
Me.CustResolution.UseVisualStyleBackColor = True
'
'VMResHeight
'
Me.VMResHeight.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.VMResHeight.FormattingEnabled = True
Me.VMResHeight.Items.AddRange(New Object() {"384", "480", "600", "768", "864", "1024"})
Me.VMResHeight.Location = New System.Drawing.Point(139, 21)
Me.VMResHeight.Name = "VMResHeight"
Me.VMResHeight.Size = New System.Drawing.Size(46, 21)
Me.VMResHeight.TabIndex = 7
Me.VMResHeight.Visible = False
'
'VMResWidth
'
Me.VMResWidth.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.VMResWidth.FormattingEnabled = True
Me.VMResWidth.Items.AddRange(New Object() {"512", "640", "800", "1024", "1152", "1280"})
Me.VMResWidth.Location = New System.Drawing.Point(87, 21)
Me.VMResWidth.Name = "VMResWidth"
Me.VMResWidth.Size = New System.Drawing.Size(46, 21)
Me.VMResWidth.TabIndex = 6
Me.VMResWidth.Visible = False
'
'VMResLabel
'
Me.VMResLabel.AutoSize = True
Me.VMResLabel.Location = New System.Drawing.Point(6, 24)
Me.VMResLabel.Name = "VMResLabel"
Me.VMResLabel.Size = New System.Drawing.Size(61, 13)
Me.VMResLabel.TabIndex = 5
Me.VMResLabel.Text = "Resolution:"
'
'VMResDef
'
Me.VMResDef.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.VMResDef.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.VMResDef.FormattingEnabled = True
Me.VMResDef.Items.AddRange(New Object() {"512x384", "640x480", "800x600", "1024x768", "1152x864", "1280x1024", "Maximum"})
Me.VMResDef.Location = New System.Drawing.Point(87, 21)
Me.VMResDef.Name = "VMResDef"
Me.VMResDef.Size = New System.Drawing.Size(98, 21)
Me.VMResDef.TabIndex = 4
'
'RefeshRateLabel
'
Me.RefeshRateLabel.AutoSize = True
Me.RefeshRateLabel.Location = New System.Drawing.Point(6, 78)
Me.RefeshRateLabel.Name = "RefeshRateLabel"
Me.RefeshRateLabel.Size = New System.Drawing.Size(75, 13)
Me.RefeshRateLabel.TabIndex = 3
Me.RefeshRateLabel.Text = "Refresh Rate:"
'
'RefreshRate
'
Me.RefreshRate.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.RefreshRate.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.RefreshRate.FormattingEnabled = True
Me.RefreshRate.Items.AddRange(New Object() {"5 Hz", "7.5 Hz", "10 Hz", "15 Hz", "30 Hz", "60 Hz", "Dynamic"})
Me.RefreshRate.Location = New System.Drawing.Point(87, 75)
Me.RefreshRate.Name = "RefreshRate"
Me.RefreshRate.Size = New System.Drawing.Size(98, 21)
Me.RefreshRate.TabIndex = 2
'
'StartModeLabel
'
Me.StartModeLabel.AutoSize = True
Me.StartModeLabel.Location = New System.Drawing.Point(6, 51)
Me.StartModeLabel.Name = "StartModeLabel"
Me.StartModeLabel.Size = New System.Drawing.Size(46, 13)
Me.StartModeLabel.TabIndex = 1
Me.StartModeLabel.Text = "Start in:"
'
'StartMode
'
Me.StartMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.StartMode.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.StartMode.FormattingEnabled = True
Me.StartMode.Items.AddRange(New Object() {"Window", "Fullscreen"})
Me.StartMode.Location = New System.Drawing.Point(87, 48)
Me.StartMode.Name = "StartMode"
Me.StartMode.Size = New System.Drawing.Size(98, 21)
Me.StartMode.TabIndex = 0
'
'NetworkFrame
'
Me.NetworkFrame.Controls.Add(Me.NetInterfaceLabel)
Me.NetworkFrame.Controls.Add(Me.NetInterface)
Me.NetworkFrame.Controls.Add(Me.RouterPanel)
Me.NetworkFrame.Location = New System.Drawing.Point(0, 3)
Me.NetworkFrame.Name = "NetworkFrame"
Me.NetworkFrame.Size = New System.Drawing.Size(367, 279)
Me.NetworkFrame.TabIndex = 8
Me.NetworkFrame.TabStop = False
Me.NetworkFrame.Text = "Network"
'
'NetInterfaceLabel
'
Me.NetInterfaceLabel.AutoSize = True
Me.NetInterfaceLabel.Location = New System.Drawing.Point(14, 30)
Me.NetInterfaceLabel.Name = "NetInterfaceLabel"
Me.NetInterfaceLabel.Size = New System.Drawing.Size(99, 13)
Me.NetInterfaceLabel.TabIndex = 2
Me.NetInterfaceLabel.Text = "Network Interface:"
'
'NetInterface
'
Me.NetInterface.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.NetInterface.FormattingEnabled = True
Me.NetInterface.Items.AddRange(New Object() {"Slirp", "Router", "Disabled"})
Me.NetInterface.Location = New System.Drawing.Point(119, 27)
Me.NetInterface.Name = "NetInterface"
Me.NetInterface.Size = New System.Drawing.Size(242, 21)
Me.NetInterface.TabIndex = 1
'
'RouterPanel
'
Me.RouterPanel.Controls.Add(Me.FTPPortsLabel)
Me.RouterPanel.Controls.Add(Me.ServerPortsLabel)
Me.RouterPanel.Controls.Add(Me.FTPPorts)
Me.RouterPanel.Controls.Add(Me.ServerPorts)
Me.RouterPanel.Location = New System.Drawing.Point(9, 51)
Me.RouterPanel.Name = "RouterPanel"
Me.RouterPanel.Size = New System.Drawing.Size(360, 62)
Me.RouterPanel.TabIndex = 8
'
'FTPPortsLabel
'
Me.FTPPortsLabel.AutoSize = True
Me.FTPPortsLabel.Location = New System.Drawing.Point(5, 6)
Me.FTPPortsLabel.Name = "FTPPortsLabel"
Me.FTPPortsLabel.Size = New System.Drawing.Size(53, 13)
Me.FTPPortsLabel.TabIndex = 4
Me.FTPPortsLabel.Text = "FTP Ports"
'
'ServerPortsLabel
'
Me.ServerPortsLabel.AutoSize = True
Me.ServerPortsLabel.Location = New System.Drawing.Point(5, 33)
Me.ServerPortsLabel.Name = "ServerPortsLabel"
Me.ServerPortsLabel.Size = New System.Drawing.Size(67, 13)
Me.ServerPortsLabel.TabIndex = 6
Me.ServerPortsLabel.Text = "Server Ports"
'
'FTPPorts
'
Me.FTPPorts.Location = New System.Drawing.Point(110, 3)
Me.FTPPorts.Name = "FTPPorts"
Me.FTPPorts.Size = New System.Drawing.Size(242, 21)
Me.FTPPorts.TabIndex = 3
'
'ServerPorts
'
Me.ServerPorts.Location = New System.Drawing.Point(110, 30)
Me.ServerPorts.Name = "ServerPorts"
Me.ServerPorts.Size = New System.Drawing.Size(242, 21)
Me.ServerPorts.TabIndex = 5
'
'InputFrame
'
Me.InputFrame.Controls.Add(Me.KeyboardGroup)
Me.InputFrame.Controls.Add(Me.MouseGroup)
Me.InputFrame.Location = New System.Drawing.Point(0, 3)
Me.InputFrame.Name = "InputFrame"
Me.InputFrame.Size = New System.Drawing.Size(367, 279)
Me.InputFrame.TabIndex = 8
Me.InputFrame.TabStop = False
Me.InputFrame.Text = "Mouse and keyboard"
'
'KeyboardGroup
'
Me.KeyboardGroup.Controls.Add(Me.KeyCodesPathLabel)
Me.KeyboardGroup.Controls.Add(Me.KeyCodesPath)
Me.KeyboardGroup.Controls.Add(Me.UseKeycodes)
Me.KeyboardGroup.Controls.Add(Me.BrowseKeyCodes)
Me.KeyboardGroup.Location = New System.Drawing.Point(6, 126)
Me.KeyboardGroup.Name = "KeyboardGroup"
Me.KeyboardGroup.Size = New System.Drawing.Size(355, 147)
Me.KeyboardGroup.TabIndex = 0
Me.KeyboardGroup.TabStop = False
Me.KeyboardGroup.Text = "Keyboard"
'
'KeyCodesPathLabel
'
Me.KeyCodesPathLabel.AutoSize = True
Me.KeyCodesPathLabel.Location = New System.Drawing.Point(3, 49)
Me.KeyCodesPathLabel.Name = "KeyCodesPathLabel"
Me.KeyCodesPathLabel.Size = New System.Drawing.Size(111, 13)
Me.KeyCodesPathLabel.TabIndex = 3
Me.KeyCodesPathLabel.Text = "Path to keycodes file:"
'
'KeyCodesPath
'
Me.KeyCodesPath.Location = New System.Drawing.Point(3, 70)
Me.KeyCodesPath.Name = "KeyCodesPath"
Me.KeyCodesPath.Size = New System.Drawing.Size(307, 21)
Me.KeyCodesPath.TabIndex = 2
'
'UseKeycodes
'
Me.UseKeycodes.AutoSize = True
Me.UseKeycodes.Location = New System.Drawing.Point(6, 20)
Me.UseKeycodes.Name = "UseKeycodes"
Me.UseKeycodes.Size = New System.Drawing.Size(109, 17)
Me.UseKeycodes.TabIndex = 0
Me.UseKeycodes.Text = "Use keycodes file"
Me.UseKeycodes.UseVisualStyleBackColor = True
'
'BrowseKeyCodes
'
Me.BrowseKeyCodes.Location = New System.Drawing.Point(316, 68)
Me.BrowseKeyCodes.Name = "BrowseKeyCodes"
Me.BrowseKeyCodes.Size = New System.Drawing.Size(33, 23)
Me.BrowseKeyCodes.TabIndex = 1
Me.BrowseKeyCodes.Text = "..."
Me.BrowseKeyCodes.UseVisualStyleBackColor = True
'
'MouseGroup
'
Me.MouseGroup.Controls.Add(Me.ScrollLinesLabel)
Me.MouseGroup.Controls.Add(Me.WheelFunctionLabel)
Me.MouseGroup.Controls.Add(Me.WheelFunction)
Me.MouseGroup.Controls.Add(Me.ScrollLines)
Me.MouseGroup.Location = New System.Drawing.Point(6, 20)
Me.MouseGroup.Name = "MouseGroup"
Me.MouseGroup.Size = New System.Drawing.Size(355, 100)
Me.MouseGroup.TabIndex = 5
Me.MouseGroup.TabStop = False
Me.MouseGroup.Text = "Mouse"
'
'ScrollLinesLabel
'
Me.ScrollLinesLabel.AutoSize = True
Me.ScrollLinesLabel.Location = New System.Drawing.Point(6, 47)
Me.ScrollLinesLabel.Name = "ScrollLinesLabel"
Me.ScrollLinesLabel.Size = New System.Drawing.Size(75, 13)
Me.ScrollLinesLabel.TabIndex = 6
Me.ScrollLinesLabel.Text = "Lines to scroll:"
'
'WheelFunctionLabel
'
Me.WheelFunctionLabel.AutoSize = True
Me.WheelFunctionLabel.Location = New System.Drawing.Point(6, 21)
Me.WheelFunctionLabel.Name = "WheelFunctionLabel"
Me.WheelFunctionLabel.Size = New System.Drawing.Size(83, 13)
Me.WheelFunctionLabel.TabIndex = 5
Me.WheelFunctionLabel.Text = "Wheel function:"
'
'WheelFunction
'
Me.WheelFunction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.WheelFunction.FormattingEnabled = True
Me.WheelFunction.Items.AddRange(New Object() {"Cursor Up/Down", "Page Up/Down"})
Me.WheelFunction.Location = New System.Drawing.Point(95, 18)
Me.WheelFunction.Name = "WheelFunction"
Me.WheelFunction.Size = New System.Drawing.Size(76, 21)
Me.WheelFunction.TabIndex = 3
'
'ScrollLines
'
Me.ScrollLines.Location = New System.Drawing.Point(95, 45)
Me.ScrollLines.Maximum = New Decimal(New Integer() {50, 0, 0, 0})
Me.ScrollLines.Name = "ScrollLines"
Me.ScrollLines.Size = New System.Drawing.Size(76, 21)
Me.ScrollLines.TabIndex = 4
'
'SerialFrame
'
Me.SerialFrame.Controls.Add(Me.PrinterPort)
Me.SerialFrame.Controls.Add(Me.PrinterPortLabel)
Me.SerialFrame.Controls.Add(Me.PrinterOutputFile)
Me.SerialFrame.Controls.Add(Me.ModemPort)
Me.SerialFrame.Controls.Add(Me.Label2)
Me.SerialFrame.Controls.Add(Me.ModemOutputFile)
Me.SerialFrame.Location = New System.Drawing.Point(0, 3)
Me.SerialFrame.Name = "SerialFrame"
Me.SerialFrame.Size = New System.Drawing.Size(367, 279)
Me.SerialFrame.TabIndex = 8
Me.SerialFrame.TabStop = False
Me.SerialFrame.Text = "Serial ports"
'
'PrinterPort
'
Me.PrinterPort.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.PrinterPort.FormattingEnabled = True
Me.PrinterPort.Items.AddRange(New Object() {"COM 1", "COM 2", "COM 3", "COM 4", "COM 5", "COM 6", "LPT 1", "LPT 2", "LPT 3", "LPT 4", "LPT 5", "LPT 6", "File"})
Me.PrinterPort.Location = New System.Drawing.Point(76, 80)
Me.PrinterPort.Name = "PrinterPort"
Me.PrinterPort.Size = New System.Drawing.Size(69, 21)
Me.PrinterPort.TabIndex = 8
'
'PrinterPortLabel
'
Me.PrinterPortLabel.AutoSize = True
Me.PrinterPortLabel.Location = New System.Drawing.Point(6, 84)
Me.PrinterPortLabel.Name = "PrinterPortLabel"
Me.PrinterPortLabel.Size = New System.Drawing.Size(66, 13)
Me.PrinterPortLabel.TabIndex = 7
Me.PrinterPortLabel.Text = "Printer Port:"
'
'PrinterOutputFile
'
Me.PrinterOutputFile.Controls.Add(Me.PrinterOutputPath)
Me.PrinterOutputFile.Controls.Add(Me.BrowsePOFile)
Me.PrinterOutputFile.Location = New System.Drawing.Point(6, 100)
Me.PrinterOutputFile.Name = "PrinterOutputFile"
Me.PrinterOutputFile.Size = New System.Drawing.Size(360, 31)
Me.PrinterOutputFile.TabIndex = 9
'
'PrinterOutputPath
'
Me.PrinterOutputPath.Location = New System.Drawing.Point(3, 5)
Me.PrinterOutputPath.Name = "PrinterOutputPath"
Me.PrinterOutputPath.Size = New System.Drawing.Size(274, 21)
Me.PrinterOutputPath.TabIndex = 0
'
'BrowsePOFile
'
Me.BrowsePOFile.Location = New System.Drawing.Point(283, 4)
Me.BrowsePOFile.Name = "BrowsePOFile"
Me.BrowsePOFile.Size = New System.Drawing.Size(75, 23)
Me.BrowsePOFile.TabIndex = 4
Me.BrowsePOFile.Text = "Browse"
Me.BrowsePOFile.UseVisualStyleBackColor = True
'
'ModemPort
'
Me.ModemPort.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ModemPort.FormattingEnabled = True
Me.ModemPort.Items.AddRange(New Object() {"COM 1", "COM 2", "COM 3", "COM 4", "COM 5", "COM 6", "LPT 1", "LPT 2", "LPT 3", "LPT 4", "LPT 5", "LPT 6", "File"})
Me.ModemPort.Location = New System.Drawing.Point(76, 20)
Me.ModemPort.Name = "ModemPort"
Me.ModemPort.Size = New System.Drawing.Size(69, 21)
Me.ModemPort.TabIndex = 5
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(6, 24)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(68, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Modem Port:"
'
'ModemOutputFile
'
Me.ModemOutputFile.Controls.Add(Me.ModemOutputPath)
Me.ModemOutputFile.Controls.Add(Me.BrowseMOFile)
Me.ModemOutputFile.Location = New System.Drawing.Point(6, 40)
Me.ModemOutputFile.Name = "ModemOutputFile"
Me.ModemOutputFile.Size = New System.Drawing.Size(360, 31)
Me.ModemOutputFile.TabIndex = 6
'
'ModemOutputPath
'
Me.ModemOutputPath.Location = New System.Drawing.Point(3, 5)
Me.ModemOutputPath.Name = "ModemOutputPath"
Me.ModemOutputPath.Size = New System.Drawing.Size(274, 21)
Me.ModemOutputPath.TabIndex = 0
'
'BrowseMOFile
'
Me.BrowseMOFile.Location = New System.Drawing.Point(283, 4)
Me.BrowseMOFile.Name = "BrowseMOFile"
Me.BrowseMOFile.Size = New System.Drawing.Size(75, 23)
Me.BrowseMOFile.TabIndex = 4
Me.BrowseMOFile.Text = "Browse"
Me.BrowseMOFile.UseVisualStyleBackColor = True
'
'MemoryFrame
'
Me.MemoryFrame.Controls.Add(Me.Memory)
Me.MemoryFrame.Controls.Add(Me.MegabyteLabel)
Me.MemoryFrame.Controls.Add(Me.MemoryLabel)
Me.MemoryFrame.Controls.Add(Me.MemorySlider)
Me.MemoryFrame.Location = New System.Drawing.Point(0, 3)
Me.MemoryFrame.Name = "MemoryFrame"
Me.MemoryFrame.Size = New System.Drawing.Size(367, 279)
Me.MemoryFrame.TabIndex = 8
Me.MemoryFrame.TabStop = False
Me.MemoryFrame.Text = "Memory"
'
'Memory
'
Me.Memory.Location = New System.Drawing.Point(273, 61)
Me.Memory.Name = "Memory"
Me.Memory.Size = New System.Drawing.Size(43, 21)
Me.Memory.TabIndex = 5
'
'MegabyteLabel
'
Me.MegabyteLabel.AutoSize = True
Me.MegabyteLabel.Location = New System.Drawing.Point(322, 63)
Me.MegabyteLabel.Name = "MegabyteLabel"
Me.MegabyteLabel.Size = New System.Drawing.Size(21, 13)
Me.MegabyteLabel.TabIndex = 4
Me.MegabyteLabel.Text = "MB"
'
'MemoryLabel
'
Me.MemoryLabel.AutoSize = True
Me.MemoryLabel.Location = New System.Drawing.Point(6, 35)
Me.MemoryLabel.Name = "MemoryLabel"
Me.MemoryLabel.Size = New System.Drawing.Size(260, 13)
Me.MemoryLabel.TabIndex = 2
Me.MemoryLabel.Text = "Set the amount of RAM to dedicate to this Macintosh"
'
'MemorySlider
'
Me.MemorySlider.Location = New System.Drawing.Point(3, 60)
Me.MemorySlider.Maximum = 100
Me.MemorySlider.Name = "MemorySlider"
Me.MemorySlider.Size = New System.Drawing.Size(264, 45)
Me.MemorySlider.TabIndex = 0
Me.MemorySlider.TickFrequency = 5
'
'MiscFrame
'
Me.MiscFrame.Controls.Add(Me.IgnoreIllegal)
Me.MiscFrame.Controls.Add(Me.IdleCPU)
Me.MiscFrame.Controls.Add(Me.Enable68kEmu)
Me.MiscFrame.Controls.Add(Me.EnableJIT)
Me.MiscFrame.Location = New System.Drawing.Point(0, 3)
Me.MiscFrame.Name = "MiscFrame"
Me.MiscFrame.Size = New System.Drawing.Size(367, 279)
Me.MiscFrame.TabIndex = 8
Me.MiscFrame.TabStop = False
Me.MiscFrame.Text = "Miscelaneous"
'
'IgnoreIllegal
'
Me.IgnoreIllegal.AutoSize = True
Me.IgnoreIllegal.Location = New System.Drawing.Point(3, 86)
Me.IgnoreIllegal.Name = "IgnoreIllegal"
Me.IgnoreIllegal.Size = New System.Drawing.Size(174, 17)
Me.IgnoreIllegal.TabIndex = 3
Me.IgnoreIllegal.Text = "Ignore illegal memory accesses"
Me.IgnoreIllegal.UseVisualStyleBackColor = True
'
'IdleCPU
'
Me.IdleCPU.AutoSize = True
Me.IdleCPU.Location = New System.Drawing.Point(3, 63)
Me.IdleCPU.Name = "IdleCPU"
Me.IdleCPU.Size = New System.Drawing.Size(142, 17)
Me.IdleCPU.TabIndex = 2
Me.IdleCPU.Text = "Don't use CPU when idle"
Me.IdleCPU.UseVisualStyleBackColor = True
'
'Enable68kEmu
'
Me.Enable68kEmu.AutoSize = True
Me.Enable68kEmu.Enabled = False
Me.Enable68kEmu.Location = New System.Drawing.Point(3, 40)
Me.Enable68kEmu.Name = "Enable68kEmu"
Me.Enable68kEmu.Size = New System.Drawing.Size(196, 17)
Me.Enable68kEmu.TabIndex = 1
Me.Enable68kEmu.Text = "Enable 68k emulator (experimental)"
Me.Enable68kEmu.UseVisualStyleBackColor = True
'
'EnableJIT
'
Me.EnableJIT.AutoSize = True
Me.EnableJIT.Location = New System.Drawing.Point(3, 17)
Me.EnableJIT.Name = "EnableJIT"
Me.EnableJIT.Size = New System.Drawing.Size(120, 17)
Me.EnableJIT.TabIndex = 0
Me.EnableJIT.Text = "Enable JIT Compiler"
Me.EnableJIT.UseVisualStyleBackColor = True
'
'DrivesFrame
'
Me.DrivesFrame.Controls.Add(Me.DrivesList)
Me.DrivesFrame.Controls.Add(Me.MoveItemDown)
Me.DrivesFrame.Controls.Add(Me.MoveItemUp)
Me.DrivesFrame.Controls.Add(Me.AddDisk)
Me.DrivesFrame.Controls.Add(Me.AddCD)
Me.DrivesFrame.Controls.Add(Me.DeleteItem)
Me.DrivesFrame.Location = New System.Drawing.Point(0, 3)
Me.DrivesFrame.Name = "DrivesFrame"
Me.DrivesFrame.Size = New System.Drawing.Size(367, 279)
Me.DrivesFrame.TabIndex = 8
Me.DrivesFrame.TabStop = False
Me.DrivesFrame.Text = "Drives"
'
'DrivesList
'
Me.DrivesList.FormattingEnabled = True
Me.DrivesList.Items.AddRange(New Object() {"C:\Users\Usuario\Documents\ISOs\Mac OS 8.5 Spanish.iso", "C:\Users\Usuario\Documents\My Macs\Mac OS 8\Mac OS 8.dsk", "C:\Users\Usuario\Documents\My Macs\Mac OS 8\Data.dsk"})
Me.DrivesList.Location = New System.Drawing.Point(3, 17)
Me.DrivesList.Name = "DrivesList"
Me.DrivesList.Size = New System.Drawing.Size(358, 186)
Me.DrivesList.TabIndex = 6
'
'MoveItemDown
'
Me.MoveItemDown.Enabled = False
Me.MoveItemDown.Location = New System.Drawing.Point(328, 213)
Me.MoveItemDown.Name = "MoveItemDown"
Me.MoveItemDown.Size = New System.Drawing.Size(33, 23)
Me.MoveItemDown.TabIndex = 5
Me.MoveItemDown.Text = "\/"
Me.MoveItemDown.UseVisualStyleBackColor = True
'
'MoveItemUp
'
Me.MoveItemUp.Enabled = False
Me.MoveItemUp.Location = New System.Drawing.Point(294, 213)
Me.MoveItemUp.Name = "MoveItemUp"
Me.MoveItemUp.Size = New System.Drawing.Size(33, 23)
Me.MoveItemUp.TabIndex = 4
Me.MoveItemUp.Text = "/\"
Me.MoveItemUp.UseVisualStyleBackColor = True
'
'AddDisk
'
Me.AddDisk.Location = New System.Drawing.Point(6, 213)
Me.AddDisk.Name = "AddDisk"
Me.AddDisk.Size = New System.Drawing.Size(56, 23)
Me.AddDisk.TabIndex = 3
Me.AddDisk.Text = "Add disk"
Me.AddDisk.UseVisualStyleBackColor = True
'
'AddCD
'
Me.AddCD.Location = New System.Drawing.Point(68, 213)
Me.AddCD.Name = "AddCD"
Me.AddCD.Size = New System.Drawing.Size(56, 23)
Me.AddCD.TabIndex = 2
Me.AddCD.Text = "Add CD"
Me.AddCD.UseVisualStyleBackColor = True
'
'DeleteItem
'
Me.DeleteItem.Location = New System.Drawing.Point(130, 213)
Me.DeleteItem.Name = "DeleteItem"
Me.DeleteItem.Size = New System.Drawing.Size(90, 23)
Me.DeleteItem.TabIndex = 1
Me.DeleteItem.Text = "Delete selected"
Me.DeleteItem.UseVisualStyleBackColor = True
'
'OptionsList
'
Me.OptionsList.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Options, Me.Value})
Me.OptionsList.FullRowSelect = True
Me.OptionsList.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
Me.OptionsList.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1, ListViewItem2, ListViewItem3, ListViewItem4, ListViewItem5, ListViewItem6, ListViewItem7, ListViewItem8, ListViewItem9})
Me.OptionsList.Location = New System.Drawing.Point(12, 12)
Me.OptionsList.Name = "OptionsList"
Me.OptionsList.Size = New System.Drawing.Size(353, 376)
Me.OptionsList.TabIndex = 19
Me.OptionsList.UseCompatibleStateImageBehavior = False
Me.OptionsList.View = System.Windows.Forms.View.Details
'
'Options
'
Me.Options.Text = "Options"
Me.Options.Width = 173
'
'Value
'
Me.Value.Text = "Value"
Me.Value.Width = 176
'
'OptionPanel
'
Me.OptionPanel.Controls.Add(Me.SerialFrame)
Me.OptionPanel.Controls.Add(Me.MiscFrame)
Me.OptionPanel.Controls.Add(Me.NetworkFrame)
Me.OptionPanel.Controls.Add(Me.InputFrame)
Me.OptionPanel.Controls.Add(Me.ScreenFrame)
Me.OptionPanel.Controls.Add(Me.IconFrame)
Me.OptionPanel.Controls.Add(Me.DrivesFrame)
Me.OptionPanel.Controls.Add(Me.MemoryFrame)
Me.OptionPanel.Controls.Add(Me.VMNameFrame)
Me.OptionPanel.Location = New System.Drawing.Point(371, 2)
Me.OptionPanel.Name = "OptionPanel"
Me.OptionPanel.Size = New System.Drawing.Size(373, 294)
Me.OptionPanel.TabIndex = 21
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(399, 324)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(327, 13)
Me.Label1.TabIndex = 22
Me.Label1.Text = "Warning! You need to close this window for changes to take effect"
'
'frmSettingsSheepVM
'
Me.AcceptButton = Me.cmdOK
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.BackColor = System.Drawing.SystemColors.Control
Me.CancelButton = Me.cmdCancel
Me.ClientSize = New System.Drawing.Size(750, 400)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.OptionPanel)
Me.Controls.Add(Me.OptionsList)
Me.Controls.Add(Me.cmdCancel)
Me.Controls.Add(Me.cmdOK)
Me.Cursor = System.Windows.Forms.Cursors.Default
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Location = New System.Drawing.Point(3, 29)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmSettingsSheepVM"
Me.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Text = "Settings for %s"
Me.IconFrame.ResumeLayout(False)
Me.VMNameFrame.ResumeLayout(False)
Me.VMNameFrame.PerformLayout()
Me.ScreenFrame.ResumeLayout(False)
Me.ScreenFrame.PerformLayout()
Me.NetworkFrame.ResumeLayout(False)
Me.NetworkFrame.PerformLayout()
Me.RouterPanel.ResumeLayout(False)
Me.RouterPanel.PerformLayout()
Me.InputFrame.ResumeLayout(False)
Me.KeyboardGroup.ResumeLayout(False)
Me.KeyboardGroup.PerformLayout()
Me.MouseGroup.ResumeLayout(False)
Me.MouseGroup.PerformLayout()
CType(Me.ScrollLines, System.ComponentModel.ISupportInitialize).EndInit()
Me.SerialFrame.ResumeLayout(False)
Me.SerialFrame.PerformLayout()
Me.PrinterOutputFile.ResumeLayout(False)
Me.PrinterOutputFile.PerformLayout()
Me.ModemOutputFile.ResumeLayout(False)
Me.ModemOutputFile.PerformLayout()
Me.MemoryFrame.ResumeLayout(False)
Me.MemoryFrame.PerformLayout()
CType(Me.MemorySlider, System.ComponentModel.ISupportInitialize).EndInit()
Me.MiscFrame.ResumeLayout(False)
Me.MiscFrame.PerformLayout()
Me.DrivesFrame.ResumeLayout(False)
Me.OptionPanel.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents IconFrame As System.Windows.Forms.GroupBox
Friend WithEvents Browser As System.Windows.Forms.OpenFileDialog
Friend WithEvents VMNameFrame As System.Windows.Forms.GroupBox
Friend WithEvents VMNameHelp As System.Windows.Forms.Label
Friend WithEvents VMName As System.Windows.Forms.TextBox
Friend WithEvents Icons As System.Windows.Forms.ImageList
Friend WithEvents IconList As System.Windows.Forms.ListView
Friend WithEvents IconDescription As System.Windows.Forms.Label
Friend WithEvents BrowseIcon As System.Windows.Forms.Button
Friend WithEvents ScreenFrame As System.Windows.Forms.GroupBox
Friend WithEvents NetworkFrame As System.Windows.Forms.GroupBox
Friend WithEvents InputFrame As System.Windows.Forms.GroupBox
Friend WithEvents SerialFrame As System.Windows.Forms.GroupBox
Friend WithEvents MemoryFrame As System.Windows.Forms.GroupBox
Friend WithEvents MiscFrame As System.Windows.Forms.GroupBox
Friend WithEvents DrivesFrame As System.Windows.Forms.GroupBox
Friend WithEvents IgnoreIllegal As System.Windows.Forms.CheckBox
Friend WithEvents IdleCPU As System.Windows.Forms.CheckBox
Friend WithEvents Enable68kEmu As System.Windows.Forms.CheckBox
Friend WithEvents EnableJIT As System.Windows.Forms.CheckBox
Friend WithEvents MegabyteLabel As System.Windows.Forms.Label
Friend WithEvents MemoryLabel As System.Windows.Forms.Label
Friend WithEvents MemorySlider As System.Windows.Forms.TrackBar
Friend WithEvents OptionsList As System.Windows.Forms.ListView
Friend WithEvents Options As System.Windows.Forms.ColumnHeader
Friend WithEvents Value As System.Windows.Forms.ColumnHeader
Friend WithEvents StartModeLabel As System.Windows.Forms.Label
Friend WithEvents StartMode As System.Windows.Forms.ComboBox
Friend WithEvents VMResLabel As System.Windows.Forms.Label
Friend WithEvents VMResDef As System.Windows.Forms.ComboBox
Friend WithEvents RefeshRateLabel As System.Windows.Forms.Label
Friend WithEvents RefreshRate As System.Windows.Forms.ComboBox
Friend WithEvents CustResolution As System.Windows.Forms.CheckBox
Friend WithEvents VMResHeight As System.Windows.Forms.ComboBox
Friend WithEvents VMResWidth As System.Windows.Forms.ComboBox
Friend WithEvents MoveItemDown As System.Windows.Forms.Button
Friend WithEvents MoveItemUp As System.Windows.Forms.Button
Friend WithEvents AddDisk As System.Windows.Forms.Button
Friend WithEvents AddCD As System.Windows.Forms.Button
Friend WithEvents DeleteItem As System.Windows.Forms.Button
Friend WithEvents DrivesList As System.Windows.Forms.ListBox
Friend WithEvents NetInterfaceLabel As System.Windows.Forms.Label
Friend WithEvents NetInterface As System.Windows.Forms.ComboBox
Friend WithEvents FTPPorts As System.Windows.Forms.TextBox
Friend WithEvents ServerPortsLabel As System.Windows.Forms.Label
Friend WithEvents ServerPorts As System.Windows.Forms.TextBox
Friend WithEvents FTPPortsLabel As System.Windows.Forms.Label
Friend WithEvents RouterPanel As System.Windows.Forms.Panel
Friend WithEvents ScrollLines As System.Windows.Forms.NumericUpDown
Friend WithEvents WheelFunction As System.Windows.Forms.ComboBox
Friend WithEvents KeyCodesPath As System.Windows.Forms.TextBox
Friend WithEvents BrowseKeyCodes As System.Windows.Forms.Button
Friend WithEvents UseKeycodes As System.Windows.Forms.CheckBox
Friend WithEvents KeyboardGroup As System.Windows.Forms.GroupBox
Friend WithEvents KeyCodesPathLabel As System.Windows.Forms.Label
Friend WithEvents MouseGroup As System.Windows.Forms.GroupBox
Friend WithEvents ScrollLinesLabel As System.Windows.Forms.Label
Friend WithEvents WheelFunctionLabel As System.Windows.Forms.Label
Friend WithEvents Memory As System.Windows.Forms.TextBox
Friend WithEvents ModemPort As System.Windows.Forms.ComboBox
Friend WithEvents BrowseMOFile As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ModemOutputPath As System.Windows.Forms.TextBox
Friend WithEvents PrinterPort As System.Windows.Forms.ComboBox
Friend WithEvents PrinterPortLabel As System.Windows.Forms.Label
Friend WithEvents PrinterOutputFile As System.Windows.Forms.Panel
Friend WithEvents PrinterOutputPath As System.Windows.Forms.TextBox
Friend WithEvents BrowsePOFile As System.Windows.Forms.Button
Friend WithEvents ModemOutputFile As System.Windows.Forms.Panel
Friend WithEvents OptionPanel As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label
#End Region
End Class

152
frmSettingsSheepVM.resX Normal file
View File

@ -0,0 +1,152 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="Icons.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>203, 17</value>
</metadata>
<metadata name="Browser.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>111, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAICAQAAEABADoAgAAJgAAABAQEAABAAQAKAEAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/
AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAAAAAAAAB3d3d3d3d3d3d3cAAAAAAAd3d3
d3d3d3d3d3AAAAAAAHd3d3d3d3d3d3dwAAAAAAAAAAAAAAAAAAAAAAAAAAAHd3d3d3d3d3d3d3cAAAAA
B3d3d3d3d3d3d3d3AAAAAAd3d3d3d3d3d3d3dwAAAAAHd3d3d3d3d3d3d3cAAAAAB3AHd3d3d3AAAAd3
AAAAAAd3d3d3d3d3d3d3dwAAAAAHd3d3d3d3d3d3d3cAAAAAB3d3d3d3d3d3d3d3AAAAAAd3d3d3d3d3
d3d3dwAAAAAHdwAAAAAAAAAAB3cAAAAAB3B3d3d3d3d3d3B3AAAAAAdwd3d3d3d3d3dwdwAAAAAHcHd3
dwAAd3d3cHcAAAAAB3B3d3B3dwd3d3B3AAAAAAdwd3d3d3d3d3dwdwAAAAAHcHd3d3AHd3d3cHcAAAAA
B3B3d3d3B3d3d3B3AAAAAAdwd3d3dwd3d3dwdwAAAAAHcHd3B3cHdwd3cHcAAAAAB3B3dwd3B3cHd3B3
AAAAAAdwd3d3d3d3d3dwdwAAAAAHcHd3d3d3d3d3cHcAAAAAB3B3d3d3d3d3d3B3AAAAAAd3AAAAAAAA
AAAHdwAAAAAHd3d3d3d3d3d3d3cAAAAAAHd3d3d3d3d3d3dwAAAAAAAAAAAAAAAAAAAAAAAA+AAAD/gA
AA/4AAAP+AAAD/AAAAfwAAAH8AAAB/AAAAfwAAAH8AAAB/AAAAfwAAAH8AAAB/AAAAfwAAAH8AAAB/AA
AAfwAAAH8AAAB/AAAAfwAAAH8AAAB/AAAAfwAAAH8AAAB/AAAAfwAAAH8AAAB/AAAAfwAAAH8AAAB/gA
AA8oAAAAEAAAACAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAA
AACAAIAAgIAAAMDAwACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAd3d3d3
AAAAAAAAAAAAAAB3d3d3d3AAAHB3d3AAcAAAd3d3d3dwAABwAAAAAHAAAHB3d3dwcAAAcHcAB3BwAABw
cHdwcHAAAHB3cHdwcAAAcHBwcHBwAABwd3d3cHAAAHAAAAAAcAAAd3d3d3dwAAAAAAAAAAAAwAcAAMAH
AACAAwAAgAMAAIADAACAAwAAgAMAAIADAACAAwAAgAMAAIADAACAAwAAgAMAAIADAACAAwAAwAcAAA==
</value>
</data>
</root>

176
frmSettingsSheepVM.vb Normal file
View File

@ -0,0 +1,176 @@
Option Strict Off
Option Explicit On
Friend Class frmSettingsSheepVM
Inherits System.Windows.Forms.Form
Public Item As String
Private Sub cmdCancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCancel.Click
Me.Close() 'Saves nothing and closes the dialog
End Sub
Private Sub cmdOK_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOK.Click
SaveSettings(Item)
Me.Close()
End Sub
Private Sub frmVMSettings_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Save in a Label the item for which is the config for
Item = frmMain.VMList.FocusedItem.Index
'Load the settings from the Console
LoadSettings(Item)
End Sub
Public Sub LoadSettings(ByVal Item As Integer)
Dim HostRAM As Long = My.Computer.Info.TotalPhysicalMemory / 1024 / 1024
MemorySlider.Maximum = HostRAM
MemorySlider.TickFrequency = HostRAM / 20
Me.Text = "Settings for " & frmMain.VMList.Items.Item(Item).Text
VMName.Text = frmMain.VMList.Items.Item(Item).Text
For x As Integer = 0 To frmMain.MacIcons.Images.Count - 1
Icons.Images.Add(x, frmMain.MacIcons.Images.Item(x))
With IconList.Items.Add(x)
.ImageIndex = x
End With
Next
IconFrame.Visible = False
VMNameFrame.Visible = False
MiscFrame.Visible = False
NetworkFrame.Visible = False
MemoryFrame.Visible = False
InputFrame.Visible = False
DrivesFrame.Visible = False
ScreenFrame.Visible = False
SerialFrame.Visible = False
VMName.Visible = True
ModemPort.SelectedIndex = 0
PrinterPort.SelectedIndex = 0
End Sub
Public Sub SaveSettings(ByVal Item As Integer)
'Set the Text of the TextBox as the Mac name
frmMain.VMList.Items.Item(Item).Text = VMName.Text
End Sub
Private Sub Browse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowseIcon.Click
If Browser.ShowDialog() = 1 Then
Dim ImgName As String = System.IO.Path.GetFileNameWithoutExtension(Browser.FileName)
Dim Img As System.Drawing.Image
Img = Image.FromFile(Browser.FileName)
frmMain.MacIcons.Images.Add(ImgName, Img)
My.Settings.x = My.Settings.x & Browser.FileName & ","
Icons.Images.Add(ImgName, Img)
IconList.Items.Add(ImgName, Icons.Images.Count - 1)
IconList.Items.Item(Icons.Images.Count - 1).Focused = True
End If
End Sub
Private Sub MemorySlider_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles MemorySlider.Scroll
Memory.Text = MemorySlider.Value
End Sub
Private Sub OptionsList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles OptionsList.SelectedIndexChanged
IconFrame.Visible = False
VMNameFrame.Visible = False
MiscFrame.Visible = False
NetworkFrame.Visible = False
MemoryFrame.Visible = False
InputFrame.Visible = False
DrivesFrame.Visible = False
ScreenFrame.Visible = False
SerialFrame.Visible = False
Select Case OptionsList.FocusedItem.Index
Case 0
VMNameFrame.Visible = True
Case 1
IconFrame.Visible = True
Case 2
MemoryFrame.Visible = True
Case 3
DrivesFrame.Visible = True
Case 4
NetworkFrame.Visible = True
Case 5
ScreenFrame.Visible = True
Case 6
InputFrame.Visible = True
Case 7
SerialFrame.Visible = True
Case 8
MiscFrame.Visible = True
End Select
End Sub
Private Sub CustResolution_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustResolution.CheckedChanged
If CustResolution.Checked = True Then
VMResDef.Visible = False
VMResWidth.Visible = True
VMResHeight.Visible = True
Else
VMResDef.Visible = True
VMResWidth.Visible = False
VMResHeight.Visible = False
End If
End Sub
Private Sub DeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteItem.Click
DrivesList.Items.RemoveAt(DrivesList.SelectedIndex)
DeleteItem.Enabled = False
End Sub
Private Sub AddDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddDisk.Click
Browser.ShowDialog()
DrivesList.Items.Add(Browser.FileName)
End Sub
Private Sub AddCD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddCD.Click
Browser.ShowDialog()
DrivesList.Items.Add(Browser.FileName)
End Sub
Private Sub NetInterface_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NetInterface.SelectedIndexChanged
If NetInterface.SelectedIndex = 1 Then
RouterPanel.Enabled = True
Else
RouterPanel.Enabled = False
End If
End Sub
Private Sub Memory_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Memory.KeyPress
If Char.IsDigit(e.KeyChar) = False Then
e.Handled = True
End If
End Sub
Private Sub Memory_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Memory.TextChanged
If Memory.Text > MemorySlider.Maximum Then
MemorySlider.Value = MemorySlider.Maximum
Else
MemorySlider.Value = Memory.Text
End If
End Sub
Private Sub PrinterPort_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrinterPort.SelectedIndexChanged
If PrinterPort.SelectedIndex = 12 Then
PrinterOutputFile.Enabled = True
Else
PrinterOutputFile.Enabled = False
End If
End Sub
Private Sub ModemPort_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModemPort.SelectedIndexChanged
If ModemPort.SelectedIndex = 12 Then
ModemOutputFile.Enabled = True
Else
ModemOutputFile.Enabled = False
End If
End Sub
End Class

290
frmSettingsvMacVM.Designer.vb generated Normal file
View File

@ -0,0 +1,290 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSettingsvMacVM
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Name", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Icon", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem3 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Drives", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Me.OptionPanel = New System.Windows.Forms.Panel
Me.IconFrame = New System.Windows.Forms.GroupBox
Me.BrowseIcon = New System.Windows.Forms.Button
Me.IconDescription = New System.Windows.Forms.Label
Me.IconList = New System.Windows.Forms.ListView
Me.DrivesFrame = New System.Windows.Forms.GroupBox
Me.DrivesList = New System.Windows.Forms.ListBox
Me.MoveItemDown = New System.Windows.Forms.Button
Me.MoveItemUp = New System.Windows.Forms.Button
Me.AddDisk = New System.Windows.Forms.Button
Me.AddCD = New System.Windows.Forms.Button
Me.DeleteItem = New System.Windows.Forms.Button
Me.VMNameFrame = New System.Windows.Forms.GroupBox
Me.VMNameHelp = New System.Windows.Forms.Label
Me.VMName = New System.Windows.Forms.TextBox
Me.OptionList = New System.Windows.Forms.ListView
Me.Options = New System.Windows.Forms.ColumnHeader
Me.Value = New System.Windows.Forms.ColumnHeader
Me.cmdCancel = New System.Windows.Forms.Button
Me.cmdOK = New System.Windows.Forms.Button
Me.OptionPanel.SuspendLayout()
Me.IconFrame.SuspendLayout()
Me.DrivesFrame.SuspendLayout()
Me.VMNameFrame.SuspendLayout()
Me.SuspendLayout()
'
'OptionPanel
'
Me.OptionPanel.Controls.Add(Me.IconFrame)
Me.OptionPanel.Controls.Add(Me.DrivesFrame)
Me.OptionPanel.Controls.Add(Me.VMNameFrame)
Me.OptionPanel.Location = New System.Drawing.Point(371, 1)
Me.OptionPanel.Name = "OptionPanel"
Me.OptionPanel.Size = New System.Drawing.Size(373, 294)
Me.OptionPanel.TabIndex = 29
'
'IconFrame
'
Me.IconFrame.Controls.Add(Me.BrowseIcon)
Me.IconFrame.Controls.Add(Me.IconDescription)
Me.IconFrame.Controls.Add(Me.IconList)
Me.IconFrame.Location = New System.Drawing.Point(0, 3)
Me.IconFrame.Name = "IconFrame"
Me.IconFrame.Size = New System.Drawing.Size(367, 279)
Me.IconFrame.TabIndex = 3
Me.IconFrame.TabStop = False
Me.IconFrame.Text = "Icon"
'
'BrowseIcon
'
Me.BrowseIcon.Location = New System.Drawing.Point(286, 12)
Me.BrowseIcon.Name = "BrowseIcon"
Me.BrowseIcon.Size = New System.Drawing.Size(75, 23)
Me.BrowseIcon.TabIndex = 6
Me.BrowseIcon.Text = "Browse..."
Me.BrowseIcon.UseVisualStyleBackColor = True
'
'IconDescription
'
Me.IconDescription.Location = New System.Drawing.Point(6, 17)
Me.IconDescription.Name = "IconDescription"
Me.IconDescription.Size = New System.Drawing.Size(261, 18)
Me.IconDescription.TabIndex = 7
Me.IconDescription.Text = "If you want an icon that isn't in the list, click Browse."
'
'IconList
'
Me.IconList.Location = New System.Drawing.Point(9, 38)
Me.IconList.Name = "IconList"
Me.IconList.Size = New System.Drawing.Size(352, 235)
Me.IconList.TabIndex = 6
Me.IconList.UseCompatibleStateImageBehavior = False
'
'DrivesFrame
'
Me.DrivesFrame.Controls.Add(Me.DrivesList)
Me.DrivesFrame.Controls.Add(Me.MoveItemDown)
Me.DrivesFrame.Controls.Add(Me.MoveItemUp)
Me.DrivesFrame.Controls.Add(Me.AddDisk)
Me.DrivesFrame.Controls.Add(Me.AddCD)
Me.DrivesFrame.Controls.Add(Me.DeleteItem)
Me.DrivesFrame.Location = New System.Drawing.Point(0, 3)
Me.DrivesFrame.Name = "DrivesFrame"
Me.DrivesFrame.Size = New System.Drawing.Size(367, 279)
Me.DrivesFrame.TabIndex = 8
Me.DrivesFrame.TabStop = False
Me.DrivesFrame.Text = "Drives"
'
'DrivesList
'
Me.DrivesList.FormattingEnabled = True
Me.DrivesList.Items.AddRange(New Object() {"C:\Users\Usuario\Documents\ISOs\Mac OS 8.5 Spanish.iso", "C:\Users\Usuario\Documents\My Macs\Mac OS 8\Mac OS 8.dsk", "C:\Users\Usuario\Documents\My Macs\Mac OS 8\Data.dsk"})
Me.DrivesList.Location = New System.Drawing.Point(3, 17)
Me.DrivesList.Name = "DrivesList"
Me.DrivesList.Size = New System.Drawing.Size(358, 186)
Me.DrivesList.TabIndex = 6
'
'MoveItemDown
'
Me.MoveItemDown.Enabled = False
Me.MoveItemDown.Location = New System.Drawing.Point(328, 213)
Me.MoveItemDown.Name = "MoveItemDown"
Me.MoveItemDown.Size = New System.Drawing.Size(33, 23)
Me.MoveItemDown.TabIndex = 5
Me.MoveItemDown.Text = "\/"
Me.MoveItemDown.UseVisualStyleBackColor = True
'
'MoveItemUp
'
Me.MoveItemUp.Enabled = False
Me.MoveItemUp.Location = New System.Drawing.Point(294, 213)
Me.MoveItemUp.Name = "MoveItemUp"
Me.MoveItemUp.Size = New System.Drawing.Size(33, 23)
Me.MoveItemUp.TabIndex = 4
Me.MoveItemUp.Text = "/\"
Me.MoveItemUp.UseVisualStyleBackColor = True
'
'AddDisk
'
Me.AddDisk.Location = New System.Drawing.Point(6, 213)
Me.AddDisk.Name = "AddDisk"
Me.AddDisk.Size = New System.Drawing.Size(56, 23)
Me.AddDisk.TabIndex = 3
Me.AddDisk.Text = "Add disk"
Me.AddDisk.UseVisualStyleBackColor = True
'
'AddCD
'
Me.AddCD.Location = New System.Drawing.Point(68, 213)
Me.AddCD.Name = "AddCD"
Me.AddCD.Size = New System.Drawing.Size(56, 23)
Me.AddCD.TabIndex = 2
Me.AddCD.Text = "Add CD"
Me.AddCD.UseVisualStyleBackColor = True
'
'DeleteItem
'
Me.DeleteItem.Location = New System.Drawing.Point(130, 213)
Me.DeleteItem.Name = "DeleteItem"
Me.DeleteItem.Size = New System.Drawing.Size(90, 23)
Me.DeleteItem.TabIndex = 1
Me.DeleteItem.Text = "Delete selected"
Me.DeleteItem.UseVisualStyleBackColor = True
'
'VMNameFrame
'
Me.VMNameFrame.Controls.Add(Me.VMNameHelp)
Me.VMNameFrame.Controls.Add(Me.VMName)
Me.VMNameFrame.Location = New System.Drawing.Point(0, 3)
Me.VMNameFrame.Name = "VMNameFrame"
Me.VMNameFrame.Size = New System.Drawing.Size(367, 279)
Me.VMNameFrame.TabIndex = 4
Me.VMNameFrame.TabStop = False
Me.VMNameFrame.Text = "Name"
'
'VMNameHelp
'
Me.VMNameHelp.Location = New System.Drawing.Point(6, 17)
Me.VMNameHelp.Name = "VMNameHelp"
Me.VMNameHelp.Size = New System.Drawing.Size(363, 18)
Me.VMNameHelp.TabIndex = 7
Me.VMNameHelp.Text = "Do you want a change? Why not start with the name?"
'
'VMName
'
Me.VMName.Location = New System.Drawing.Point(9, 38)
Me.VMName.Name = "VMName"
Me.VMName.Size = New System.Drawing.Size(352, 20)
Me.VMName.TabIndex = 6
'
'OptionList
'
Me.OptionList.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Options, Me.Value})
Me.OptionList.FullRowSelect = True
Me.OptionList.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
Me.OptionList.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1, ListViewItem2, ListViewItem3})
Me.OptionList.Location = New System.Drawing.Point(12, 11)
Me.OptionList.Name = "OptionList"
Me.OptionList.Size = New System.Drawing.Size(353, 376)
Me.OptionList.TabIndex = 28
Me.OptionList.UseCompatibleStateImageBehavior = False
Me.OptionList.View = System.Windows.Forms.View.Details
'
'Options
'
Me.Options.Text = "Options"
Me.Options.Width = 173
'
'Value
'
Me.Value.Text = "Value"
Me.Value.Width = 176
'
'cmdCancel
'
Me.cmdCancel.BackColor = System.Drawing.SystemColors.Control
Me.cmdCancel.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.cmdCancel.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdCancel.Location = New System.Drawing.Point(665, 366)
Me.cmdCancel.Name = "cmdCancel"
Me.cmdCancel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmdCancel.Size = New System.Drawing.Size(73, 22)
Me.cmdCancel.TabIndex = 27
Me.cmdCancel.Text = "Cancel"
Me.cmdCancel.UseVisualStyleBackColor = True
'
'cmdOK
'
Me.cmdOK.BackColor = System.Drawing.SystemColors.Control
Me.cmdOK.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdOK.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdOK.Location = New System.Drawing.Point(585, 366)
Me.cmdOK.Name = "cmdOK"
Me.cmdOK.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmdOK.Size = New System.Drawing.Size(73, 22)
Me.cmdOK.TabIndex = 26
Me.cmdOK.Text = "OK"
Me.cmdOK.UseVisualStyleBackColor = True
'
'frmSettingsvMacVM
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(750, 400)
Me.Controls.Add(Me.OptionPanel)
Me.Controls.Add(Me.OptionList)
Me.Controls.Add(Me.cmdCancel)
Me.Controls.Add(Me.cmdOK)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmSettingsvMacVM"
Me.Text = "Settings for %s"
Me.OptionPanel.ResumeLayout(False)
Me.IconFrame.ResumeLayout(False)
Me.DrivesFrame.ResumeLayout(False)
Me.VMNameFrame.ResumeLayout(False)
Me.VMNameFrame.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents OptionPanel As System.Windows.Forms.Panel
Friend WithEvents IconFrame As System.Windows.Forms.GroupBox
Friend WithEvents BrowseIcon As System.Windows.Forms.Button
Friend WithEvents IconDescription As System.Windows.Forms.Label
Friend WithEvents IconList As System.Windows.Forms.ListView
Friend WithEvents DrivesFrame As System.Windows.Forms.GroupBox
Friend WithEvents DrivesList As System.Windows.Forms.ListBox
Friend WithEvents MoveItemDown As System.Windows.Forms.Button
Friend WithEvents MoveItemUp As System.Windows.Forms.Button
Friend WithEvents AddDisk As System.Windows.Forms.Button
Friend WithEvents AddCD As System.Windows.Forms.Button
Friend WithEvents DeleteItem As System.Windows.Forms.Button
Friend WithEvents VMNameFrame As System.Windows.Forms.GroupBox
Friend WithEvents VMNameHelp As System.Windows.Forms.Label
Friend WithEvents VMName As System.Windows.Forms.TextBox
Friend WithEvents OptionList As System.Windows.Forms.ListView
Friend WithEvents Options As System.Windows.Forms.ColumnHeader
Friend WithEvents Value As System.Windows.Forms.ColumnHeader
Public WithEvents cmdCancel As System.Windows.Forms.Button
Public WithEvents cmdOK As System.Windows.Forms.Button
End Class

120
frmSettingsvMacVM.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

14
frmSettingsvMacVM.vb Normal file
View File

@ -0,0 +1,14 @@
Public Class frmSettingsvMacVM
Private Sub frmSettingsvMacVM_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Public Sub Settings(ByVal File As String)
End Sub
Public Sub LoadSettiings()
End Sub
End Class

137
frmSplash.Designer.vb generated Normal file
View File

@ -0,0 +1,137 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class frmSplash
#Region "Windows Form Designer generated code "
<System.Diagnostics.DebuggerNonUserCode()> Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
Public WithEvents Mac As System.Windows.Forms.Label
Public WithEvents Starting As System.Windows.Forms.Label
Public WithEvents Virtual As System.Windows.Forms.Label
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSplash))
Me.Mac = New System.Windows.Forms.Label
Me.Starting = New System.Windows.Forms.Label
Me.Virtual = New System.Windows.Forms.Label
Me.Version = New System.Windows.Forms.Label
Me.ProgressBar = New System.Windows.Forms.ProgressBar
Me.SuspendLayout()
'
'Mac
'
Me.Mac.BackColor = System.Drawing.Color.Transparent
Me.Mac.Cursor = System.Windows.Forms.Cursors.WaitCursor
Me.Mac.Font = New System.Drawing.Font("David", 48.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(177, Byte))
Me.Mac.ForeColor = System.Drawing.Color.FromArgb(CType(CType(58, Byte), Integer), CType(CType(108, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Mac.Location = New System.Drawing.Point(228, 168)
Me.Mac.Name = "Mac"
Me.Mac.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Mac.Size = New System.Drawing.Size(149, 65)
Me.Mac.TabIndex = 2
Me.Mac.Text = "Mac"
Me.Mac.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.Mac.UseWaitCursor = True
'
'Starting
'
Me.Starting.BackColor = System.Drawing.Color.Transparent
Me.Starting.Cursor = System.Windows.Forms.Cursors.WaitCursor
Me.Starting.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Starting.ForeColor = System.Drawing.SystemColors.ControlText
Me.Starting.Location = New System.Drawing.Point(154, 272)
Me.Starting.Name = "Starting"
Me.Starting.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Starting.Size = New System.Drawing.Size(113, 17)
Me.Starting.TabIndex = 1
Me.Starting.Text = "Starting..."
Me.Starting.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.Starting.UseWaitCursor = True
'
'Virtual
'
Me.Virtual.BackColor = System.Drawing.Color.Transparent
Me.Virtual.Cursor = System.Windows.Forms.Cursors.WaitCursor
Me.Virtual.Font = New System.Drawing.Font("David", 48.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(177, Byte))
Me.Virtual.ForeColor = System.Drawing.SystemColors.ControlText
Me.Virtual.Location = New System.Drawing.Point(38, 168)
Me.Virtual.Name = "Virtual"
Me.Virtual.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Virtual.Size = New System.Drawing.Size(216, 65)
Me.Virtual.TabIndex = 0
Me.Virtual.Text = "Virtual"
Me.Virtual.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.Virtual.UseWaitCursor = True
'
'Version
'
Me.Version.AutoSize = True
Me.Version.BackColor = System.Drawing.Color.White
Me.Version.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Version.ForeColor = System.Drawing.Color.Silver
Me.Version.Location = New System.Drawing.Point(358, 29)
Me.Version.Name = "Version"
Me.Version.Size = New System.Drawing.Size(24, 13)
Me.Version.TabIndex = 3
Me.Version.Text = "0.0"
Me.Version.UseWaitCursor = True
'
'ProgressBar
'
Me.ProgressBar.ForeColor = System.Drawing.SystemColors.MenuBar
Me.ProgressBar.Location = New System.Drawing.Point(130, 288)
Me.ProgressBar.Name = "ProgressBar"
Me.ProgressBar.Size = New System.Drawing.Size(161, 15)
Me.ProgressBar.Step = 5
Me.ProgressBar.Style = System.Windows.Forms.ProgressBarStyle.Marquee
Me.ProgressBar.TabIndex = 4
Me.ProgressBar.UseWaitCursor = True
Me.ProgressBar.Value = 20
'
'frmSplash
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(20.0!, 45.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.ClientSize = New System.Drawing.Size(421, 323)
Me.ControlBox = False
Me.Controls.Add(Me.ProgressBar)
Me.Controls.Add(Me.Version)
Me.Controls.Add(Me.Mac)
Me.Controls.Add(Me.Starting)
Me.Controls.Add(Me.Virtual)
Me.Font = New System.Drawing.Font("Tahoma", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ForeColor = System.Drawing.Color.Black
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Location = New System.Drawing.Point(3, 3)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmSplash"
Me.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.UseWaitCursor = True
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Version As System.Windows.Forms.Label
Friend WithEvents ProgressBar As System.Windows.Forms.ProgressBar
#End Region
End Class

315
frmSplash.resx Normal file
View File

@ -0,0 +1,315 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAaYAAAFDCAIAAAD+mj1lAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAEhNJREFUeF7t3YFR
W8kSRmGnQAqkQAqkoBSUAimQAilsCqRACi8FUtj329Mry3PxCHTV3UPP+UrVtV4Erro9nJIQ4B8AsJZ/
AaC69/f338n7HwCU9s8//5A8AKsgeQAWQvIALITkAVgIyQOwEJIHYCEkD8BCSB6AhZA8AAsheQAWQvIA
LITkAVgIyQOwEJIHYCEkD8BCSB6AhZA8AAsheQAWQvIALITkAVgIyQOwEJIHYCEkD8BCopOnvw8AOhYI
f/q7opNnfx8A/CfsWWZO8vR3AUAT1h8heQCShfVHSB6AZGH9EZIHIFlYf4TkAUgW1h8heQCShfVHSB6A
ZGH9EZIHIFlYf4TkAUgW1h8heQCShfVHSB6AZGH9EZIHIFlYf4TkAUgW1h8heQCShfVHSB6AZGH9EZIH
IFlYf4TkAUgW1h8hefgeXl9f7b9QTlh/hOThG3h+ftaxOR6P7+/v9r9QSFh/hORhdr/P6I8fj4+POkX2
BlShzWq2RHgjeZja29vb3d1dO6LN/f29DpK9GSVorZotEd5IHualA6PAtfN5wtPberRWzZYIbyQPk1LX
9DS2Hc4T/R97MwrRZjWtEc5IHib19PTUTuYJT2mr0nI1WyK8kTzM6Pe5/M/d3d3b25u9GbVov5rWCGck
D9PRU9rtl/BeXl7szShH+9W0RjgjeZjO4XBoZ/LkeDza21CRVqxpjXBG8jCX9l3H5x4eHniJtjZtWdMa
4YzkYSJvb2/tNJ7wJbwVaNGa1ghnJA+z0EM5PaBrp/GEL+GtQIvWtEY4I3mYxfYpLV/CW4R2rWmNcEby
MIXtU9r7+3t7G6rTujWtEc5IXlkPx7fj8e27zO13pTw9Pem0HF9+fo9e4kQArVvTGuFMa20HjORVM+jL
dPPhpR3Ck8fHx219UqZdTXjSxjWtEc6003bGSF41Fyoz0+x+V4r+2HUncSKAlq5pjXCmtbZjRvKqGVdm
nrl9Svv8/DxoUPC0qwlPWrqmNcKZdtqOGcmrZlCZeeaHT2nHDQqeCKC9a1ojnGmt7aSRvGrGrZlkdk9p
ZVCflGlXE560d01rhDPttJ00klfNuDVTzM1DvMPh0BUnfSKAVq9pjXCmtbbDRvKqGbVmjjnzqxanaVcT
nrR9TWuEM+20nTeSV82gNTPM7UO8p6encX1SJgJo+5rWCGdaaztvJK+acXHSZ/cQ7/7+ftCdxGlXE550
ADStEc6003bkSF414+Ikz82vD5jkZy22EwF0ADStEc601nbkSF41o+Jkz+4hngq4bc0k064mPOkMaFoj
nGmn7dSRvGoGxcmd26/ivby8jLuTOBFAZ0DTGuFMa22njuRVM+5O4uwe4s32vcfdtKsJTzoGmtYIZ9pp
O3gkr5pxd66YP348d7fx/T+eH71Q21Xm4rT3PDO+/56JANqgpjXCmdbazgzJq2bUnatm1zvdxvf/cN7k
q3j2zmfG998z7WrCkzaoaY1wpp22M0Pyqhl057rZ9U638f23c/sQ77rfIGDvfGZ8/z0TAbRBTWuEM621
nRmSV824PlfM89i12/j+29n90pSrvxfP3v/M+P57pl1NeNIGNa0RzrTTdmZIXjXj+lwxu97pNr5/PzcP
8Y7HY9eXT057/zPj+++ZCKANalojnGmt7cyQvGpG9blqdr3TbXz/bnbffqyHeNu+fHLahzgzvv+eaVcT
nrRBTWuEM+20nRmSV82gPtfNrne6je/fze6Fi8PhMG7NYNqHODO+/56JANqgpjXCmdbazgzJq2ZQn+tm
1zvdxvf/Y26f1V5qzWDahzgzvv+eaVcTnrRBTWuEM+20nRmSV82FBn19dr3TbXz/89m9cLHzJ8zso5wZ
33/PRABtUNMa4UxrbWeG5FUzbtAVs+udbuP7n892xk52/usW9lHOjO+/Z9rVhCdtUNMa4Uw7bWeG5FUz
btAV8zx27Ta+/+/557Pau7u7cWUuTvtAZ8b33zMRQBvUtEY401rbmSF51YwadNXseqfb+P6n2T2r3f9v
1NoHOjO+/55pVxOetEFNa4Qz7bSdGZJXzaBB182ud7qN73+a3Wu1+//NRvtAZ8b33zMRQBvUtEY401rb
mSF51QwaFDpv/aw2eNrVhCcdDE1rhDPttB1FklfNhRJFzdu+Vhs/EUAHQ9Ma4UxrbUeR5FUzLlHY7J7V
zvlv+gymXU140sHQtEY4007bUSR51YxLFDRv+h3IKRMBdDA0rRHOtNZ2FEleNaMSRc0ueXt+rjZr2tWE
J50NTWuEM+20nUaSV82gRGGz+0Lenp+rzZoIoLOhaY1wprW200jyqhmUKGxuv5C3bcrk064mPOlsaFoj
nGmn7TSSvGoGJYqZ2y/kdTX5FhMBdDY0rRHOtNZ2GkleNeMeRczNF/IGZZl22tWEJx0PTWuEM+20HUiS
V82FHvnP7neC7v85s5SJADoemtYIZ1prO5Akr5pxjwJm99rFt/uOvDbtasKTjoemNcKZdtoOJMmrZtyj
gFngtQtNBNDx0LRGONNa24EkedWMexQw27lqlL9tTb7FtKsJTzohmtYIZ9ppO5Mkr5pxj9xnidcuNBFA
J0TTGuFMa21nkuRVM+qR/+yS9+1+m8Bp2tWEJ50QTWuEM+20nUmSV82gRxHzz5drv+PPXbSJADohmtYI
Z1prO5Mkr5pRj/zn9kfNtjX5FtOuJjzphGhaI5xpp+1MkrxqBj0KmF3y9v8m5KyJADohmtYIZ1prO5Mk
r5pBjwJmje9Q0bSrCU86IZrWCGfaaTuTJK+aQY8CZpe8PXIfISKAtqxpjXCmtbZzRfKqGfQoYN4weYMe
BUy7mvCkLWtaI5xpp+1ckbxqBj0KmLdKXvp3tyCAFq1pjXCmtbajRfKqGfQoYLZDtd9RLlXJddrVhCct
WtMa4Uw7bUeL5FUz6FHAbIdqv/TXPRBAi9a0RjjTWtvRInnVDHo07ex+ZmOGn8y1qwlP2rWmNcKZdtpO
F8mrZlCWeed8P5mLANq1pjXCmdbaThfJq2ZUlllnl7wZfquoXU140q41rRHOtNN2ukheNYOyTDsn/K2i
CKBda1ojnGmt7XSRvGoGZZl2TvgzG3Y14Um71rRGONNO2+kiedUMyjLtbEfxpKtPykQA7VrTGuFMa22n
i+RVMyjLhfnw8vM2vo/H3LxcOyjRl+bhcLj6p9bsasKT1q1pjXCmnbYDRvKqudCXv82f3XnWrYVvdM9b
zy559/f3XX2umMfjsT1Zvvr7XRBAC9K0RjjTWn+dL5JXzrgvf5utd+e3n+279F63mZuXawclGk89put+
R6lc11C7mvCk7WhaI5xpp+08kLxqLvTlo/krOn3yTjfv9m2T19Xn4nx5edF7dS/7nrviYyKAVqNpjXCm
tbbDQPKqGfflw9k17m83r/Zd+7vj9ZhOLete7f3QFb+P3q4mPGk1mtYIZ9ppOwwkr5oLffnb/PUlvK5x
H98e7M56x79+tK/M7tHZ4HfHq3F6a3tA95nSie6sx4AffrTxRAAtSNMa4UxrbUeC5FUz7st4frZ657dT
AX9FcPzxP5xd8tr3IatT+g9Rs77UuEZ33vm7WOxqwpM2pWmNcKadtrNB8qoZ9+WT85r2nd/OO3jp1rVM
f+z+z+fpHdVHta7r1xUTAbQyTWuEM621HRKSV824ZV+bv5LU5+z2t71uWLrTtKsJT9qdpjXCmXbaTgvJ
q+ZCxa6dP9v38NkXOr54u4Yyp2e7h8NBT367Wt1kIoD2qGmNcKa1tpND8qoZl2v//Hlrj/5uVsDPUuP0
aE6ZC/iXgOxqwpN2qmmNcKadtlNE8qr5sFN+8+ft7AtzV3Wwp7S1ukl7EeO6V133TATQrjWtEc601na6
SF4140JlzfMsdrfuxYqdr7TeatrVhCetW9Ma4Uw7bQeM5FUz6M6cc/utyF19UiYCaN2a1ghnWms7YCSv
mnFfZpzX/vSF67SrCU9at6Y1wpl22g4YyavmQl/mm3pu245i8zjBb4HXRACtW9Ma4UxrbQeM5FUz7suM
88/k6UHfoERh064mPGndmtYIZ9ppO2Akr5oLfZlvdsm7v8Xvy9s/EUDr1rRGONNa2wEjedWM+zLj/DN5
d7f7rch7pl1NeNK6Na0RzrTTdsBIXjUX+jLl7L5PpatPykQA7VrTGuFMa22ni+RVMyjLtLNLntPPkH1p
2tWEJ+1a0xrhTDttp4vkVTMoy7Tznn/HdknataY1wpnW2k4XyatmUJZpZ/eteTN8n4pdTXjSrjWtEc60
03a6SF41g7LMOzcv2o57FDARQLvWtEY401rb6SJ51YzKMuvcvmi7bVDwtKsJT9q1pjXCmXbaThfJq2ZQ
lpnnbK9gIIAWrWmNcKa1tqNF8qoZl2Xa2b2Ckf6TtnY14UmL1rRGONNO29EiedWMyzLtnO1nMBBAi9a0
RjjTWtvRInmYwuvrazuQJzoz9jYUpS1rWiOckTzM5f39vXtu+/z8bG9DUdqypjXCGcnDdI7HYzuTzePj
o70BRWnLmtYIZyQP09k+t317e7O3oSKtWNMa4YzkYTrb57ZPT0/2NlSkFWtaI5yRPMxIjWvHslEB1UF7
G8rRijWtEc5IHmbE67ZL0X41rRHOSB5mpMd0218xYG9DOdqvpjXCGcnDpJ6f+3/MmxcxqtJyNa0Rzkge
JqXT0v287fF4tLehFi1XsyXCG8nDvLpv0BMe6JWkzWpaI5yRPMxLgWuH8+RwONjbUIg2q2mNcEbyMDU1
rp3PRn/ku1Xq0WY1rRHOSB6mdvpuFcVO/03vSmpNsEY4I3mY3cvLi2Jnf0BFYf0RkgcgWVh/hOQBSBbW
HyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF
9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBk
Yf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0Rkgcg
WVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQB
SBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5
AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdI
HoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0R
kgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/
hOQBSBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbW
HyF5AJKF9UdIHoBkYf0RkgcgWVh/hOQBSBbWHyF5AJKF9UdIHoBkYf2RnOQBwLmyyRP9RQDQsUA4S0ge
AGQheQAWQvIALITkAVgIyQOwEJIHYCEkD8BCSB6AhZA8AAsheQAWQvIALITkAVgIyQOwEJIHYCEkD8BC
SB6AhZA8AAsheQAWQvIALITkAVgIyQOwEJIHYCEkD8BCSB6AhZA8AAsheQAWQvIALITkAVgIyQOwEJIH
YCEkD8BCSB6AhZA8AAsheQAWQvIALITkAVgIyQOwEJIHYCEkD8BCSB6AhZC8iWgZqM02jTzaAsmbxe9l
oCg+y9KRvIloGYfD4RkVvb6+8lk2A5I3kVPy9OmBYrRfPstmQPImQvIK0375LJsByZsIyStM++WzbAYk
byIkrzDtl8+yGZC8iZC8wrRfPstmQPImQvIK0375LJsByZsIyStM++WzbAYkbyIkrzDtl8+yGZC8iZyS
Z39GLXyWzYDkTeT3MlAUn2XpSN5ctAXUZptGEpIHYCEkD8BCSB6AhZA8AAsheQAWQvIALITkAVgIyQOw
EJIHYCEkD8BCSB6AhZA8AAsheQAWQvIALITkAVgIyQOwEJIHYCG/k/f+/q4/AEBtljwAWMKPH/8HpcvM
BNdNWD4AAAAASUVORK5CYII=
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAAAAAoAQAANgAAACAgAAAAAAAAqAgAAF4BAAAwMAAAAAAAAKgOAAAGCgAAKAAAABAA
AAAgAAAAAQAEAAAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAd3d3AAAAAAAHd3AAAAAAAAd3cA
AAB3d3d4d3d3d3d3d3d3d3d3AAAAAAAAAAAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAIiIiIiIiIgAiI
iIiIiIiACIiIiIiIiIAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAAAAAAAAAAAPgfAAD8PwAA/D8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAIAAAAEAA
AAABAAgAAAAAAIAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDA
wADA3MAA8MqmAAQEBAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8
/wBQUP8AkwDWAP/szADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAz
zAAAM/8AAGYAAABmMwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADM
MwAAzGYAAMyZAADMzAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMz
MwAzM2YAMzOZADMzzAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZ
zAAzmf8AM8wAADPMMwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYA
ZgBmAJkAZgDMAGYA/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZ
AABmmTMAZplmAGaZmQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA
/wD/AMwAmZkAAJkzmQCZAJkAmQDMAJkAAACZMzMAmQBmAJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlm
zACZM/8AmZkzAJmZZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnM
ZgCZ/5kAmf/MAJn//wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxm
AADMZjMAmWZmAMxmmQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzM
mQDMzMwAzMz/AMz/AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8z
mQD/M8wA/zP/AP9mAAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/M
AAD/zDMA/8xmAP/MmQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//
ZgAhAKUAX19fAHd3dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgA8Pv/AKSg
oACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAoKCgoKCgoKCgoKBwcHBwcHBwcHBwoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcH
BwcKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgcHBwcHBwcHBwcHBwcH
B+zsBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhIS
EhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhIS
EhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhIS
EhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhIS
EhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgr/4Af///AP///wD///8A////AP/4AA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAB/////ygAAAAwAAAAYAAAAAEA
CAAAAAAAgAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDc
wADwyqYABAQEAAgICAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ
/wCTANYA/+zMAMbW7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz
/wAAZgAAAGYzAABmZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADM
ZgAAzJkAAMzMAADM/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMz
ZgAzM5kAMzPMADMz/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ
/wAzzAAAM8wzADPMZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYA
mQBmAMwAZgD/AGYzAABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZ
MwBmmWYAZpmZAGaZzABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8A
zACZmQAAmTOZAJkAmQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz
/wCZmTMAmZlmAJmZmQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/
mQCZ/8wAmf//AMwAAACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxm
MwCZZmYAzGaZAMxmzACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzM
zADMzP8AzP8AAMz/MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8z
zAD/M/8A/2YAAP9mMwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/M
MwD/zGYA/8yZAP/MzAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEA
pQBfX18Ad3d3AIaGhgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICA
gAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8ACgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcH
BwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHBwcHBwcHBwcKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
BwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcH
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcH
BwcHBwcHBwcHBwcHBwcHBwfs7AcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgcHBwcHBwcHBwcHBwcHBwcH
BwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcKBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK//4AAH//
AAD//wAA//8AAP//wAP//wAA///AA///AAD//8AD//8AAP//wAP//wAA///AA///AAD//8AD//8AAMAA
AAAAAwAAgAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAB
AADAAAAAAAMAAP///////wAA
</value>
</data>
</root>

9
frmSplash.vb Normal file
View File

@ -0,0 +1,9 @@
Option Strict Off
Option Explicit On
Friend Class frmSplash
Inherits System.Windows.Forms.Form
Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Version.Text = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor
End Sub
End Class

231
frmVirtualMacintosh.Designer.vb generated Normal file
View File

@ -0,0 +1,231 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class frmVirtualMacintosh
#Region "Windows Form Designer generated code "
<System.Diagnostics.DebuggerNonUserCode()> Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
Public ToolTip1 As System.Windows.Forms.ToolTip
Public FloppyBrowser As System.Windows.Forms.OpenFileDialog
Public WithEvents VMScreen As System.Windows.Forms.PictureBox
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVirtualMacintosh))
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.FloppyBrowser = New System.Windows.Forms.OpenFileDialog
Me.VMScreen = New System.Windows.Forms.PictureBox
Me.VMStatusBar = New System.Windows.Forms.StatusStrip
Me.CDBrowser = New System.Windows.Forms.OpenFileDialog
Me.MainMenu2 = New System.Windows.Forms.MainMenu(Me.components)
Me.mnuAction = New System.Windows.Forms.MenuItem
Me.mnuActionFullScreen = New System.Windows.Forms.MenuItem
Me.mnuActionBar0 = New System.Windows.Forms.MenuItem
Me.mnuActionClose = New System.Windows.Forms.MenuItem
Me.mnuCD = New System.Windows.Forms.MenuItem
Me.mnuCDCapture = New System.Windows.Forms.MenuItem
Me.mnuCDBar0 = New System.Windows.Forms.MenuItem
Me.mnuCDRelease = New System.Windows.Forms.MenuItem
Me.mnuFloppy = New System.Windows.Forms.MenuItem
Me.mnuFloppyCapture = New System.Windows.Forms.MenuItem
Me.mnuFloppyBar0 = New System.Windows.Forms.MenuItem
Me.mnuFloppyRelease = New System.Windows.Forms.MenuItem
Me.mnuHelp = New System.Windows.Forms.MenuItem
Me.mnuHelpContents = New System.Windows.Forms.MenuItem
Me.mnuHelpBar0 = New System.Windows.Forms.MenuItem
Me.mnuHelpOnline = New System.Windows.Forms.MenuItem
Me.mnuHelpBar1 = New System.Windows.Forms.MenuItem
Me.mnuHelpAbout = New System.Windows.Forms.MenuItem
CType(Me.VMScreen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'FloppyBrowser
'
Me.FloppyBrowser.Filter = "Floppy Images (*.img;*.ima)|*.img;*.ima|All files (*.*)|*.*"
'
'VMScreen
'
Me.VMScreen.BackColor = System.Drawing.SystemColors.Control
Me.VMScreen.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.VMScreen.Cursor = System.Windows.Forms.Cursors.Default
Me.VMScreen.ForeColor = System.Drawing.SystemColors.ControlText
Me.VMScreen.Image = CType(resources.GetObject("VMScreen.Image"), System.Drawing.Image)
Me.VMScreen.Location = New System.Drawing.Point(0, -5)
Me.VMScreen.Name = "VMScreen"
Me.VMScreen.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.VMScreen.Size = New System.Drawing.Size(803, 605)
Me.VMScreen.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
Me.VMScreen.TabIndex = 0
Me.VMScreen.TabStop = False
'
'VMStatusBar
'
Me.VMStatusBar.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.VMStatusBar.GripStyle = System.Windows.Forms.ToolStripGripStyle.Visible
Me.VMStatusBar.Location = New System.Drawing.Point(0, 599)
Me.VMStatusBar.Name = "VMStatusBar"
Me.VMStatusBar.Size = New System.Drawing.Size(803, 22)
Me.VMStatusBar.TabIndex = 3
Me.VMStatusBar.Text = "StatusStrip1"
'
'CDBrowser
'
Me.CDBrowser.Filter = "Disc Images (*.iso)|*.iso|All files (*.*)|*.*"
'
'MainMenu2
'
Me.MainMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuAction, Me.mnuCD, Me.mnuFloppy, Me.mnuHelp})
'
'mnuAction
'
Me.mnuAction.Index = 0
Me.mnuAction.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuActionFullScreen, Me.mnuActionBar0, Me.mnuActionClose})
Me.mnuAction.Text = "Action"
'
'mnuActionFullScreen
'
Me.mnuActionFullScreen.Index = 0
Me.mnuActionFullScreen.Text = "Full screen mode"
'
'mnuActionBar0
'
Me.mnuActionBar0.Index = 1
Me.mnuActionBar0.Text = "-"
'
'mnuActionClose
'
Me.mnuActionClose.Index = 2
Me.mnuActionClose.Text = "Close"
'
'mnuCD
'
Me.mnuCD.Index = 1
Me.mnuCD.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuCDCapture, Me.mnuCDBar0, Me.mnuCDRelease})
Me.mnuCD.Text = "CD"
'
'mnuCDCapture
'
Me.mnuCDCapture.Index = 0
Me.mnuCDCapture.Text = "Capture ISO image..."
'
'mnuCDBar0
'
Me.mnuCDBar0.Index = 1
Me.mnuCDBar0.Text = "-"
'
'mnuCDRelease
'
Me.mnuCDRelease.Index = 2
Me.mnuCDRelease.Text = "Release CD"
'
'mnuFloppy
'
Me.mnuFloppy.Index = 2
Me.mnuFloppy.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFloppyCapture, Me.mnuFloppyBar0, Me.mnuFloppyRelease})
Me.mnuFloppy.Text = "Floppy"
'
'mnuFloppyCapture
'
Me.mnuFloppyCapture.Index = 0
Me.mnuFloppyCapture.Text = "Capture floppy disk image..."
'
'mnuFloppyBar0
'
Me.mnuFloppyBar0.Index = 1
Me.mnuFloppyBar0.Text = "-"
'
'mnuFloppyRelease
'
Me.mnuFloppyRelease.Index = 2
Me.mnuFloppyRelease.Text = "Release disk"
'
'mnuHelp
'
Me.mnuHelp.Index = 3
Me.mnuHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuHelpContents, Me.mnuHelpBar0, Me.mnuHelpOnline, Me.mnuHelpBar1, Me.mnuHelpAbout})
Me.mnuHelp.Text = "Help"
'
'mnuHelpContents
'
Me.mnuHelpContents.Index = 0
Me.mnuHelpContents.Text = "Virtual Mac Help"
'
'mnuHelpBar0
'
Me.mnuHelpBar0.Index = 1
Me.mnuHelpBar0.Text = "-"
'
'mnuHelpOnline
'
Me.mnuHelpOnline.Index = 2
Me.mnuHelpOnline.Text = "Virtual Mac Online"
'
'mnuHelpBar1
'
Me.mnuHelpBar1.Index = 3
Me.mnuHelpBar1.Text = "-"
'
'mnuHelpAbout
'
Me.mnuHelpAbout.Index = 4
Me.mnuHelpAbout.Text = "About Virtual Mac..."
'
'frmVirtualMacintosh
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(803, 621)
Me.Controls.Add(Me.VMStatusBar)
Me.Controls.Add(Me.VMScreen)
Me.Cursor = System.Windows.Forms.Cursors.Default
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Location = New System.Drawing.Point(10, 56)
Me.MaximizeBox = False
Me.Menu = Me.MainMenu2
Me.Name = "frmVirtualMacintosh"
Me.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Text = "Macintosh - Virtual Mac"
CType(Me.VMScreen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents VMStatusBar As System.Windows.Forms.StatusStrip
Friend WithEvents CDBrowser As System.Windows.Forms.OpenFileDialog
Friend WithEvents MainMenu2 As System.Windows.Forms.MainMenu
Friend WithEvents mnuAction As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionFullScreen As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionBar0 As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionClose As System.Windows.Forms.MenuItem
Friend WithEvents mnuCD As System.Windows.Forms.MenuItem
Friend WithEvents mnuCDCapture As System.Windows.Forms.MenuItem
Friend WithEvents mnuCDBar0 As System.Windows.Forms.MenuItem
Friend WithEvents mnuCDRelease As System.Windows.Forms.MenuItem
Friend WithEvents mnuFloppy As System.Windows.Forms.MenuItem
Friend WithEvents mnuFloppyCapture As System.Windows.Forms.MenuItem
Friend WithEvents mnuFloppyBar0 As System.Windows.Forms.MenuItem
Friend WithEvents mnuFloppyRelease As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelp As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpContents As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpBar0 As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpOnline As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpBar1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpAbout As System.Windows.Forms.MenuItem
#End Region
End Class

935
frmVirtualMacintosh.resx Normal file
View File

@ -0,0 +1,935 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>243, 17</value>
</metadata>
<metadata name="FloppyBrowser.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>125, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="VMScreen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAx8AAAJZCAIAAABHsB83AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAn0JJREFUeF7tvWty
3Ma2trmn4CloCpqCBkCKoiiKom6fNy2J1IW6TkG2ZVmWZdmyex8f25K3LYXtf93R4SG0oqOjI/rnmYKn
sPsprGQ6mbgUCgVkFqreFY/TKCCRCaw3mXgFFMF//L//3//5f/3f/7vx/v/5P1ri68+6oxBjx8a8EEII
Ucc/ovhf/+t/E0IIIYQQM+GMVBRRJSGEEEIIMRPOVFlE24QQQgghRAdkrYQQQgghekbuSgghhBCiT2St
hBBCCCH6RO5KCCGEEKJP5K6EEEIIIfpE7koIIYQQok/kroQQQggh+kTuSgghhBCiT+SuhBBCCCH6RO5K
CCGEEKJP5K6EEEIIIfpE7koIIYQQok/kroQQQggh+kTuSgghhBCiT+SuhBBCCCH6RO5KCCGEEKJP5K6E
EEIIIfpE7koIIYQQok/kroQQQggh+kTuSgghhBCiT+SuhBBCCCH6RO5KCCGEEKJP5K6EEEIIIfpE7koI
IYQQok/kroQQQggh+kTuSgghhBCiT+SuhBBCCCH6RO5KCCGEEKJPxu2uPvzwXxCtFMlQ/vOi/OdF+c+L
8p8X5b+ZEburf/7zv27c+Gl///Xe3vfRJpEA5T8vyn9elP+8KP95Uf6nMlZ3hWVG1/v3f7t9+xdkvnLl
W4jqiOFQ/vOi/OdF+c+L8p8X5b8NY3VXKHrv3ruHD//APu/uvtzefn758quojhgO5T8vyn9elP+8KP95
Uf7bMFZ3haiPHv1x586vWOZz577Y2Hgyj7o4cYhWigaU/7wo/3lR/vOi/OdF+W/DKN0VxhldMc7Xr/9o
0uKdr179LqrWDPX39r5nlNy69e+DgzcMjkuXvonqiEqU/7wo/3lR/vOi/OdF+W/JKN3VtWs/3L377t69
dywjLbQUBkUZGYwJ5ETU27d/obx582ca3Nl5sbX1LKovKlH+86L850X5z4vynxflvyXjc1cffvgvtME4
o8qFC18hLfYZ2aJqHjaxy0cf/ff+/mtTFNiXj8iMrmyiwvnzX66tfbyU9yf7RfnPi/KfF+U/L8p/XpT/
9ozPXWF+79z59cGD31Hl7NnPkWR39yUSRgKjk7/x6BVlWLDGFGUrTRlUphGauqJffJiG8p8X5T8vyn9e
lP+8KP/tGZ+7QhuMM1y69M36+ienT3+KMF4VpAoVZcEUxSZHioagLq1hw3HQviNRifKfF+U/L8p/XpT/
vCj/7RmZu0IGLDDS3rv3bnv7OW53c/Mp0iI5KpqolNQJbzxGWlaC9d7aenbmzGdRjyJE+c+L8p8X5T8v
yn9elP+ZGJm7QjB0ffToj7t33509+zne+cKFrxDSREVgbHJ7RUNofGfnBcMl7E5EKP95Uf7zovznRfnP
i/I/EwvtrvCz4Uc0Q9QHD35HXRQ9ffpTs7rIaYrW3XhsA6784sWvUfdSu19/WAWU/7wo/3lR/vOi/OdF
+Z+TEbgrZMMy37z58+HhW5MWjS9ffrWx8RT7TJ1Ip26gLm0yXLa3n4fHsMoo/3lR/vOi/OdF+c+L8j8n
C+quSDd2+ODgze2jL8eZukgLGOdz577AO+/svLDKvcBAodmNjScoHR7MCkI2lP+MkA3lPyNkQ/nPCNlQ
/jNCNpT/+Vkgd0VOsckoh5ZeVAS2R7nAGqTFPlMTk4t33t19yXIkEtCO7cJCtKkBmmK4rK19jMzRsa0C
yn9elP+8KP95Uf7zovz3Tmp3FSWOhO7tfW83Hk3UUFG08Y9yWTZ17bYkxnlz8ykLXhhboD773rnzK9Vo
ir0q5a+Emhcvfr2+/gmDJjzIZUL5z4vynxflPy/Kf16U/5TkuXdlGkSK4pqROVQ0hPUIhrpUvnDhKzQ4
V7wiNqrGmLAbmA8fTm5gXrnyLSOgpcBUoz6DZmvZ/ySC8p8X5T8vyn9elP+8KP9pSOeuyB3ioaJXFHVN
USRBvCjXEYyGB8VX6tgFXfHOO1UPfanGIEBa7DNbqWNGOKpWBzW3t58zdFhYMpT/vCj/eVH+86L850X5
T88g7gpLawsoinJkHCFRFFhAYNaYopU2uRJERTNgr7NnPz9z5jMcNO1H1WiWXhCY+hhhpEJgFqJqddAg
za6N/JX8yn9elP+8KP95Uf7zovznxed/EHeFZuhnHhlY6Kaoh10YFhjn+/d/49CRFi5d+qasLu1T8/Dw
LSVHgrQITM2oWh00SOWNjSfsGJ7RuFD+86L850X5z4vynxflPy8+/z27K1R88OB3kkvT5BcDazcepypa
1imCUYK6tEz2kRb7fPnoK3UhdESnd+78Sn2WMcKoe/Hi11PbN6iGa97aekb70amNAuU/L8p/XpT/vCj/
eVH+8xLlv2d3hWW7d+8d7aIoNjbKXR3IQOUGW80mjhh10Wx39+XGxtNzVV+pMxhPVENgjgFdqYnGdZXL
cBbnz3+5Ns5X8iv/eVH+86L850X5z4vyn5co/z27K7wnMtBHlLI6kBMxOBr0oOSAKk0ux3q3+IUF6iAV
3hkB6C6qZtAIzpEGWdjZeUFlBMYRt7fPDCDUxZuHpzYKlP+8KP95Uf7zovznRfnPS5T//r93RVoPDt4g
m89XA8iGyUW2hw8nyrE7JrcsA4d7//5v1GEBXREM2agcVTMQdX//NTXtHub6+ifb28/be2d6R9eNjSfs
5U9qRCj/eVH+86L850X5z4vyn5cw//27KzKLdSXFYcoq4QhMNtTF8ZFWfDGS0EhUk2oPHvyOuowGjDCa
UbNczaBZYCsj4OzZzxGJNssjpgGGgvViZzQulP+8KP95Uf7zovznRfnPS5j//t0V7WKHr1//McxXHVSj
8t3iFzhxrPhiZCO5YR2kYivqAo2T983Npw3qGmylQWBhJmmB+oyMtXE++lX+86L850X5z4vynxflPy9h
/vt3V6SG1tEjzFcdHApGD+N8cPAGUVEXkCSs49XFZfMRO4y6uzV/4agXaPli8Up+yujsFh/lPy/Kf16U
/7wo/3lR/vMS5r9nd4VClDdv/gyoEqasEtTlOFAXjTksHHH5RiLtoP3Dh5O/cETjSAuz3mycCVq+UryS
H5/uT20UKP95Uf7zovznRfnPi/Kflyj//d+7ghs3frp9+5dr136IslaGI6AyXo/6KI0jJqFoTCNhHY7V
q4t3Bvz1cOoCHTHOTp/+1M5oXCj/eVH+86L850X5z4vynxef/0HcFXogGH1EKauEg8A4m7roimMlrVhX
XyFUF2+ItIwA1PUVhoChw8GsrX1sbnRcKP95Uf7zovznRfnPi/KfF5//QdwV0PrBwZsoZZUg6v7+a0Aw
pF0v/vh2Wd0HxStQrY6piwC+Tu/Q+KVL3+CdsfPRqY0C5T8vyn9elP+8KP95Uf7zYvkfyl2hFpKg3FQN
EM+q7ey8QLmtrWf2XbawgqnLEadUlxGGT+d4wvMaC8p/XpT/vCj/eVH+86L858XyP5S7ulb8rWzKKGt1
sAteFZCN5XBTqG6yO5PAYZwf7Sv5lf+8KP95Uf7zovznRfnPi+V/KHdFdg5neSU/XtWI1oOpe//+bzSI
upjZZnX78tS0s1u8kh8THZ3d4sPxK/8Z4fiV/4xw/Mp/Rjh+5T8jHL/ynxGOn3QN5a4A73bQ+pX8DdDC
/v5rU5dmvbp9qVgH7ePlNzae7BRv/R8dyn9elP+8KP95Uf7zovznhfwP6K6Q5Fa7V/I3E6pLxpEWgcn7
0OoCrpm+NjefRqc2CpT/vCj/eVH+86L850X5zwtJG9Bd2aPHlq/kb8DUvXv3HeryEXWhTl0qM56AhWhT
BziLsT/6Vf5zofznRfnPi/KfF+U/L+R/QHdFdu60fiV/A+h048ZPSIvAyEa6I3VNUU6GvnDrDClKPlbK
72nealDHHv1eLr7rNy44fuU/Ixy/8p8Rjl/5zwjHr/xnhONX/jPC8Q/oroAs9/LoF6kYKKiLE9+58BXq
Xrz4ta1H+Js3f2br/fu/PXz4x6NHf1Cy5urV75CkjYQNsDuNbGw8YUhFpzYKlP+8KP95Uf7zovznRfnP
y7DuyswsxjbK2qzQAo743r3Jn/JGV8s1ErLGFDVYZg09spU62F4WoqbKMPhoHypHIaOEwXTmzGd2RuNC
+c+L8p8X5T8vyn9elP+8DOuuSBmuFsMbpWxWaAfNvHJkHGlNV1MU7RHeRKL+hQtfnT37OSWVw3YikBPr
TZtgu0cVAPu8s/NibZyPfpX/vCj/eVH+86L850X5z8uw7orUoC6Ji1I2K8hwcPDm7t13tGYS8tEkYdPl
y68Qcnv7uclpeqAuJR+jpjw0whC5f/83hgjjA5nZ0XYPq/ERt76+/gmlndSIUP7zovznRfnPi/KfF+U/
LwO6KxwuJRqQRDQIUzYr7E72Dw/f4pFNzkuXvjFFNzefbmw8PX36UxZYSTWsOpv4eP78lxxD1BTQwrXi
9ylMWkpGiQ0RWuCYw8qoe+XKt7R27twX/tRGgfKfF+U/L8p/XpT/vCj/eeHch713BaSbPJLNMGUdoAVG
Ccrt7r70isKZM59hkxESYdiKv6YaPrdOXSwzWlINXU1aPxqg8lExaxhG9OVPakQo/3lR/vOi/OdF+c+L
8p+Rwd0VRvXOnV/ROErZrKAKoBYeFkVRggVUQVS8rXWErqiFW2dlpC5b2d2GGnVMWsw4m1Buff0ToEEc
NGbZdvGwho7W1j6mtfDURoHynxflPy/Kf16U/7wo/xkZ3F0B6h4cvIlSNpVylgEh8cWIhwy0HNZBPNTF
FKMuWzHUyGbqIi0GmfVeVxZw0DYI0BVfjLR8pE3foIde2EQdNPYnNSKU/7wo/3lR/vOi/OdF+c9FCndF
0oHsR1nrAImuVB2QEMFQF3dMp6iFd2bh2rUfGFus97oiM/XZimA4YgTe2XnBgKhrmfWMKoYL+JMaEcp/
XpT/vCj/eVH+86L85yKFu8K3knGyHGWtd27c+AmfDiiNYLu7L1lzePjWfncUXVlmkGGBURTLDAwCzDgH
WSetQQVGA/X9SY0I5T8vyn9elP+8KP95Uf5zkcJdkR0yTqLDfPUOipqWqMgCXpg1WGY+Ii0LDC+7FYlf
RicWGAENljmEOowVdqR+dHaLD8ev/GeE41f+M8LxK/8Z4fiV/4xw/Mp/FlK4K8A7H/TxSv4ytIlsyHkz
eB//reIFtfv7r1ljyxhk5ERUOHPmM4yw6dRGWqAaI2Nj4wkDIjyvsaD850X5z4vynxflPy/KfxYSuSuk
tSzXZZNNiHT9+o+ULBsoF+LXW00UpVnGjRlkRMUjs8BHdLXd6fpC8d5Y0xWB0RWdWB8dQDMc9tWr321t
PWNk+JMaEcp/XpT/vCj/eVH+86L8ZyGRu0IPZECSKGsGSqATqhwevmUQAEYYWAlIRclH20Q7OOJQUS+q
7Y7q6IoeqOh1RRV0nckvR7AjxnltnK/k7z3//1AoFIqVCWZRzf9+/tf1tw2J3BUJRRJ0ilJmoAfymEhU
QyRALQ/rPQ8e/O65d2/ybn4UNbNMRyh68eLX+FyWcc2nizeebW8/Zz0ru+lqsC8to65Z73HRe/6Zbv6j
UCgUyx5//fUX053mf8NffEHX32YSuStAAyywudowa6xBG1wwylHBbjmyJjLLlPbR2qEOctLUlSvfkm6E
PHfui83ifa9oSXc0ixh4Zz5imTvryo60xsigEfPOW1vP/EmNCMtbX/k3d/U/CoVCsdTx9u1bpjvN//bR
2tH1tw3p3BWCIcy10u+Fmrq2iQwiFbBAQg3bnQWEtAq7uy/Pn/8SORHPFD1z5jNggZVUoCnaRBhUB3aP
Om2GHcF6DIfO+vonGxtPRvrT1W/+5a4UCsUqhLkrzf+6/s5KOneF1cUCVz76ZRMaoxzmFNlwuwY5tRLI
qRFqibpWh73QALNMIzSIufbDhaFAyQGEPZYxRalmirIXzdI+cpqodET7/nRGR7/5l7tSKBSrEOauNP+H
87+uv21I564AdbG0UVoNMuvTCkiFYIaX2WNaUo36KMeOZrFphKbMjN++/QslK5EEqGNbI7yitEM1WmYA
MXRQ9PTpT1mmI+/fx06P+Ze7UigUqxDmrqK5dIzo+puYpIPm5tEr+esSbbkGEgqWdNPP43Nt9ctNoe6N
Gz/hna0vdrdxwC5WwXqhHVMUw87oQVHkRFT8MmvYZL0sEz3mX+5KoVCsQiyNu9L1NzFJB8214vdCKb0S
A4GoGGcEvn79R/o1M+7HB0rzEQ++ufl0Y+PJ2trHSMtHGwFLTI/5l7tSKBSrEEvjrnT9TUzSQYOrvTP8
K/mBjhhDeGf7LQm88NbWMwwy+Ee5OGU+Irw340tPj/mXu1IoFKsQS+OudP1NTOpBg7pkPBKjR+xepfVl
Apt9No+MWbZHuThoq7Nq9JV/uSuFQrEKsTTuCnT9TUnqQYO0txpfyd8NUzR8lLtdvHVjf/81YJ/5yMql
f/Y3lb7yL3elUChWIZbJXen6m5LUgwY/e7v+lfwzgaKAouGjXLvxaDaZNXSHumafUZ1qVF6dR4Fl+sq/
3JVCoViFWCZ3petvSlIPGlQ5PHzb+dGvKUo7puhu8Vqzuke51GQXpKU77LPtYgL741k1SEgv+Ze7UigU
qxDL5K6Yw3X9TUaGQYN3Pii+7BbK1oxX1G48Rm/FQF1scvQ7nF7gj4q/6W33QldQ4DK95F/uSqFQrEIs
k7sCXX+TkWHQ7Be/q0m6IwkjTFFEQjb0QD988ebmU+S0G4877d6KQVNeYD5aa5Qm/wrSS/7lrhQKxSrE
krkrXX+TkWHQkOU7Na/kR1Eg72ZyUXT76K0Y2GRKPuKdacS0bwktm8As0Dgt2zPgVRC4TC/5l7tSKBSr
EEvmrnT9TUaGQYMwqIuDDhVlvSlqj3K3tp6Zojjl8FFuZ/b2vkdgSpZpjTYZKCtyfzKil/zLXSkUilWI
JXNXvcz/s7Ka1988g+bWrX8fFG/dIL+Xi0e5O8ULx+xRLpw9eh2+CT8/tGODiR7piC4QeOnVrWP+/Mtd
KRSKVYglc1eg628a8gwa+z0CnDIptke5pBtp8bOsjCr3hQ0UjDM9wnAdLT7z51/uSqFQrEIsn7vS9TcN
eQYNHvbq1e9IMYoiMBmPKgwEneLT6Q5XPuetzlEzf/7lrhQKxSrE8rkrXX/TkG3QXFntt3pmZ878y10p
FIpViOVzV6DrbwKWbdCINMhdKRSKVYildFciARo0ogtyVwqFYhVC7kp0Q4NGdEHuSqFQrELIXYluaNCI
LshdKRSKVQi5K9ENDRrRBbkrhUKxCiF3JbqhQSO6kMxdMbUpFApFFG6CGD7oS+5KdECDRnQhpbuiL4VC
oQgj2b1zuSvRDQ0a0YVks5tNbfSlUCgUFnJXYvHRoBFdkLtSKBS5Qu5KLD4aNKILclcKhSJXyF2JxUeD
RnRB7kqhUOQKuSux+GjQiC7IXSkUilwhdyUWHw0a0QW5K4VCkSvkrsTio0EjuiB3pVAocoXclVh8NGhE
F+SuFApFrpC7EouPBo3ogtyVQqHIFXJXYvHRoBFdkLtSKBS5Qu5KLD4aNKILclcKhSJXyF2JxUeDRnRB
7kqhUOQKuSux+GjQiC7IXSkUilwhdyUWHw0a0QW5K4VCkSvkrsTio0EjuiB3pVAocoXclVh8NGhEF+Su
FApFrpC7EouPBo3ogtyVQqHIFXJXYvHRoBFdkLtSLHj8+eefbkmxdCF3JRYfDRrRBbkrxSLH48ePGTZ7
e3t//fWXW6VYopC7EouPBo3ogtyVYmHDxozFqVOnGEVug2JZAmUpbYoYOuSuRDc0aEQXks1ucleKmeL9
+/cffPABY8bHiRMnGEhus2IpAlkpbYoYOuSuRDc0aEQXks1ucleK9sGAwUsxYMLQ88HlC2SltCli6JC7
Et3QoBFdSDa7yV0pWgYW6tSpU4yWMFjjNiuWKFCW0s0RA4fcleiGBo3oQrLZTe5K0TIePXrEUAlDzwSX
NRCX0qaIoUPuSnRDg0Z0IdnsJnelaBM2TsL44IMP3r9/7zYrlivQl9LNEQOH3JXohgaN6EKy2U3uSjE1
/vrrr/LXrV69euU2K5Yu0JfSzREDh9yV6IYGjehCstlN7koxNTY3NxkkYezt7bltimUMJKZ0c8TAIXcl
uqFBI7qQbHaTu1I0h704NIyTJ0/qlwSXO1CZ0s0RA4fcleiGBo3oQrLZTe5K0RDv379neIShr1utQiA0
pZsjBg65K9ENDRrRhWSzm9yVoi7++uuvkydPMjzC0NetViEQmtLNEQOH3JXohgaN6EKy2U3uSlEX5WeC
+rrVigRaU7o5YuCQuxLd0KARXUg2u8ldKSqj/EzwxIkTbpti2QO5Kd0cMXDIXYluaNCILiSb3eSuksXJ
vfd7e+/HUpZfwfDo0SNGy96rybuvMpaKBIHclG6OGDiQle6iCVCIqWjQiC4km91saitmVMWw0WBlFq48
+YpREcapU6fKRidL6bKpGDJQnNLNEQMHmtJdNAEKMRUNGtGFZLObTW3FjKoYNqYYmkUqP/jgA0aFDz5G
FidjqUgQiE7p5oiBA1npLpoAhZiKBo3oQrLZzaa2YkZVDBvNhmZxyvIzwcePHzfYncSly6ZiyEB0SjdH
DBxoSnfRBCjEVDRoRBeSzW42tRUzqmLYaDA0i1NWPhNstjuJS0WCQHdKN0cMHMhKd9EEKMRUNGhEF5LN
bja1FTOqYthotjULUkbPBIkGo5OldNlUDBnoTunmiIEDTekumgCFmIoGjehCstnNprZiRlUMG822ZiHK
0o2rzc3NyNxkLxUJAukp3RwxcCAr3UUToBBT0aARXUg2u9nUVsyoimGjydYsRrnIX2b3pcumYshAfUo3
RwwcaEp30QQoxFQ0aEQXks1uNrUVM6pi2GiwNYtQlm9cPXr0qNnoZCkVCQL1Kd0cMXAgK91FE6AQU9Gg
EV1INrvZ1FbMqIpho9ncZC+jG1cnTpxosDgZS5dNxZDBAKB0c8TAgaZ0F02AQkxFg0Z0IdnsZlNbMaMq
ho1mc5O5LP215gV5M3u5VCQIBgClmyMGDmSlu2gCFGIqGjSiC8lmN5vaihlVMWw0mZvcZXTjCrNVtjUL
UrpsKoYMxgClmyMGDjSlu2gCFGIqGjSiC8lmN5vaihlVMWw0mJu8ZfkbV69evWq2OBlLRYJgDFC6OWLg
QFa6iyZAIaaiQSO6kGx2s6mtmFEVw0azxclYRjeuFu31oVHpsqkYMhgGlG6OGDjQlO6iCVCIqWjQiC4k
m91saitmVMWw0WxxOpT/+MfjiOb61WXVrwpGhmZq6fYMorn+PKUiQaAgpZsjBg5kpbtoAhRiKho0ogvJ
Zjeb2ooZVTFsNFmcTmVkraC5fmXZyzeu3M5BNNefp3TZVAwZKEjp5oiBA03pLpoAhZjKuAfNhx/+C6KV
IgHJZjeb2ooZVTFsNFicbmVkraC5frks37jq9geb3c5BNNefp1QkCBSkdHPEwIGsdBdNgAJ0/W1mxIPm
n//8rxs3ftrff7239320SQxNstnNprZiRlUMG81Gp0MZ+iqjuX65PHHiBOr76PyOK7d/EM315yldNhVD
BgpSujli4EBTuosmQKHr71TGOmiwzOh6//5vt2//gsxXrnwLUR0xHMlmN5vaihlVMWw0G50OZWStoLl+
XJZuXO3t7UVWpmXp9g+iuf48pSJBoCClmyMGDmSlu2gCXHF0/W3DWAcNit679+7hwz+wz7u7L7e3n1++
/CqqI4Yj2exmU1sxoyqGjSaj06mMrBU014/K6A2iJ06cKFuZlqVrIojm+vOULpuKIQMFKd0cMXCgKd1F
E+CKo+tvG8Y6aBD10aM/7tz5Fct87twXGxtP5lFXz49nJdnsZlNbMaMqho0Go9OtjKwVNNePyuj77Jub
m822pqF0TQTRXH+eUpEgUJDSzREDB7LSXTQBrji6/rZhlIMG44yuGOfr1380afHOV69+F1Vrhvp7e98z
Sm7d+vfBwRsGx6VL30R1RCXkP9nsZlNbMaMqho0Go9OtjKwVNNc/VpYfC06zNQ2layKI5vrzlC6biiED
BSndHDFwoCndRXPgKqPrb0tGOWiuXfvh7t139+69YxlpoaUwKMrIYEwgJ6Levv0L5c2bP9Pgzs6Lra1n
UX1RCelKNrvZ1FbMqIphY4rdmb2MrBU01w/L6Pvsc/7pG9dKEM315ykVCQIFKd0cMXAgK91Fc+Aqo+tv
S8Y3aD788F9og3FGlQsXvkJa7HODcWYTu3z00X/v7782RYF9+YjM6MomKpw//+Xa2sdLeX+yXyz/yWY3
m9qKGVUxbDTbnQ5lZK2guX5YInoY3V7E4EvXShDN9ecpXTYVQwYKUro5YuBAU7qLpsGVRdff9oxv0Nht
yQcPfkeVs2c/R5Ld3ZdIGAmMTv7Go1eUYcEaU5StNGVQmUZoSr/4MBXLf7LZzaa2YkZVDBvNdqdDGfoq
o7n+3+Xxx4IffPBBs6GZWrqGgmiuP0+pSBAoSOnmiIEDWekumgZXFl1/2zO+QYM2GGe4dOmb9fVPTp/+
FGG8KkgVKsqCKYpNjhQNQV1aw4bjoH1HohLLf7LZzaa2YkZVDBtNdqdTGVkraK7vy+ix4KlTp8omZqbS
NRREc/15SpdNxZCBgpRujhg40JTuomlwZdH1tz0jGzTIgAVG2nv33m1vP8ftbm4+RVokR0UTlTK68Rhp
WQnWe2vr2Zkzn0U9ihCf/2Szm01txYyqGDYa7E63MrJW0Fzfl9FvC875WJDSNRREc/15SkWCQEFKN0cM
HMhKd9FMuJro+jsTIxs0CIaujx79cffuu7NnP8c7X7jwFUKGNrm9oiE0vrPzguESdicifP6TzW42tRUz
qmLYaLA7Scu+HwsmLl02FUMGA4PSzREDB5rSXTQTria6/s7EQg+a6FEumiHqgwe/oy6Knj79qVld5DRF
6248tgFXfvHi16jb8tcfVoGG/Ceb3WxqK2ZUxbAxxfSkKvv9bcH0pSJBMDAo3RwxcCAr3YUz4Yqg6++c
jMBdIRuW+ebNnw8P35q0aHz58quNjafYZ+pEOnUDdWmT4bK9/Tw8hlWmIf/JZjeb2ooZVTFsNJueZGX0
WPDRo0cNVmYBS5dNxZDBwKB0c8TAgaZ0F06MK4Kuv3OyoIOGdGOHDw7e3D76cpypi7RmnM+d+wLvvLPz
wir3AgPF3o2G0uHBrCBkozn/yWY3m9qKGVUxbDSbnkRlry8RzVIqEgQDg9LNEQMHstJdNEMuN1Pnf11/
27BAg4acYpNRDi29qP5RLrAGabHP1MTk4p13d1+yHIkEtGO7sBBtaoCm7NGvefZVY6b8J5vdbGorZlTF
sNFkelKVkbua528L5ipdNhVDBmOD0s0RAwea0l00Wy4fM83/uv62IfWgiRJHQvf2vrcbjyZqqCja+Ee5
LJu6dlsS47y5+ZQFL4wtUJ9979z5lWo0xV6V8ldCzYsXv15f/4RBEx7kMtFX/pPNbja1FTOqYthoMD3J
yuhLV/P8bcFcpSJBMDYo3RwxcCAr3YXT5njR9TcleQaNaRApimtG5lDRENYjGOpS+cKFr9DAXhEbVWNM
2A3Mhw8nNzCvXPmWEdBSYKpRn0Gz9H8SZ/78J5vdbGorZlTFsNFgepKV5S9dle3Lgpcum4ohg7FB6eaI
gQNN6S6aQkeNrr9pSDdoyB3ioaJXFHVNUbPJUa4jGA32lTp2aXjoSzUGAdJin9lKHTPCUbU6qLm9/Zyh
w8KS0W/+k81uNrUVM6pi2GgwPWnK8peuIuMyilKRIBgblG6OGDiQle6i6XR06PqbnkEGjb/9iKIoR8YR
EkWBBQRmjSlaaZMrQVQ0A/Y6e/bzM2c+w0HTflSNZukFgamPEUYqBGYhqlYHDdLs2shfyZ8g/8lmN5va
ihlVMWw0W58UZelLVw0mZmFLl03FkMHwoHRzxMCBpnTnZ9fFR9ffvPj8DzJo7MajeWRgoZuiHnZhWGCc
79//jUNHWrh06ZuyurRPzcPDt5QcCdIiMDWjanXQoL2S34z5SEmQ/2Szm01txYyqGDamWJ/hy5MnT6K1
j/n/AE6WUpEgGB6Ubo4YOJCV7qI5dpFJMP/r+tuAz3/PgwYVHzz4neTSNPnFwNqNx6mKlnWKYJSgLi2T
faTFPvuv1IXQEZ3eufMr9VnGCKPuxYtfT23foBqueWvrGe1HpzYKkuU/2exmU1sxoyqGjWbrk6CMvtI+
ujddWemyqRgyGB6Ubo4YONCU7qKZdjHR9TcvUf57HjRYtnv33tGu2eQod3UgA5UbbDWbOGLURbPd3Zcb
G08rv1JnMJ6ohsAcA7pSE43rKpfhLM6f/3JtnK/kT5b/ZLObTW3FjKoYNpqtT4JyCb7STqlIEAwPSjdH
DBzISnfRTLuY6Pqblyj/PQ8avCcy0EeUsjqQEzE4GvSg5IAqTS7Har+wQB2kwjvbH9OOqhk0gnOkQRZ2
dl5QGYFxxO3tMwMIdfHm4amNgmT5Tza72dRWzKiKYaPZ+iQoEdoHTqtsXEZRumwqhgxGCKWbIwYONKW7
aKZdTJLN/7r+VhLlv/9BQ1oPDt7UueAIZMPkItvDhxPl2B2TW5aBw71//zfqsICuCGbPZaNqBqLu77+m
pt3DXF//ZHv7eXvvTO/ourHxhL38SY2INPlPNrvZ1FbMqIpho9n6DF4uxVfaKRUJghFC6eaIgQNZ6S6c
YxcZXX/zEua//0FDZrGupDhMWSUcgcmGujg+0oovRhIaiWpS7cGD31GX0YARRjNqlqsZNAtsZQScPfs5
ItFmecQ0wFCwXuyMxkWa/Ceb3WxqK2ZUxbDRZH2GLyN3Nbo/3uxLl03FkMEIoXRzxMCBpnQXzrGLjK6/
eQnz3/+goV3s8PXrP4b5qoNqVLZf4MSx4ouRLfK5SMVW1AUaJ++bm08b1DXYSoN2d3EmaYH6jIyRPvpN
k/9ks5tNbcWMqhg2GqxPivL4LwyO8S3tVioSBCOE0s0RAwey0l00zS4suv7mJcx//4OG1NA6eoT5qoND
wehhnA8O3iAq6gKShHW8urhsPmKHUXe35i8c9QIt2yv5KaOzW3zS5D/Z7GZTWzGjKoaNJuszfFn+Gzhl
4zKK0mVTMWQwQijdHDFwoCndRdPswqLrb17C/Pc8aFCI8ubNnwFVwpRVgrocB+qiMYeFIy7fSKQdtH/4
cPIXjmgcaWHWm40zQctXilfy49P9qY2CZPlPNrvZ1FbMqIpho8H6JCgjd/X48eNmE7OwpSJBMEIo3Rwx
cCAr3fk5dpHR9TcvUf4HGTQ3bvx0+/Yv1679EGWtDEdAZbwe9VEaR0xCo7uO1OFYvbp4Z8BfD6cu0BHj
7PTpT+2MxkWC/Ceb3WxqK2ZUxbDRYH0SlMvxOgZKl03FkMEIoXRzxMCBpnTnZ9fFR9ffvPj8DzJo0APB
6CNKWSUcBMbZ1EVXHCtpxbr6CqG6eEOkZQREdy97h6HDwaytfWxudFwkyH+y2c2mtmJGVQwbDdYnQRm5
q3ki730vRYJAZUo3RwwcyEp30Ry7yOj6mxef/6EGDa0fHLyJUlYJou7vvwYEQ9r14o9vl9V9ULwC1eqY
uoN6Zxq/dOkbvDN2Pjq1UTB0/pPNbja1FTOqYthosD4Jyh7dVYP1SVC6bCqGDFSmdHPEwIGmdBdNsAuO
rr95sfwPNWhQC0lQbqoGiGfVdnZeoNzW1jP7LltYwdTliFOqywjDp3M84XmNhaHzn2x2s6mtmFEVw0aD
9UlQ9uWusr/KQZEgEJrSzREDB7LSXTi7Lj66/ubF8j/UoLlW/K1syihrdbALXhWQjeVwU6husjuTwGGc
H+0r+YfOf7LZzaa2YkZVDBsN1idBicq9xB4xzQANWrpsKoYMhKZ0c8TAgaZ056fWUaDrb14s/0MNGrJz
OMsr+fGqRrQeTN3793+jQdTFzDar25enpp3d4pX8mOjo7BYfjn/Q/Ceb3WxqK2ZUxbDRYH0SlKjcS2T/
OrwiQSA0pZsjBg5kpbtogl1wmLd1/c0Ix0+6Bhw0eLeD1q/kb4AW9vdfm7o069XtS8U6aB8vv7HxZKd4
6//oGDT/yWY3m9qKGVUxbDRYn4Utoze8L8JfJ3TZVAwZaE3p5oiBA03pLpxaR4Guv3kZ8N4VIMmtdq/k
byZUl4wjLQKT96HVBVwzfW1uPo1ObRQMmv9ks5tNbcWMqhg2GkzM4paL99cJFQkCrSndHDFwICvdRbPr
4qPrb15I2oCDxh49tnwlfwOm7t2771CXj6gLdepSmfEELESbOsBZjP3R70D5Tza72dRWzKiKYaPJxCxq
GbmrU6dOle1O4tJlUzFkoDWlmyMGDjSlu2h2XXx0/c0L+R9w0JCdO61fyd8AOt248RPSIjCyke5IXVOU
k6Eve3UHJR+bzXUb600de/R7ufiu37jg+IfLf7LZzaa2YkZVDBsNJmZhy+gN748ePWq2PglKRYJAa0o3
RwwcyEp30ey6+DB16/qbEY5/2EFDlnt59ItUDBTUxYnvXPgKdS9e/NrWI/zNmz+z9f793x4+/OPRoz8o
WXP16nfzPxtmdxrZ2HjCkIpObRQMl/9ks5tNbcWMqhg2GkzMwpYL+IZ3l03FkIHWlG6OGDjQlO6iqXUU
6Pqbl2EHjZlZjG2UtVmhBRzxvXuTP+WNrpZrJGSNKWqwzBp6ZCt17EVkUVNlzHpD5ShklDCYzpz5zM5o
XAyX/2Szm01txYyqGDYaTMzCloyNMCKjk6VUJAi0pnRzxMCBrHQXTa2jQNffvAw7aEgZrnb+R7+0g2Ze
OTKOtKarKYr2CG8iUf/Cha/Onv2cksphOxHIifWmTbDdowqAfd7ZeTHSR7/D5T/Z7GZTWzGjKoaNBhMz
pTz5akJznSHK0i8MNpiemcrNzc3Of07HZVMxZCA3pZsjBg40pbtwXh0Lw83/uv62YdhBQ2pQl8RFKZsV
ZDg4eHP37jtaMwn5aJKw6fLlVwi5vf3c5DQ9UNd+kzNqykMjDJH7939jiDA+kJkdbfewGh9x6+vrn1Da
SY2I4fKfbHazqa2YURXDxhQrU1dOLM5jMI/VVLPvMnJXJ06ciIxOh3Jvb8+eNnZ+uYMiQSAQpZsjBg5k
pTvN/7r+zsqA7gqHS4kGJBENwpTNCruT/cPDt3hkk/PSpW9M0c3NpxsbT0+f/pQFVlINq84mPp4//yXH
EDUFtHCt+H0Kk5aSUWJDhBY45rAy6l658i2tnTv3hT+1UTBo/pPNbja1FTOqYthotjJ1pVmrkInNmrZX
P2XpFwYbTE9z+fgxh33SNXQU3eyay6ZiyEAdSjdHDBxoSnea/3X9nQnOffAbnqSbPJLNMGUdoAVGCcrt
7r70isKZM59hkxESYdiKv6YaPrdOXSwzWlINXU1aPxqg8lExaxhG9OVPakQMlP9ks5tNbcWMqhg2pliZ
qrLwN7G78gxts8ruKjI6U8tXr16xV/SLh2F0aFORIJCG0s0RAwey0p3mf11/Z2Vwd4VRvXPnVzSOUjYr
dkMStew7bijBgrlde1M+HaErauHWWRmpy1Z2t6Fmlhkw42xCufX1T+xvg+OgozuTwBo6Wlv7mNbCUxsF
A+U/2exmU1sxoyqGjWYrU1lGdqqOoWzW8btNm5ubDaYnLB8/foxtin7fsDLat+lLl03FkIE0lG6OGDjQ
lO40/+v6OyspvqyHugcHb6KUTaWcZUBIfDHiIQMth3UQD3UxxajLVgw1spm6SItBZr3XlQUctA0CdMUX
Iy0fadM36KEXNlEHjf1JjYgh8p9sdrOprZhRFcPGFCtTVxZft4rsVDUnXWV2rG1tljK654QTioyOL7FT
bLXbVG1MFUHlV69eVbbWXCoSBAJRujli4EBWutP8D7r+zkQKd0XSgexHWesAia5UHZDQbjnijukUtfDO
LFy79oN9I8/riszUZyuC4YgReGfnRaVrNljPqGK4gD+pETFE/pPNbja1FTOqYthotjLNZVuDFeLNVuG3
mtuvLCN3Za8SxRKxQGCPZrJTFlTeI6ZZqIbSZVMxZKAUpZsjBg40pTvN/+Dn/zK6/pZJ4a7wrb08+p3K
jRs/4dMBpRFsd/claw4P39rvjqIrywwyLLBZZrsbiRnnIOukNajAaKC+P6kRMUT+k81uNrUVM6pi2Gi2
Mi3LLjYrJLRc04hsEx+jNe2DHbFi2KrIKnUoFQkCySjdHDFwICvdaf6fiq6/ESncFdkh4yQ6zFfvoKhp
iYos4IVZg2XmI9KywPCyW5H4ZXSaaplDqMNYYUfqR2e3+HD8vec/2exmU1sxoyqGjWbbNFtZuJ/YOfXP
vNGjqfKly6ZiyEA7SjdHDBxoSnea/5vR9bdMCncFeOeDPl7JX4Y2kQ05bwbv479VvKB2f/81a2wZg+z9
8pkzn2GETac20gLVGBkbG08YEOF5jYXe859sdrOprZhRFcPGFMPUtZzYrJNtv/8+I10CR3XixInNzc1H
w/zZHEWCQEdKN0cMHMhKd5r/K9H1t4FE7gppLct12WQTIl2//iMlywbKhfj1VhNFaZZxYwbZ337kI7ra
7nR9oXhvrOmKwOiKTqyPDqAZDvvq1e+2tp4xMvxJjYje859sdrOprZhRFcNGs0mav5xg97R6M1ttAzt1
6tQpHFXnN7C3L102FUMGmlK6OWLgQFO60/zv11tNXX+nkshdoQcyIEmUNQMl0AlVDg/fMgjAvojHSkAq
Sj7aJtrBEYeKelFtd1RHV/RARa9rB78cwY4Y57VxvpK/9/wnm91saitmVMWwUWmJhisnBF+i6mS54sBF
mZEi7Lvt3X7vb55SkSDQmtLNEQMHstIds6jmfz//6/rbhkTuioQiCTpFKTPQA3lMJKohEqCWh/WeBw9+
99y7N3k3P4qaWaYjFL148Wt8Lsu45tPFG8+2t5+znpXddDXYl5ZR16z3uOg9/8lmN5vaihlVMWw0m6Fc
ZejAIqLvsM/5u359lS6biiEDuSndHDFwoCndaf43/MUXdP1tJpG7AjTAApurDbPGGrTBBaMcFeyWI2si
s0xpH60d6iAnTV258i3pRshz577YLN73ipZ0R7OIgXfmI5a5s67sSGuMDBox77y19cyf1IiwvPWV/2Sz
m01txYyqGDYaLM5iluW3iUZGJ0upSBDITenmiIEDWelO8799tHZ0/W1DOneFYAhzrfR7oaaubSKDSAUs
kFDDdmcBIa3C7u7L8+e/RE7EM0XPnPkMWGAlFWiKNhEG1YHdo06bYUewHsOhs77+ycbGk5H+dPWb/2Sz
m01txYyqGDaarcwill3f1T5o6bKpGDKQm9LNEQMHmhajS/O/rr+zkc5dYXWxwJWPftmExiiHOUU23K5B
Tq0EcmqEWqKu1WEvNMAs0wgNYq79cGEoUHIAYY9lTFGqmaLsRbO0j5wmKh3Rvj+d0dFv/pPNbja1FTOq
YtiYYmUWrzw5eenD33Fq9r8JOESpSBDITenmiIEDWelO8384/+v624Z07gpQF0sbpdUgsz6tgFQIZniZ
PaYl1aiPcuxoFptGaMrM+O3bv1CyEkmAOrY1witKO1SjZQYQQwdFT5/+lGU68v597PSY/2Szm01txYyq
GDaarcwilsfd1cmTJxtMT7LSZVMxZCA3pZsjBg40pbtoLh0juv4mJumguXn0Sv66RFuugYSCJd308/hc
W/1yU6h748ZPeGfri91tHLCLVbBeaMcUxbAzelAUOREVv8waNlkvy0SP+U82u9nUVsyoimFjipVZvDJy
VydOnIiMTpZSkSCQm9LNEQMHstKdTYyjRtffxCQdNNeK3wul9EoMBKJinBH4+vUf6dfMuB8fKM1HPPjm
5tONjSdrax8jLR9tBCwxPeY/2exmU1sxoyqGjWYrs4jlcXf1wQcfNJieZKXLpmLIQG5KN0cMHGhKd9Fc
OkZ0/U1M0kGDq70z/Cv5gY4YQ3hn+y0JvPDW1jMMMvhHuThlPiK8N+NLT4/5Tza72dRWzKiKYWOKlVnI
MnopQ2R0spSKBIHWlG6OGDiQle6iuXSM6PqbmNSDBnXJeCRGj9i9SuvLBDb7bB4Zs2yPcnHQVmfV6Cv/
yWY3m9qKGVUxbDSYmIUtI3c10B+3mal02VQMGWhN6eaIgQNN6S6aSEeKrr8pST1okPZW4yv5u2GKho9y
t4u3buzvvwbsMx9ZufTP/qbSV/6TzW42tRUzqmLYaDAxC1ueOHGC4eEDd9VsfRKUigSB1pRujhg4kJXu
ool0pOj6m5LUgwY/e7v+lfwzgaKAouGjXLvxaDaZNXSHumafUZ1qVF6dR4Fl+sp/stnNprZiRlUMGw0m
ZmHL6JVXi/BSBpdNxZCB1pRujhg40JTuool0pOj6m5LUgwZVDg/fdn70a4rSjim6W7zWrO5RLjXZBWnp
Dvtsu5jA/nhWDRLSS/6TzW42tRUzqmLYaDAxi1uWfm2w2fokKBUJAq0p3RwxcCAr3YWz6HhhDtf1NxkZ
Bg3e+aD4slsoWzNeUbvxGL0VA3WxydHvcHqBPyr+prfdC11Bgcv0kv9ks5tNbcWMqhg2mkzMopblXxss
253EpcumYshAa0o3RwwcaEp34RQ6anT9TUaGQbNf/K4m6Y4kjDBFEQnZ0AP98MWbm0+R02487rR7KwZN
eYH5aK1RmvwrSC/5Tza72dRWzKiKYaPBxCxyuWhfbFckCISmdHPEwIGsdBdOoaNG199kZBg0ZPlOzSv5
URTIu5lcFN0+eisGNpmSj3hnGjHtW0LLJjALNE7L9gx4FQQu00v+k81uNrUVM6pi2Gg2MQtbRl9sz/7X
Bl02FUMGQlO6OWLgQFO6C6fQUaPrbzIyDBqEQV0cdKgo601Re5S7tfXMFMUph49yO7O39z0CU7JMa7TJ
QFmR+5MRveQ/2exmU1sxoyqGjWYTs7Dlor2xXZEgEJrSzREDB7LSXTj7jZpe5v9ZWc3rb55Bc+vWvw+K
t26Q38vFo9yd4oVj9igXzh69Dt+Enx/ascFEj3REFwi89OrWMX/+k81uNrUVM6pCURF//vknIyQMxozb
pljSQGVKN0cMHEvmrkDX3zTkGTT2ewQ4ZVJsj3JJN9LiZ1kZVe4LGygYZ3qE4TpafObPf7LZTe5K0Rx/
/fVX9HDw8ePHbptiSQOVKd0cMXAsn7vS9TcNeQYNHvbq1e9IMYoiMBmPKgwEneLT6Q5XPuetzlEzf/6T
zW5yV4qpsbe3xyDxcerUKbdBsaSBypRujhg4ls9d6fqbhmyD5spqv9UzO3PmP9nsJnelmBrlh4Pv3793
2xTLGEhM6eaIgWP53BXo+puAZRs0Ig3JZje5K8XUKD8cfPTokdumWMZAYko3RwwcS+muRAI0aEQXks1u
cleKNoGdYpz4wGxhudw2xdIFElO6OWLgkLsS3dCgEV1INrvJXSnahH5zcKUCfSndHDFwyF2JbmjQiC4k
m93krhRt4q+//ir/RWe3TbF0gb6Ubo4YOOSuRDc0aEQXks1ucleKlvH48WOGShj6bvuyBuJSujli4JC7
Et3QoBFdSDa7yV0pWgajJfqbg3t7e26bYrkCcSltihg65K5ENzRoRBeSzW5yV4r2Eb34itDtq6UMlKV0
c8TAIXcluqFBI7qQbHaTu1K0D7wUoyWMzc1Nt02xRIGylG6OGDjkrkQ3NGhEF5LNbnJXipkCO8WA8cFH
vZph+QJlKd0cMXDIXYluaNCILiSb3eSuFDOFfzUDvoplWaulDJsT3BwxcMhdiW5o0IguJJvd5K4Us8ar
V6/wVe6DYhlD7kosPho0ogtyVwqFIlfIXYnFR4NGdEHuSqFQ5Aq5K7H4aNCILshdKRSKXCF3JRYfDRrR
BbkrhUKRK+SuxOKjQSO6IHelUChyhdyVWHw0aEQX5K4UCkWukLsSi48GjeiC3JVCocgVcldi8dGgEV2Q
u1IoFLlC7kosPho0ogtyVwqFIlfIXYnFR4NGdEHuSqFQ5Aq5K7H4aNCILshdKRSKXCF3JRYfDRrRBbkr
hUKRK+SuxOKjQSO6IHelWJ3466+/3r9//+effzIa9179h5LgI+OTTa7SAEHjdBH2yzLBwQza7+KH3JVY
fDRoRBfkrnoPTtaunZXR79WU1ly7VcGRuHqrHTb89vbew8n68vHjxyStX4HwT9ip5n4pqbOaYsldicVH
g0Z0Qe6q3+BMT5w4wZnWxebmpqvaR+zt7bl2q4IjWfFbI8hRNjfw6tUr1lsZbaVkrM6fN7rGrh3r9+hu
GTH5WOqX41k1vRillJMJYvgg7XQXTYBCTEWDRnQh2exmU1sxoy5zcKYnT57kTBvi/fv3rvZ8wZX4gw8+
cI1WBUeysu6KE8esHDM3e5NngpUJQbWyzaKy2zx7TG5Z+X5r7kuxMjpCSta4zasRjFJKUpEg5K5ENzRo
RBeSzW4r4q4Irt/25Z7Hjx9X3sdivas6X3Aldi0GgaOyJ1zkfGWtVWhurGxjlUgXozTcC2PUIYf05VtA
Bbe2Jqh8rMe9fpz3WIIRS1nMEIOH3JXohgaN6EKy2W113FUYXObLt5dOnTrlNs8Xm5ubrsWjoC9S7Tav
aoTmxsqZHBKShftSzpTS0Ni17DeydG7tagSDlrKYIQYPuSvRDQ0a0YVks9tquiui7IEIrsFuc9cgpcP5
tvEGw8zbFMputwnJbWh3KFnjtk0Lv1ebu2U+wr5W6o4jg5ZyMkEMH3JXohsaNKILyWa3lXVXlV88n//h
YOVjwX6/Mj+6KN+1chtmD0Zs2A4la9y2+vCP+WbtOjxyuauBQu5KdEODRnQh2ewmdxXGyZMn3eauUXlL
jL7c5tWL8net5rQp5UeEUxukmtXs8OV0v6/c1UAhdyW6oUEjupBsdltZd1Vpg4h5Hg6Sz8rfFlxZd4Uj
MWviy5kezNVF9Dt9e42WCVHm6Z0fENtX7mqgkLsS3dCgEV1INrutrLs6deoUJ17+/cF5Hg7aY0EMVmTd
VvbJIMlsb4Pax0ymzdsjyg7WmZ8R25cFt2oFgkFLWcwQg4fcleiGBo3oQrLZbcXdVfHc6tgjwnm+gW6m
itKy6mM1v9Xuv+00j7mpCzIctkxZd28pfGNWtwNgx4b2lzIYtJRujhg45K5ENzRoRBeSzW6r6a64UtrL
RbncYgJYCKPbNZhk2mNBUmpZ9bGa7iq0PpTz/8ZAGBMFj7df952qsE6355Io26MvHEUwaCmLGWLwsB+W
aAIUYioaNKILyWY3m9qKGXWFInRXLPfycNA/FqRBW/axgu4KHxPaGspuzqYhom9fUTKe3bYgwjp9PZpc
+mDQUtoUMXTIXYluaNCILiSb3VbWXZmjIgN8jB4OdvtLNfao0b5iFbmr+X8VcXQRmh4rO6S0OdAu6qXS
PEV1THFFczBoKScTxPAhdyW6oUEjupBsdltNd8WJf1AEC3y0JIQx640W2rEdaYqPUYPzuCtaxqs9fvz4
0aNHuECCZdqf36zQAqfpW6Zkmb5YOWfj70svTaBZt63XiHqhdBuCiOoMdCRLFgxaSsZegrAflmgCFGIq
GjSiC8lmN5vaihl1hYITD90VZiJ6OIjVsJotA1/CXjRovmR+d0U7tGn3wyqDvqjgas8Y+CdOsPKPLVrQ
OH6r87O88IvkVg70vSWsUmSeysccHQkl6rhtippgDFAWM8TgIXcluqFBI7qQbHZbTXfFxZ6zxl74mzSY
Cdb4mNUPhY8FichdhR1NDfNV3vrQst1PIliP77H1FrMaLBS3X2wkOEd2p9mJ93k/uanDGtvko4OB4/jL
hqb96c8UHHzUV/nhYNnqUcpgNQfSU9oUMXTIXYluaNCILiSb3eSubE3khwiu3LZpapBGMz3+mh211t5d
cWD+fhV7+QZ9cFS21Qe7uG3TIjRnlQ/IOMhHjx5ZBR/t82DB8URWhtJt6zvIfLmvKNWVx0NJBgbyfEsQ
6E5ZzBCDh/2wRBOgEFPRoBFdSDa72dRWzKgrFOauTgbfXmfB3y6yaP9wkOs09dmdfNoaa99HS3eFj/Hu
h13qbFN0m63l7SWqWX26aDZMkcHyN+RaRvleUeWXzfuKqC9Kr4IFmS/X8eWs3nFFAt0pixli8JC7Et3Q
oBFdSDa7raa7sjtA0eO/yFW0tESE3W3C9LjPpTtMGBpS7bbVRLgL9eusFWFmzkcb9xMasvL9sHKEjwhD
D9omyiamTY+dgy6iHsuGiTVRnbCEhmyvZqA7pU0RQ4fcleiGBo3oQrLZbTXdlZ01rsh9LiKyRET5Ol0O
cmiVQw8RNdXslgi2+rtWRPNts6jx6CzK4e9aES1vyIVdTG0/DHxY2b60SWPnmHxd7HiPlQ892RTWKZfs
hZSu9soHulMWM8TgIXcluqFBI7qQbHZbTXdlt3+iuz44gw4PB827RDe6cEvWgkXzvauJIwnuFU290TWT
uwort78bR/jbXTM9GeTIy8Zl0DtDDOCoR3DbguDEbVN0bFG592pS0+2zwoHulJMJYviQuxLd0KARXUg2
u62muzJLFD7Lsyg/HHQb6sMeC0Y+jMSG96KaDdOsT/qiG13R880wIt/W8htaFt4gtrzdZcFpli1Lw7nP
H9jHco9u2/FoabAo+aFw+6xqoDslwiUIuSvRDQ0a0YVks5vcVRjRbSGi+amWtyBRNRIbGiCi7v5NZICI
qZf2yF013JEKfVuzw6sMu33VnIEoOLayWRn0bhCHV+7RbauKyhc0VJazpmuZAt0pJxPE8CF3JbqhQSO6
kGx2W013Zfeoyndl8AHRw8GyAwuj8rEgQWIjd1XnUVjvahTR5ktOLd0VK0PfNuuv/hG0MJO1IqhftimV
h9dXkI1Ze6y0gJXlrKe/NMGAobQpYuiQuxLd0KARXUg2u62mu7K7MpXPvMx4+Wi4M0RUPhYkSGzLe1eW
fwt2qasWRkt3FbZMVH7Xu/fAjpRtytDuqluPlUawXA76OomFDQYMpU0RQ4fcleiGBo3oQrLZbTXd1Wbx
vvLK7yFx0WVTGHU3MLiu11UgsdE9sLpGqIlFozKH1MZaES3dlZ2jj5aNzxmVlmVodzVPj20eFK6gwWLA
UBYzxOAhdyW6oUEjupBsdpO7ioILc2SMKm9xEfZYsPJL5SS2pbvqEG3cFQcQ1mGZNW7bkMGxlQ3K0O5q
zh7JzKvSax2ictUMFmOGkswkCLkr0Q0NGtGFZLPbarore6JX97Cs5cPBuseCBIkdzl3R+FR3RXducxFY
wEEtjo/KO0kcsNs8QFTeLXPbZgkOkh2jdsKScFVXIBgzlOQkQchdiW5o0IguJJvdVtldce7u8/GIrAlR
rsm11jZVXnRJbOSu6vrqEL5ri0p3ZffVfHT4Snu34MTL1oSVbvMAgVhRj+C2zR7l1sLSVVqBYMxQTiaI
4UPuSnRDg0Z0IdnstoLuCi9iv0xX53h8BR/l3xz0jwUr7wmxMnJXfX2pnGOOjq3SXUW335p/87HHmKSu
ZEoGveszScjxHisf+LYPfiii4/floCeyUMGYobQpYuiQuxLdGPeg+fDDf0G0UiQg2ey2mu7KrE/DxTK6
90N9cuW2FWF3v+ou5BOTcdwDze+uOFrrNIpKd2W/FOmj7qtjQ0TZlPzZ31PRcpS/lj7/d6TIJ8pGZ9FL
y2MJxgylTRFDh9xVHbr+NjPiQfPPf/7XjRs/7e+/3tv7PtokhibZ7Laa7sq+t9TgrpofDpI3W1nXQr/u
itb8vSiajZxTpbuKfmEwqbsawO40RNQXZV9mrtwyZTnVSxmMGUqbIoYOuatKdP2dylgHDZYZXe/f/+32
7V+Q+cqVbyGqI4Yj2ey2gu6KszZ3xYJbVYqyPQq/umR3tk7Vv/mzvHu3x1W0w452p41jtkZYOfVb7dFd
rpTuihFVNiVuW98xyXOprwZZZwraiVqm7KvxBQ/GDCUnmyDkrsro+tuGsQ4aFL13793Dh39gn3d3X25v
P798+VVURwxHstltNd0Vp0yw4FZVRfTVJQyNmZjJFb1wTs2GKfI3HdzVn3/+6S0aB+OPloWp7iq6v5Xs
e1cEh1c2JW5b3/G+6nUMblsfUb4P13C/c5mCMUOJlAlC7qqMrr9tGOugQdRHj/64c+dXLPO5c19sbDyZ
R109P56VZLPbCrorLpCcMgaF03erqsKqhUGuwvXNF9p53BVuifq2IwYretTFYU91V5E1TOmuiMjuUDan
unNMDOjxvvr67QELDjtqv6/HjgsejBlKTj9ByF2V0fW3DaMcNBhndMU4X7/+o0mLd7569buoWjPU39v7
nlFy69a/Dw7eMDguXfomqiMqIf/JZje5q7rw96h8mEcx39PwWNCi87M5Di+8ZVV2Thz2rO4q2RsZLBhU
aUxJgntLUftyV72H3FWErr8tGeWguXbth7t33927945lpIWWwqAoI4MxgZyIevv2L5Q3b/5Mgzs7L7a2
nkX1RSWkK9nstoLuigskpzzVXRH+BpIFPoZd2jwWJCJ31fLuEXJ451R3G4ZjmOquykderjNccISRKRni
i+2cUdxL6bEgWrNynnOPDFzv7m0xgzFDiY4JQu4qQtffloxv0Hz44b/QBuOMKhcufIW02OcG48wmdvno
o//e339tigL78hGZ0ZVNVDh//su1tY+X8v5kv1j+k81uK+iu7JTbGA4updQMw99VInWuUk10+OYTdsrV
bvwdQ7qe6q7MQfqgfmJbYF4ntD692zvOMWyfsnxjCZfJ+nnOndES9jJV9+UIxgzlZIIYPuSuQnT9bc/4
Bo3dlnzw4HdUOXv2cyTZ3X2JhJHA6ORvPHpFGRasMUXZSlMGlWmEpvSLD1Ox/Ceb3VbQXZmJwSe1ud5H
Dwctpj4WJGZ1V6G1an6MiGpT3VVUh0Boty1JYGhCU0JZtj5zRvmxYDkPVmeertk37IXEug1LHQwYyskE
MXzIXYXo+tue8Q0atME4w6VL36yvf3L69KcI41VBqlBRFkxRbHKkaAjq0ho2HAftOxKVWP6TzW4r6K7s
qVlLdxU9YrNouLHkI3JXzd984hLu6hUH5tbWBKpNdVdE5y9+9RWhKaEEt6GPIAlR+5UWyrbO4yxpNuzF
rV32YMBQFjPE4CF3FaLrb3tGNmiQAQuMtPfuvdvefo7b3dx8irRIjoomKmV04zHSshKs99bWszNnPot6
FCE+/8lmN7mr5nj//n10E4iP5M1tro/27orDwCG5ei2sG4fkqhZR567yfvWKIEvelDQYoG5BlsKWwW04
HrZpnm99hXfI5mlnXMGAoSxmiMFD7sqj6+9MjGzQIBi6Pnr0x927786e/RzvfOHCVwgZ2uT2iobQ+M7O
C4ZL2J2I8PlPNrutoLuy36dr6a6I6CZQy9+/a++uQhvUxrqZZD7qbBPtRL6wR3PTMto8vOsQnFrYJmVd
0nwd93n2QB3fyzzf3xpXMFooyWqCkLvy6Po7Ews9aKJHuWiGqA8e/I66KHr69KdmdZHTFK278dgGXPnF
i1+jbstff1gFGvKfbHZbQXdlbqm9u4puArV5LEi0d1cciavU7g5T1HLDLjM9nRwo8CXe4lAy3tyGOaJ9
m75mN1fHXr4XSrd2BYLRQunmiIFjZd2Vrr9zMgJ3hWxY5ps3fz48fGvSovHly682Np5in6kT6dQN1KVN
hsv29vPwGFaZhvwnm91WzV1NrpeFm2n/pCx8EtfysSAROZu6L8LTmqtRBEfV3H70WJBoOKRy5ZbWsMeI
DArlnHeAovthzWfka3Z7qPdn8JX2OQ97XMFQoWRcJYgVd1e6/nZmQQcN6cYOHxy8uX305ThTF2nNOJ87
9wXeeWfnhVXuBQaKvRsNpcODWUHIRnP+k81uq+auOGX/vIxlt3Za+IeD7W//UNN2sahzV1y/XY2jaLiK
e2sYRrPhK3/7qv1ZWzBCZt0lCnb3ZsjKzg2GdoeSs3MbaoJqvn5LMx2G33d1vnFlwVChRKYEsYLuaur8
r+tvGxZo0JBTbDLKoaUX1T/KBdYgLfaZmphcvPPu7kuWI5GAdmwXFqJNDdCUPfo1z75qzJT/ZLPbqrkr
O18Llt3aafHq6HUJLXfhQo6PsV0s6m6VhcdjUecY2N0cW/RtKiI8KpbD71exV/S9MfwZurvN08K+o9Y+
UXWBZfSWyMr2x+AjslaUbkN9hN+ammrFovBfnIcOzmzUgeiUxQwxeNiPQDRbLh8zzf+6/rYh9aCJEkdC
9/a+txuPJmqoKNr4R7ksm7p2WxLjvLn5lAUvjC1Qn33v3PmVajTFXpXyV0LNixe/Xl//hEETHuQy0Vf+
k81uNrUVM+ryB9fI8N4PtqPlVZNEUb/lY0HqRI8FLfBG5d2xHW7zUdBLaI8sWGNHTjlxKsfvYPHRTsTu
VNG77WVBp5HVs0bc5ppgLzNz7bPUHDQYGiPK8mk2xEwPBH1024vg58LvVVZt6QPdKTnxBLFM7krX35Tk
GTSmQaQorhmZQ0VDWI9gqEvlCxe+QgN7RWxUjTFhNzAfPpzcwLxy5VtGQEuBqUZ9Bs3S/0mc+fOfbHZb
BXfFNfVREZEpIVhjm/AlZMPtUBWYjIbHgvgPWsDWUK18b8kHm6hANQ7JLAtlZH0sqIM0BM2yi19pe3HA
tsYHjVg7lOUTwUvZVh8cCY1UnjIr6dTqk5/mtMwUHHxkd6amneDgqRzuRVrctmlB434vXzb3yEGGd616
PP0RBdJTcu4JAjXpLppCR42uv2lIN2jIHeKholcUdU1Rs8lRriMYDfaVOnZpeOhLNQYB0mKf2UodM8JR
tTqoub39nKHDwpLRb/6TzW42tRUz6nIG58gJtgmu9G6fqrB0uQ+lsDTOFN4i0K9bVR+YofC+S91JYYnq
bkqxi3dpPrzb4xgI/BYO0rvDyptt80f5AR+wcpLf//kfzA3BwsRUlV7owBo2uYbaBe2ELfh2WG/dUaey
R5Zt6woG6lOSkwSxHO5K19/0DDJo/O1HFEU5Mo6QKAosIDBrTNFKm1wJoqIZsNfZs5+fOfMZDpr2o2o0
Sy8ITH2MMFIhMAtRtTpokGbXRv5K/gT5Tza7Lb27IjANOAacx8mTJzETBL6BYIE1rDeTUedL2gSXYRr0
XVj79OvD1vgeWSb54b6oUBdhZR+06TYfRWW1KLBQ3jw1BEdITbfPMGEey1uZqSXH01kgMlw2as3lPINh
CYIxQDmZIIaP0bkrXX/z4vM/yKCxG4/mkYGFbop62IVhgXG+f/83Dh1p4dKlb8rq0j41Dw/fUnIkSIvA
1Iyq1UGD9kp+M+YjJUH+k81uq+CuCM6USyzhPh+FrWSr+zxfWGvuQ01U1mFN2ffwEcNU9+Ukdtnb26MO
gWNr/40iTpa+8Hns6Ho6Ctawnq19JWRqYGI4ctxMpcWxkiHay/GQsYmla7RZdk/L7bDCwWCgJO0JYnTu
KsH8r+tvAz7/PQ8aVHzw4HeSS9PkFwNrNx6nKlrWKYJRgrq0TPaRFvvsv1IXQkd0eufOr9RnGSOMuhcv
fj21fYNquOatrWe0H53aKEiW/2Sz24q4q1EEl3/kwG0QLS0Fu7SpVhmmvnVHtOxxoLATmdwyOgo+stJt
7jtoPOxu0L7GGHJXlej6m5co/z0PGizbvXvvaNdscpS7OpCByg22mk0cMeqi2e7uy42Np5VfqTMYT1RD
YI4BXamJxnWVy3AW589/uTbOV/Iny7/clUKhyBVyV5Xo+puXKP89Dxq8JzLQR5SyOpATMTga9KDkgCpN
Lsdqv7BAHaTCO9sf046qGTSCc6RBFnZ2XlAZgXHE7e0zAwh18ebhqY2CZPmXu1IoFLlC7qqSZPO/rr+V
RPnvf9CQ1oODN3UuOALZMLnI9vDhRDl2x+SWZeBw79//jTosoCuC2XPZqJqBqPv7r6lp9zDX1z/Z3n7e
3jvTO7pubDxhL39SIyJN/uWuFApFrpC7qkPX37yE+e9/0JBZrCspDlNWCUdgsqEujo+04ouRhEaimlR7
8OB31GU0YITRjJrlagbNAlsZAWfPfo5ItFkeMQ0wFKwXO6NxkSb/clcKhSJXyF3VoetvXsL89z9oaBc7
fP36j2G+6qAale0XOHGs+GJki3wuUrEVdYHGyfvm5tMGdQ220qDdXZxJWqA+I2Okj37T5F/uSqFQ5Aq5
qzp0/c1LmP/+Bw2poXX0CPNVB4eC0cM4Hxy8QVTUBSQJ63h1cdl8xA6j7m7NXzjqBVq2V/JTRme3+KTJ
v9yVQqHIFXJXdej6m5cw/z0PGhSivHnzZ0CVMGWVoC7HgbpozGHhiMs3EmkH7R8+nPyFIxpHWpj1ZuNM
0PKV4pX8+HR/aqMgWf7lrhQKRa6Qu6pE19+8RPkfZNDcuPHT7du/XLv2Q5S1MhwBlfF61EdpHDEJje46
Uodj9erinQF/PZy6QEeMs9OnP7UzGhcJ8i93pVAocoXcVQO6/ubF53+QQYMeCEYfUcoq4SAwzqYuuuJY
SSvW1VcI1cUbIi0jILp72TsMHQ5mbe1jc6PjIkH+5a4UCkWukLtqQNffvPj8DzVoaP3g4E2UskoQdX//
NSAY0q4Xf3y7rO6D4hWoVsfUHdQ70/ilS9/gnbHz0amNgqHzL3elUChyhdxVM7r+5sXyP9SgQS0kQbmp
GiCeVdvZeYFyW1vP7LtsYQVTlyNOqS4jDJ/O8YTnNRaGzr/clUKhyBVyV83o+psXy/9Qg+Za8beyKaOs
1cEueFVANpbDTaG6ye5MAodxfrSv5B86/3JXCoUiV8hdNaPrb14s/0MNGrJzOMsr+fGqRrQeTN3793+j
QdTFzDar25enpp3d4pX8mOjo7BYfjn/Q/MtdKRSKXCF31Qzztq6/GeH4SdeAgwbvdtD6lfwN0ML+/mtT
l2a9un2pWAft4+U3Np7sFG/9Hx2D5l/uSqFQ5Aq5q6no+puXAe9dAZLcavdK/mZCdck40iIweR9aXcA1
09fm5tPo1EbBoPmXu1IoFLlC7moquv7mhaQNOGjs0WPLV/I3YOrevfsOdfmIulCnLpUZT8BCtKkDnMXY
H/0OlH+5K4VCkSvkrqai629eyP+Ag4bs3Gn9Sv4G0OnGjZ+QFoGRjXRH6pqinAx92as7KPnYbK7bWG/q
2KPfy8V3/cYFxz9c/uWuFApFrpC7mgpTt66/GeH4hx00ZLmXR79IxUBBXZz4zoWvUPfixa9tPcLfvPkz
W+/f/+3hwz8ePfqDkjVXr343/7NhdqeRjY0nDKno1EbBcPmXu1IoFLlC7qoNuv7mZdhBY2YWYxtlbVZo
AUd8797kT3mjq+UaCVljihoss4Ye2UodexFZ1FQZs95QOQoZJQymM2c+szMaF8PlX+5KoVDkCrmrNuj6
m5dhBw0pw9XO/+iXdtDMK0fGkdZ0NUXRHuFNJOpfuPDV2bOfU1I5bCcCObHetAm2e1QBsM87Oy9G+uh3
uPzLXSkUilwhd9WG4eZ/XX/bMOygITWoS+KilM0KMhwcvLl79x2tmYR8NEnYdPnyK4Tc3n5ucpoeqGu/
yRk15aERhsj9+78xRBgfyMyOtntYjY+49fX1TyjtpEbEcPmXu1IoFLkivbvS/K/r76wM6K5wuJRoQBLR
IEzZrLA72T88fItHNjkvXfrGFN3cfLqx8fT06U9ZYCXVsOps4uP5819yDFFTQAvXit+nMGkpGSU2RGiB
Yw4ro+6VK9/S2rlzX/hTGwWD5l/uSqFQ5Ir07krzv66/M8G5D37Dk3STR7IZpqwDtMAoQbnd3ZdeUThz
5jNsMkIiDFvx11TD59api2VGS6qhq0nrRwNUPipmDcOIvvxJjYiB8p/YXSkUCkUYid2V5n9df2dlcHeF
Ub1z51c0jlI2K3ZDErXsO24owYK5XXtTPh2hK2rh1lkZqctWdrehZpYZMONsQrn19U/sb4PjoKM7k8Aa
Olpb+5jWwlMbBQPlP+XsRkcKhUIRhZsgBg5zV5r/df2dlRRf1kPdg4M3UcqmUs4yICS+GPGQgZbDOoiH
uphi1GUrhhrZTF2kxSCz3uvKAg7aBgG64ouRlo+06Rv00AubqIPG/qRGxBD5T+muFAqFIlf4e1ea/3X9
nYkU7oqkA9mPstYBEl2pOiCh3XLEHdMpauGdWbh27Qf7Rp7XFZmpz1YEwxEj8M7Oi0rXbLCeUcVwAX9S
I2KI/MtdKRSKVQhzV5r/wc//ZXT9LZPCXeFbe3n0O5UbN37CpwNKI9ju7kvWHB6+td8dRVeWGWRYYLPM
djcSM85B1klrUIHRQH1/UiNiiPzLXSkUilUIc1ea/6ei629ECndFdsg4iQ7z1TsoalqiIgt4YdZgmfmI
tCwwvOxWJH4ZnaZa5hDqMFbYkfrR2S0+HH/v+Ze7UigUqxDmrjT/N6Prb5kU7grwzgd9vJK/DG0iG3Le
DN7Hf6t4Qe3+/mvW2DIG2fvlM2c+wwibTm2kBaoxMjY2njAgwvMaC73nX+5KoVCsQpi70vxfia6/DSRy
V0hrWa7LJpsQ6fr1HylZNlAuxK+3mihKs4wbM8j+9iMf0dV2p+sLxXtjTVcERld0Yn10AM1w2Fevfre1
9YyR4U9qRPSef7krhUKxCmHuSvO/X281df2dSiJ3hR7IgCRR1gyUQCdUOTx8yyAA+yIeKwGpKPlom2gH
Rxwq6kW13VEdXdEDFb2uHfxyBDtinNfG+Ur+3vMvd6VQKFYhzF0xi2r+9/O/rr9tSOSuSCiSoFOUMgM9
kMdEohoiAWp5WO958OB3z717k3fzo6iZZTpC0YsXv8bnsoxrPl288Wx7+znrWdlNV4N9aRl1zXqPi97z
L3elUChWIcxdaf43/MUXdP1tJpG7AjTAApurDbPGGrTBBaMcFeyWI2sis0xpH60d6iAnTV258i3pRshz
577YLN73ipZ0R7OIgXfmI5a5s67sSGuMDBox77y19cyf1IiwvPWVf7krhUKxCmHuSvO/fbR2dP1tQzp3
hWAIc630e6Gmrm0ig0gFLJBQw3ZnASGtwu7uy/Pnv0ROxDNFz5z5DFhgJRVoijYRBtWB3aNOm2FHsB7D
obO+/snGxpOR/nT1m3+5K4VCsQph7krzv66/s5LOXWF1scCVj37ZhMYohzlFNtyuQU6tBHJqhFqirtVh
LzTALNMIDWKu/XBhKFByAGGPZUxRqpmi7EWztI+cJiod0b4/ndHRb/7lrhQKxSqEuSvN/+H8r+tvG9K5
K0BdLG2UVoPM+rQCUiGY4WX2mJZUoz7KsaNZbBqhKTPjt2//QslKJAHq2NYIryjtUI2WGUAMHRQ9ffpT
lunI+/ex02P+5a4UCsUqhP9W+9jR9TcxSQfNzaNX8tcl2nINJBQs6aafx+fa6pebQt0bN37CO1tf7G7j
gF2sgvVCO6Yohp3Rg6LIiaj4ZdawyXpZJnrMv9yVQqFYhVgad6Xrb2KSDpprxe+FUnolBgJRMc4IfP36
j/RrZtyPD5TmIx58c/PpxsaTtbWPkZaPNgKWmB7zL3elUChWIZbGXen6m5ikgwZXe2f4V/IDHTGG8M72
WxJ44a2tZxhk8I9yccp8RHhvxpeeHvMvd6VQKFYhlsZd6fqbmNSDBnXJeCRGj9i9SuvLBDb7bB4Zs2yP
cnHQVmfV6Cv/clcKhWIVYmncFej6m5LUgwZpbzW+kr8bpmj4KHe7eOvG/v5rwD7zkZVL/+xvKn3lX+5K
oVCsQiyTu9L1NyWpBw1+9nb9K/lnAkUBRcNHuXbj0Wwya+gOdc0+ozrVqLw6jwLL9JV/uSuFQrEKsUzu
StfflKQeNKhyePi286NfU5R2TNHd4rVmdY9yqckuSEt32GfbxQT2x7NqkJBe8i93pVAoViGWyV0xh+v6
m4wMgwbvfFB82S2UrRmvqN14jN6KgbrY5Oh3OL3AHxV/09vuha6gwGV6yb/c1SoH6vtwq0YSYzxmRd5Y
JncFuv4mI8Og2S9+V5N0RxJGmKKIhGzogX744s3Np8hpNx532r0Vg6a8wHy01ihN/hWkl/wz3chdrWYU
/sQZlHB5FDG6A1ZkjyVzV7r+JiPDoCHLd2peyY+iQN7N5KLo9tFbMbDJlHzEO9OIad8SWjaBWaBxWrZn
wKsgcJle8s90I3e1mlH4kwp35ZcbFvyyha0h3OejcGuLcKtqVhJuVbtGLNzamnYUijCWzF3p+puMDIMG
YVAXBx0qynpT1B7lbm09M0VxyuGj3M7s7X2PwJQs0xptMlBW5P5kRC/5Z7qRu1rNKKyI8yLlZcI+Eu7z
8TVuaVo7lcvRAlFsn77jTMsKRRhL5q56mf9nZTWvv3kGza1b/z4o3rpBfi8Xj3J3iheO2aNcOHv0OnwT
fn5oxwYTPdIRXSDw0qtbx/z5Z7qRu1rNKHzIsQjX27JFeQ1hK32EK5uXw7D1PsKV8y8rFGEsmbsCXX/T
kGfQ2O8R4JRJsT3KJd1Ii59lZVS5L2ygYJzpEYbraPGZP/9MN3JXqxmFD2llUJrXzLrsI1w5xLJCEcby
uStdf9OQZ9DgYa9e/Y4UoygCk/GowkDQKT6d7nDlc97qHDXz55/pRu5qNaPwIa0MSvOaWZd9hCuHWFYo
wlg+d6XrbxqyDZorq/1Wz+zMmX+mG7mr1YzCh7QyKM1rOiz7hUGXifBj3bJiRWL53BXo+puAZRs0Ig1M
N3JXqxmFwWjlPMprCFvpI1xZXibsI+E+F+FWHUW4srxM2Ecfbu3x9W5VEeGaumXFisRSuiuRAA0a0QWm
G7krhUKx9CF3JbqhQSO6IHelUChWIeSuRDc0aEQX5K4UCsUqhNyV6IYGjeiC3JVCoViFkLsS3dCgEV2Q
u1IoFKsQcleiGxo0ogtyVwqFYhVC7kp0Q4NGdEHuSqFQrELIXYluaNCILshdKRSKVQi5K9ENDRrRBbkr
hUKxCiF3JbqhQSO6IHelUChWIeSuRDc0aEQX5K4UCsUqhNyV6IYGjeiC3JVCoViFkLsS3dCgEV2Qu1qE
YN5XLHc4pRX5AhXkrkQHNGhEF+SuFiFs3lcsceinLHvIXYluaNCILmjeX4SweX9v7z2cPPlqAeHwNjc3
Hytmjz///FM/ZYsQcleiGxo0ogua9xchvLt69eo/5rEWCpyVd1d4BcVMgb76KVuEkLsS3dCgEV3QvL8I
4d3V+/f/wWAtFMWNK7mr7oG++ilbhJC7Et3QoBFd0Ly/COHd1V9//YXBWijkruYM9NVP2SKE3JXohgaN
6ILm/UWI0F0tVMhdzR/oq5+yRQi5K9ENDRrRBc37ixC6d7XEgb76KVuEkLsS3dCgEV3QvL8I4d0Vbib6
2lN25K7mDPTVT9kihNyV6IYGjeiC5v1FCO+ucDOUC4Xc1ZyBvvopW4SQuxLd0KARXdC8vwjh3ZW5mUVD
7mqeQF/9lC1CyF2JbmjQiC5o3l+E8O7qyMosIM5duSNWzBL6KVuEkLsS3dCgEV3QvL8IYfO+YolDP2XZ
Q+5KdEODRnRB8/6CBCooljuc0opMIXcluqFBI7ogd6VQKFYh5K5ENzRoRBfkrhQKxSqE3JXohgaN6ILc
lUKhWIWQuxLd0KARXZC7UigUqxByV6IbGjSiC3JXCoViFULuSnRDg0Z0Qe5KoVCsQshdiW5o0IguyF0p
FIpVCLkr0Q0NGtEFuSuFQrEKIXcluqFBI7ogd6VQKFYh5K5ENzRoRBfkrhQKxSqE3JXohgaN6ILclUKh
WIWQuxLd0KARXZC7UigUqxByV6IbGjSiC3JXCoViFULuSnRDg0Z0Qe5KoVCsQshdiW5o0IguyF0pFIpV
CLkr0Q0NGtEFuSuFQrEKIXcluqFBI7ogd6VQKFYh5K5ENzRoRBeYbv766y/mHYVCoVjukLsSHdCgEV1g
ulEoFIoViWgCFGIqGjRCCCGEEH0idyWEEEII0SdyV0IIIYQQfSJ3JYQQQgjRJ3JXQgghhBB9InclhBBC
CNEncldCCCGEEH0idyWEEEII0SdyV0IIIYQQfTJud/Xhh/+CaKVIhvKfF+U/L8p/XpT/vCj/zYzYXf3z
n/9148ZP+/uv9/a+jzaJBCj/eVH+86L850X5z4vyP5WxuissM7rev//b7du/IPOVK99CVEcMh/KfF+U/
L8p/XpT/vCj/bRiru0LRe/fePXz4B/Z5d/fl9vbzy5dfRXXEcCj/eVH+86L850X5z4vy34axuitEffTo
jzt3fsUynzv3xcbGk3nUxYlDtFI0oPznRfnPi/KfF+U/L8p/G0bprjDO6Ipxvn79R5MW73z16ndRtWao
v7f3PaPk1q1/Hxy8YXBcuvRNVEdUovznRfnPi/KfF+U/L8p/S0bprq5d++Hu3Xf37r1jGWmhpTAoyshg
TCAnot6+/QvlzZs/0+DOzoutrWdRfVGJ8p8X5T8vyn9elP+8KP8tGZ+7+vDDf6ENxhlVLlz4Cmmxz8gW
VfOwiV0++ui/9/dfm6LAvnxEZnRlExXOn/9ybe3jpbw/2S/Kf16U/7wo/3lR/vOi/LdnfO4K83vnzq8P
HvyOKmfPfo4ku7svkTASGJ38jUevKMOCNaYoW2nKoDKN0NQV/eLDNJT/vCj/eVH+86L850X5b8/43BXa
YJzh0qVv1tc/OX36U4TxqiBVqCgLpig2OVI0BHVpDRuOg/YdiUqU/7wo/3lR/vOi/OdF+W/PyNwVMmCB
kfbevXfb289xu5ubT5EWyVHRRKWkTnjjMdKyEqz31tazM2c+i3oUIcp/XpT/vCj/eVH+86L8z8TI3BWC
oeujR3/cvfvu7NnP8c4XLnyFkCYqAmOT2ysaQuM7Oy8YLmF3IkL5z4vynxflPy/Kf16U/5lYaHeFnw0/
ohmiPnjwO+qi6OnTn5rVRU5TtO7GYxtw5Rcvfo26l9r9+sMqoPznRfnPi/KfF+U/L8r/nIzAXSEblvnm
zZ8PD9+atGh8+fKrjY2n2GfqRDp1A3Vpk+Gyvf08PIZVRvnPi/KfF+U/L8p/XpT/OVlQd0W6scMHB29u
H305ztRFWsA4nzv3Bd55Z+eFVe4FBgrNbmw8QenwYFYQsqH8Z4RsKP8ZIRvKf0bIhvKfEbKh/M/PArkr
copNRjm09KIisD3KBdYgLfaZmphcvPPu7kuWI5GAdmwXFqJNDdAUw2Vt7WNkjo5tFVD+86L850X5z4vy
nxflv3dSu6socSR0b+97u/FoooaKoo1/lMuyqWu3JTHOm5tPWfDC2AL12ffOnV+pRlPsVSl/JdS8ePHr
9fVPGDThQS4Tyn9elP+8KP95Uf7zovynJM+9K9MgUhTXjMyhoiGsRzDUpfKFC1+hwbniFbFRNcaE3cB8
+HByA/PKlW8ZAS0Fphr1GTRby/4nEZT/vCj/eVH+86L850X5T0M6d0XuEA8VvaKoa4oiCeJFuY5gNDwo
vlLHLuiKd96peuhLNQYB0mKf2UodM8JRtTqoub39nKHDwpKh/OdF+c+L8p8X5T8vyn96BnFXWFpbQFGU
I+MIiaLAAgKzxhSttMmVICqaAXudPfv5mTOf4aBpP6pGs/SCwNTHCCMVArMQVauDBml2beSv5Ff+86L8
50X5z4vynxflPy8+/4O4KzRDP/PIwEI3RT3swrDAON+//xuHjrRw6dI3ZXVpn5qHh28pORKkRWBqRtXq
oEEqb2w8YcfwjMaF8p8X5T8vyn9elP+8KP958fnv2V2h4oMHv5Ncmia/GFi78ThV0bJOEYwS1KVlso+0
2OfLR1+pC6EjOr1z51fqs4wRRt2LF7+e2r5BNVzz1tYz2o9ObRQo/3lR/vOi/OdF+c+L8p+XKP89uyss
271772gXRbGxUe7qQAYqN9hqNnHEqItmu7svNzaenqv6Sp3BeKIaAnMM6EpNNK6rXIazOH/+y7VxvpJf
+c+L8p8X5T8vyn9elP+8RPnv2V3hPZGBPqKU1YGciMHRoAclB1RpcjnWu8UvLFAHqfDOCEB3UTWDRnCO
NMjCzs4LKiMwjri9fWYAoS7ePDy1UaD850X5z4vynxflPy/Kf16i/Pf/vSvSenDwBtl8vhpANkwusj18
OFGO3TG5ZRk43Pv3f6MOC+iKYMhG5aiagaj7+6+pafcw19c/2d5+3t470zu6bmw8YS9/UiNC+c+L8p8X
5T8vyn9elP+8hPnv312RWawrKQ5TVglHYLKhLo6PtOKLkYRGoppUe/Dgd9RlNGCE0Yya5WoGzQJbGQFn
z36OSLRZHjENMBSsFzujcaH850X5z4vynxflPy/Kf17C/PfvrmgXO3z9+o9hvuqgGpXvFr/AiWPFFyMb
yQ3rIBVbURdonLxvbj5tUNdgKw0CCzNJC9RnZKyN89Gv8p8X5T8vyn9elP+8KP95CfPfv7siNbSOHmG+
6uBQMHoY54ODN4iKuoAkYR2vLi6bj9hh1N2t+QtHvUDLF4tX8lNGZ7f4KP95Uf7zovznRfnPi/KflzD/
PbsrFKK8efNnQJUwZZWgLseBumjMYeGIyzcSaQftHz6c/IUjGkdamPVm40zQ8pXilfz4dH9qo0D5z4vy
nxflPy/Kf16U/7xE+e//3hXcuPHT7du/XLv2Q5S1MhwBlfF61EdpHDEJRWMaCetwrF5dvDPgr4dTF+iI
cXb69Kd2RuNC+c+L8p8X5T8vyn9elP+8+PwP4q7QA8HoI0pZJRwExtnURVccK2nFuvoKobp4Q6RlBKCu
rzAEDB0OZm3tY3Oj40L5z4vynxflPy/Kf16U/7z4/A/iroDWDw7eRCmrBFH3918DgiHtevHHt8vqPihe
gWp1TF0E8HV6h8YvXfoG74ydj05tFCj/eVH+86L850X5z4vynxfL/1DuCrWQBOWmaoB4Vm1n5wXKbW09
s++yhRVMXY44pbqMMHw6xxOe11hQ/vOi/OdF+c+L8p8X5T8vlv+h3NW14m9lU0ZZq4Nd8KqAbCyHm0J1
k92ZBA7j/Ghfya/850X5z4vynxflPy/Kf14s/0O5K7JzOMsr+fGqRrQeTN3793+jQdTFzDar25enpp3d
4pX8mOjo7BYfjl/5zwjHr/xnhONX/jPC8Sv/GeH4lf+McPykayh3BXi3g9av5G+AFvb3X5u6NOvV7UvF
OmgfL7+x8WSneOv/6FD+86L850X5z4vynxflPy/kf0B3hSS32r2Sv5lQXTKOtAhM3odWF3DN9LW5+TQ6
tVGg/OdF+c+L8p8X5T8vyn9eSNqA7soePbZ8JX8Dpu7du+9Ql4+oC3XqUpnxBCxEmzrAWYz90a/ynwvl
Py/Kf16U/7wo/3kh/wO6K7Jzp/Ur+RtApxs3fkJaBEY20h2pa4pyMvSFW2dIUfKxUn5P81aDOvbo93Lx
Xb9xwfEr/xnh+JX/jHD8yn9GOH7lPyMcv/KfEY5/QHcFZLmXR79IxUBBXZz4zoWvUPfixa9tPcLfvPkz
W+/f/+3hwz8ePfqDkjVXr36HJG0kbIDdaWRj4wlDKjq1UaD850X5z4vynxflPy/Kf16GdVdmZjG2UdZm
hRZwxPfuTf6UN7parpGQNaaowTJr6JGt1MH2shA1VYbBR/tQOQoZJQymM2c+szMaF8p/XpT/vCj/eVH+
86L852VYd0XKcLUY3ihls0I7aOaVI+NIa7qaomiP8CYS9S9c+Ors2c8pqRy2E4GcWG/aBNs9qgDY552d
F2vjfPSr/OdF+c+L8p8X5T8vyn9ehnVXpAZ1SVyUsllBhoODN3fvvqM1k5CPJgmbLl9+hZDb289NTtMD
dSn5GDXloRGGyP37vzFEGB/IzI62e1iNj7j19fVPKO2kRoTynxflPy/Kf16U/7wo/3kZ0F3hcCnRgCSi
QZiyWWF3sn94+BaPbHJeuvSNKbq5+XRj4+np05+ywEqqYdXZxMfz57/kGKKmgBauFb9PYdJSMkpsiNAC
xxxWRt0rV76ltXPnvvCnNgqU/7wo/3lR/vOi/OdF+c8L5z7svSsg3eSRbIYp6wAtMEpQbnf3pVcUzpz5
DJuMkAjDVvw11fC5depimdGSauhq0vrRAJWPilnDMKIvf1IjQvnPi/KfF+U/L8p/XpT/jAzurjCqd+78
isZRymYFVQC18LAoihIsoAqi4m2tI3RFLdw6KyN12cruNtSoY9JixtmEcuvrnwAN4qAxy7aLhzV0tLb2
Ma2FpzYKlP+8KP95Uf7zovznRfnPyODuClD34OBNlLKplLMMCIkvRjxkoOWwDuKhLqYYddmKoUY2Uxdp
Mcis97qygIO2QYCu+GKk5SNt+gY99MIm6qCxP6kRofznRfnPi/KfF+U/L8p/LlK4K5IOZD/KWgdIdKXq
gIQIhrq4YzpFLbwzC9eu/cDYYr3XFZmpz1YEwxEj8M7OCwZEXcusZ1QxXMCf1IhQ/vOi/OdF+c+L8p8X
5T8XKdwVvpWMk+Uoa71z48ZP+HRAaQTb3X3JmsPDt/a7o+jKMoMMC4yiWGZgEGDGOcg6aQ0qMBqo709q
RCj/eVH+86L850X5z4vyn4sU7orskHESHeard1DUtERFFvDCrMEy8xFpWWB42a1I/DI6scAIaLDMIdRh
rLAj9aOzW3w4fuU/Ixy/8p8Rjl/5zwjHr/xnhONX/rOQwl0B3vmgj1fyl6FNZEPOm8H7+G8VL6jd33/N
GlvGICMnosKZM59hhE2nNtIC1RgZGxtPGBDheY0F5T8vyn9elP+8KP95Uf6zkMhdIa1luS6bbEKk69d/
pGTZQLkQv95qoijNMm7MICMqHpkFPqKr7U7XF4r3xpquCIyu6MT66ACa4bCvXv1ua+sZI8Of1IhQ/vOi
/OdF+c+L8p8X5T8LidwVeiADkkRZM1ACnVDl8PAtgwAwwsBKQCpKPtom2sERh4p6UW13VEdX9EBFryuq
oOtMfjmCHTHOa+N8Jb/ynxflPy/Kf16U/7wo/1lI5K5IKJKgU5QyAz2Qx0SiGiIBanlY73nw4HfPvXuT
d/OjKC0zROgIRS9e/BqfyzKu+XTxxrPt7eesZ2U3XQ32pWXUpSl/XmNB+c+L8p8X5T8vyn9elP8sJHJX
gAZYYHO1YdZYgza4YJSjAv4asVkTmWVK+2jtUAc5aerKlW9JN0KeO/fFZvG+V7SkO5pFjLPFWzewzJ11
ZUdaY2TQiHnnra1n/qRGhOVN+c+F5U35z4XlTfnPheVN+c+F5U35T0k6d4VgCHOt9Huhpq5tIoNIBSyQ
UMN2ZwEhrcLu7svz579ETsQzRc+c+QxYYCUVaIo2EQbVgd2jTpthR7Aew6Gzvv7JxsaTkf50Kf95Uf7z
ovznRfnPi/KfnnTuCquLBcYaR6kENqExymFOkQ23a5BTK4GcGqGWqGt12AsNMMs0QoOYaz9cGAqUHEDY
YxlTlGqmKHvRLO0jp4lKR7TvT2d0KP95Uf7zovznRfnPi/KfnnTuClAXSxul1SCzPq2AVAhmeJk9piXV
qI9y7GgWm0ZoioFCL7dv/0LJSiQB6tjWCK8o7VCNlhlADB0UPX36U5bpyPv3saP850X5z4vynxflPy/K
f2KSuqubxW8i4JTrEm25BhIKlnTTz+NzbfXLTaHujRs/4Z2tL3a3ccAuVsF6oR1TFMPO6EFR5ERU/DJr
2GS9LBPKf16U/7wo/3lR/vOi/Ccmqbu6VvxeKKVXYiAQFeOMwNev/0i/qIsF9uMDpfmIB9/cfLqx8WRt
7WOk5aONgCVG+c+L8p8X5T8vyn9elP/EJHVXuNo7w7+SH+iIMYR3Pih+SwIvvLX1DIMMWGMUxSPjlPmI
8N6MLz3Kf16U/7wo/3lR/vOi/CcmqbsC1CXjkRg9YvcqrS8T2OwziuKRMcvIbD7a6qwayn9elP+8KP95
Uf7zovynJLW7Qtpbja/k74Ypigv2j3K3i7du7O+/BuwzH1m59Pd+p6L850X5z4vynxflPy/Kf0pSuyv8
7O36V/LPBIoCimKEkQ1HjIR249FsMmvoDnXNPqM61ajMLuEhrRTKf16U/7wo/3lR/vOi/KcktbtClcPD
t50f/ZqitGOK7havNTNFy49yqckuSEt32GfbxQT2x7NqkBDlPyMkRPnPCAlR/jNCQpT/jJAQ5T8Zqd0V
4J0Pii+7hbI14xW1G48ourX191sxUBebzKawFy/wR8Xf9LZ7oSsocBnlPy/Kf16U/7wo/3lR/pORwV3t
F7+rSbojCSNMUURCNvRAP3zx5uZT5LQbjzvt3opBU15gPlprlCb/CqL850X5z4vynxflPy/KfzIyuCuy
fKfmlfwoCuTdTC6Kbh+9FQObTMlHvDONmPYtoWUTmAUap2UaoVzNHzDlPy/Kf16U/7wo/3lR/pORwV0h
DOrioENFWW+K2qPcra1npihOGcvsH+V2Zm/vewSmZJnWaJOBQo9hnRVB+c+L8p8X5T8vyn9elP9kZHBX
cOvWvw+Kt26Q38vFo9yd4oVj9igXzh69Dt+Enx/ascFEj3REFwi8mj9doPznRfnPi/KfF+U/L8p/GvK4
q+vF7xHglEnxZvEol3QjLX6WlVHlvrCBgnGmRxiuo8VH+c+L8p8X5T8vyn9elP805HFXeNirV78jxSiK
wGQ8qjAQdIpPpztc+Zy3OkeN8p8X5T8vyn9elP+8KP9pyOOu4Mpqv9UtO8p/XpT/vCj/eVH+86L8JyCb
uxJCCCGEWErkroQQQggh+kTuSgghhBCiT+SuhBBCCCH6RO5KCCGEEKJP5K6EEEIIIfpE7koIIYQQok/k
roQQQggh+kTuSgghhBCiT+SuhBBCCCH6RO5KCCGEEKJP5K6EEEIIIfpE7koIIYQQok/kroQQQggh+kTu
SgghhBCiT+SuhBBCCCH6RO5KCCGEEKJP5K6EEEIIIfpE7koIIYQQok/kroQQQggh+kTuSgghhBCiT+Su
hBBCCCH6RO5KCCGEEKJP5K6EEEIIIfpE7koIIYQQok/kroQQQggh+kTuSgghhBCiT+SuhBBCCCH6RO5K
CCGEEKJP5K6EEEIIIfpE7koIIYQQok/kroQQQggh+kTuSgghhBCiT+SuhBBCCCH6RO5KCCGEEKJP5K6E
EEIIIfpE7koIIYQQok/kroQQQggh+kTuSgghhBCiT+SuhBBCCCH6RO5KCCGEEKJP5K6EEEIIIfpE7koI
IYQQok/kroQQQggh+kTuSgghhBCiT+SuhBBCCCH6RO5KCCGEEKJP5K6EEEIIIfpE7koIIYQQok/kroQQ
Qggh+kTuSgghhBCiT+SuhBBCCCH6RO5KCCGEEKJP5K6EEEIIIfpE7koIIYQQok/G7a4+/PBfEK0UyVD+
86L850X5z4vynxflv5kRu6t//vO/btz4aX//9d7e99EmkQDlPy/Kf16U/7wo/3lR/qcyVneFZUbX+/d/
u337F2S+cuVbiOqI4VD+86L850X5z4vynxflvw1jdVcoeu/eu4cP/8A+7+6+3N5+fvnyq6iOGA7lPy/K
f16U/7wo/3lR/tswVneFqI8e/XHnzq9Y5nPnvtjYeDKPujhxiFaKBpT/vCj/eVH+86L850X5b8Mo3RXG
GV0xztev/2jS4p2vXv0uqtYM9ff2vmeU3Lr174ODNwyOS5e+ieqISpT/vCj/eVH+86L850X5b8ko3dW1
az/cvfvu3r13LCMttBQGRRkZjAnkRNTbt3+hvHnzZxrc2XmxtfUsqi8qUf7zovznRfnPi/KfF+W/JeNz
Vx9++C+0wTijyoULXyEt9hnZomoeNrHLRx/99/7+a1MU2JePyIyubKLC+fNfrq19vJT3J/tF+c+L8p8X
5T8vyn9elP/2jM9dYX7v3Pn1wYPfUeXs2c+RZHf3JRJGAqOTv/HoFWVYsMYUZStNGVSmEZq6ol98mIby
nxflPy/Kf16U/7wo/+0Zn7tCG4wzXLr0zfr6J6dPf4owXhWkChVlwRTFJkeKhqAurWHDcdC+I1GJ8p8X
5T8vyn9elP+8KP/tGZm7QgYsMNLeu/due/s5bndz8ynSIjkqmqiU1AlvPEZaVoL13tp6dubMZ1GPIkT5
z4vynxflPy/Kf16U/5kYmbtCMHR99OiPu3ffnT37Od75woWvENJERWBscntFQ2h8Z+cFwyXsTkQo/3lR
/vOi/OdF+c+L8j8TC+2u8LPhRzRD1AcPfkddFD19+lOzushpitbdeGwDrvzixa9R91K7X39YBZT/vCj/
eVH+86L850X5n5MRuCtkwzLfvPnz4eFbkxaNL19+tbHxFPtMnUinbqAubTJctrefh8ewyij/eVH+86L8
50X5z4vyPycL6q5IN3b44ODN7aMvx5m6SAsY53PnvsA77+y8sMq9wECh2Y2NJygdHswKQjaU/4yQDeU/
I2RD+c8I2VD+M0I2lP/5WSB3RU6xySiHll5UBLZHucAapMU+UxOTi3fe3X3JciQS0I7twkK0qQGaYris
rX2MzNGxrQLKf16U/7wo/3lR/vOi/PdOancVJY6E7u19bzceTdRQUbTxj3JZNnXttiTGeXPzKQteGFug
PvveufMr1WiKvSrlr4SaFy9+vb7+CYMmPMhlQvnPi/KfF+U/L8p/XpT/lHR0V/9oEdEuIaZBpCiuGZnR
w+3fX7QUmGpuh6qITiHCVaqKqOZMuCYaI9qlDZZ/t39/QQ75mbQbyA8fTm4gX7nyLT+BUf5d7f4iOrsO
uIYaI9qlPW7/miiPfz+jTc0Vc6WvaYT5d5VqItoRkAm9mDS3tp65SjURneDoaJ5/wvx7WM8Fg8RS+cKF
r7gGnCteUR1VazP+6wjzHx3wkqH850X5T0OXiZLp9T8tIpqFyR3ioaJXFHVNUSRBPEtxy8bbx//8z//Q
ppewgcquNzc3oxOpY87dy1Q2WI6W7Uf5Z68///zzbX/x+PFj2uSHlh9CfrT45wud7uy8sH+INCd5zmiZ
gTpaHlK3XiaNv3812b9Usqk8/ssUh/e+EjZFlX3+m/uN9vJwwNvbz5k63ZGXejTY5E9wLLScf+ogsQ+K
r/SyS8OXTqaO/2ao6fO/ZCj/eVH+0zPXhR/jUhc2/6IoypFxhERRYAGBWWOKlm3y1JZnDTwEbUa9VGJd
vw9iVm9UPvh53BWUG4yisnF/+7ch/+yIJfrrr79cQ/MFTZ06dYo26Y5e+AHjh5B/iPCjwg8YC1GS3W4z
Bvu6peNRmYSZqGvZx0xdhPm38/3P3smJs/FlYXEqx38lRSPmlv4u37/aY31U0+e/od9olxAOmH+Yrh39
SYqGfu0EF5M2479u/qmD8cw1A9jr7NnPz5z5jETRflRt6vhvJsr/SFH+86L858Xnv2mWZA5tDnflKYXb
XB9RTkPYyjXANdRHzOOuCLNHLaN85G3cle3bEK6tUrjN9WE/UfwzpfwTxVYsEY1gsDjsmohvWhxxLMgw
p2nuivb5AT48fEvJqfGjxQ/YpUvfREm2458pJudThPscBCvDfNZhuzeEa64UbnN9RB2RYbJt/0Zk68SX
hBbHysLotIxJzo/MjS8r3ZXP/2QvqllfQTnjeHb9slfUb3TKC0WY/7rxPxPsQlb5h/v9+78xdXJpAUZ1
+eoydfw3Q4NU3th4wo7hGY0L5T8vyn9efP5rZ8libp0S7uJTCre5Pmi8nFZbsH5dQ32EuavyOChjXTtX
FURxyK3CdRnEVHdlnTaHa6sUbnN90Ljd+C3/RLHJ3BXVHgdhN7QKC8WBHV2hPbbyP++pQ03b5dGjR95d
0RH/arlz51d+qlnmHyL8dF28+PX8+rKjWyoFm6KslrF+m8M1Vwq3uSao4A+AWezBg9+ZXPjRYn4hFa7f
yFpZSUxSerx0/rXMMWtFWemufP4r+0Umouikbb90YtDppFzse1fl/NeN/4ip8wPjmasLLTP7c2nhn+/+
K70hU8d/M1TjX+1bW89oPzq1UaD850X5z0uU/ynuyq4uXD0cneN4C9FVARnwvGarj/U7Lajsw60qhbkr
HHfYYyVUm1xkqoJGCBZokDp4C1uJw7DwW6PgYkazUW5DrFNXu++g8egcPWzisKlD72aSCNb8ba3ev2IN
x49tsmCZNcXFmGP+22CF7oqW+XnmR4sfMH6q+bk6d+4LfsZ8/svnyxoL97kqpm6NslqGOgPlmQz4A+Cf
LPfuvePninNnPLvzJWMQWauGsmSkKstKdwWW/8p+kYmo6NHK4+2bqQrxK/35Lhrl/LchnH+iTQabmDG5
upDY3d2XGxtPK7/SazSP/6lwFufPf7k2zj8JovznRfnPS5T/du6KMG/UeJGrjdK+/qqAnIjB0aAH5eSA
Wl8Freb79xPsCuc2HA98D5twxFPt81GDFTHxVsvurvhYtlZUC8NsFtf1SZ0jgxW5K0TEuSMoCzs7L/iH
Dj9gPv/UqTxf1rulUjRssqBClNUydf2W49Wr/5z8xyvP3h7CNu1IovwBcI5MQ/yMhXmm31pDc1SSQ2r6
4KNLMltryjp3ZflnU7nfou2ihWKN6RuWdX2dOHHCLy/yvaty/pspzz+VswRz5d3iF6aow6WCIW1/zD+q
ZjSP/6lQjQsYV5fLl1+FpzYKlP+8KP95ifLf2l0R5pCmXeriqNqLxq17ZMPkItvDhxPlfL+YFVe1Jqwa
YUaH6x9XQVa6zUHQFOvbeGdrs2gtjtA/UYeSZXNXVoYVwrCLVpjYCOvU1W4RJ0/uuaWjwNa4pVLQeHSO
HjZxzNSh97K14gp68uTkYlxc4ycZ4PrKR4IFwl37C4NlPix0V/v7rxlhdg95ff2T7e3nPv/UocfKU2aT
WwqicmUU1ImyWsb6dTvUROirWDbjzrgyj+UqlSJ0V8C0cnDwxv8rcNIvvgSOGx1fRr4qDDaFFicqG9wV
+WfTpBoEfRWt/sMvo52FVwQdK/tCcb+8yO4Kovw3U55/GKjlywCD+f7936jDAtcVRrV9LySqZjSP/6nQ
O9eVjY0n7OVPakQo/3lR/vMS5n8Wd0WYT2pxwXNRU5/G6ZsjMNlQF8dHWvHF1i8lZsXVLoXVIbgwTK78
xSXQLnKuRhC0w/ryiCljzRYNHgtasGCZBumU0tabqfILRfVJFD1Pol93ReWyuyLqDBb1o3P0sClyV5ST
K2hx+bTDxmAVfmsSnBSXWFba+sll2K6+/5nkwbsrC5Tl1PgJPHv2c35I+DHz+WcrrVlpBxlGsfffIkYf
64I6YUoroU5ljz7MRRlu1VHUrbeI3BUzC/90Y4oJzze0OL40mzI1JkbWUn28rHNXJB/YVO63aK9o4ejr
7eXStx+WbPLLC+6uovw3UDn/MFZpJKpJtQcPfufqwtWIf4hzzaBmuZph+Wdr5fhvA5ci68XOaFwo/3lR
/vMS5n9Gd0WYWyqueVySqVYXvqYPu5wXbbirwvXrP+Kd7Rc4caz4Yqs5ObKaA7D1RNla+fbD4NrvG7RO
67CWizb/jol1KoLGKd3aI2tFv7ZsBiWsQNC7XbGi3IZYp3aozUHNiQMI3FVoqioNVsMps4kDpiQ4+L29
yT0qu3xaMi04I0s1W/++y/LB5BHh5KpP/f+402QN9ssWqMKpISiwEP5oWQO2YAcZhVWoDFejFGyyTFpK
K2FrQ569f6q0UP6eVuUdLEuX74ifK4Y0A9uf78SXQCdrZVFpsOrclcGmSbWiL18Wjf197yr4Gf2fSYvB
R8P3NXFXx/v157toRPlvpjz/cNmI/p3NpYKtXF2Axpn3NzefNlxdDLZWjv82UJ8r00i/eqL850X5z0uY
/9pZcjILF1cjMwpciQmur5Or+NHsS9jWcvg67nMR1LcLEguWRw4Fo4dxPjh4g6jmrpBkcmRVl0NbSVRa
K8LVCwJ/wFbbkdL6rcTqFM26YF8LuuDcKa0XwtbYSgtWWmW3cxF9uSuqcaZc5qMLfGiqwmWLhvNlE0H+
KXFFHHyluyos1H/ol4Rzsm5tsUuxiYN37oq9qODdVdSdx29iwQ7Sx6RdsrF3kqVKCFf1eBRbnL5Rej1W
we1wPLyvAreqFL4CQ86tOgpLl++IqYGfLuYjf5r0G1qc0Oj4IHVua2FfLNXshy5WwaQJy+nuqtRv0VLR
glv+O7uTRl2Ofbj11J+4q+P9+vNdNKL8N1Oef8DmH4+/uvCvfD7yz3GuLrs1f2GtF2j5YvEnQSijs1t8
lP+8KP95CfPf5Wo0CZt6C0/D1TQKv9V9PnWKaliNyYTt9nZXBdTlOFAXjTksHLG/kVg+AFtDlK2Vla7e
8cDu2I62YP1WYtVot/BIf4edI1s/+OADs1OUrPFPyrj2sIZqbociiiPsx11Rx6yVnbJbexQcSbTggx2j
c/TYJnNXHDmVQ3fFmbKeE2SZfgkKS4JF5K6oRiOUU92VhzrFMbqYfCQV+ABOcNJDbbgdgmCl5ZCFKL0e
XycK8umdE2fq1pbC1ynnn7P2/TJDUd68+TMwK9lpTnxJYHEozTz5iLZOfI6tL8KW2cXU8eV0d0W1ok23
+/F7V7Y+CtPRhi4fi0OZ3MFC7qhfO99Fo5z/ZhrmH1+Hdrj2PHw4+QtrNM6lBWZ92DETtHyl+JMg5859
4U9tFCj/eVH+8xLlv+3ViNmWade7isn1uLgcgl31PX59uJJgF9q01liwPHIEN4o/+ni7+BUDHDEJtbuO
0QHw0Ucx+R+zVnZpZ9nVrgocDxW8hGXYSo/mjaIwk0ScPHmSDFiQB1wIwQIVXNXjMb+7ooK3VoS/unMA
dQs+2Dc6x4jJCDj6iptzV8VFlGRy5JQsF48FJzcw7HvuBKdMX6G7svzbXmyiTtRRGeoUxzgJljFVk9aO
LvmMNEvgq3/s2QJhpsTtUxVsjdLrYVNlnr1tAjLs1pYiNGFu1VFw1lG/DGnG87VrP9hpFrIF5um4rQnX
T8oja1UOl/CiDuV0d1X0y4L98Ph+4x73TjKAWc+JoCM/WihuohfV2ft/Ju7qeL/h+S4aYf6baZh/wjrM
lf7qwr/dgX/fD3d1ATriOnf69Kd2RuNC+c+L8p8Xn/+Zr0YWbGUWnsy7BWahJhen0hogqMwuXB397j6P
HATG2dRFVxwracW6RgfAx5Mn9+wCwHJkrSYHc3Sds/rl4PLMVt9vGbbSI9VokCgu6O4WFB/39ibf9cZh
EOYhKH34mraX351NNBvlNsQ6dYdYnGYUobWibHBXRLhMsHt0jmWow3FS+W93xQKXUmOysuj61Z5dgwlz
k8XWye+dcbJk3oL1s7qryQJJ4Epf/NYnB0M7RfImEborgk1+x3KwKUqvh02chat3FN4wQcONK2Imd8V8
xITFz5idpsvkkZUxj2jBsl9vpdtwFHFl6hwZrOnuimrF/SobVbY8WTg6hkmFol+WOQt0ZACbr/JR7FG4
q+P9hue7aIT5n0rd/OMrhFcX/m3KpYUrUPT0pHe4dHEwa2sf27+Gx4XynxflPy8+/9OvRky4TLsEMzLB
tZNltrJ+ci0v5m7gwh8uhxC2C6VdkFj2eUTU/f3XgGBIu1788e1Kd3V0AZis5GOwZmI4WM+FgZUcZLFH
HFyb2er7LcNWO1QfdkWnfQvW0PjETBWPAi04BsKqUdqOPqhJs1FuQ6xTd4hc70/ucZmPsLBkendFeC9V
XrBoPl+DOhw2la2TyUV0UtrCURy9G4kIrRUbyLllwIJNHAPVol7KUMcf5OQaf2QsOBiyitk5+WqPbZNj
KwYVCwRdUMd2LAebovR62MR5uHpH4Q0T2Liqi5ncFfDTdXDwxk5zksDAQrHGR7jeZ8CHtzI+Jjm3zM93
74rSrTzql7HKAI6sFVHUGtm9K/D5n0rd/OMr2NXlQfEKZqtjV5dB/+1O45cufcO/3XeLP4I7OpT/vCj/
ebH8z3Y1smATEzEXUS78k2tSMVN7zAR4CCqzC5dMt//xqz7iITDZ3Nl5gXJbW8/su2zRAfCRC4Ctodni
GCZOiMZtjV0YGq6+XJvDfstYjxOPUJg2H+xILxZ8ZGthq475KoIFqx/GrO7Ke6koLJlsrfydwQZ3NfVn
gDocOZXppchhaLCOPNaRJyhbK87R8mDR1V2571rRAgdDbilf/WPirgxbQ1DB71gONkXp9bCJ83D1iggN
U9kzhUHmZ3VXzFZMSQzsSb+kqzAxVrLGR7R+kmpnaFgutrpPLmyNlTPdu5qk5iisL1tjvbPAALafIBY4
KTsS1hS1RnbvCnz+p47/uvknrGBXF2bMlFcXrnBnz37O8YTnNRaU/7wo/3mx/E+/GplL4PLGVZNJlmU2
MQXz0S75YNM3+DUewnahLC5Gk+BjlE16xKsCsrHMGn8APmyNraTlojxmrSgbrr5cm8v9hlj7tBDG5OSP
DJa1w4IPv4YKVpNwexYxq7uqvHcVMqu7is6xDHU4eCpzGBx8kcnIYLnv5k+1VkRXdzX5PUGCFjiYsrvi
owUV/I7lYFOUXg+bwjwT3i0BiXVrUfPVXghrJmk/qhneO7SwQ4q6u1b8rXhK6/fkf155WOMjWk9NggVS
7Ckquji2/tVkU5RVD5t8vyxbGi0mg+Too6/AGLYfIs6IZRb4yAKb6Avpo36j8100fP6jtNTBLtH84wmv
LsmejACHcX60fxJE+c+L8p8Xy/8MVyMLm4iZoLnkmH+ymdpjKw3CJmiul27/IlgTpRKvavg1lQdgK239
pOuitKtCcTHo7d4VB4xRoGQZD8G+E990/D7W5GofhFWw3Qnbd1Z3xUeu3xHmq4xB3RUHzCkU+UQ8DgwV
J99qpw4x1VoR3dwV/03+VwSNcDxkL3RXUOR4KHflxtKro9dKeYoHYYbVtH3DsEOKuuMED4s/icAmczAe
1vg4SbN+09FDwInQ3kUVVsbH3+s5uBp3ZT9EbPIts0xqOP1JE0c/QSzYVpwT4ddbFD9Nk59cdrUKRNhv
dL6LBhmw/Pu0NFOefzx2dbl//zca5OrCP6abry6VjXSAdnaLPwnCP+Kjs1t8OH7lPyMcv/KfEY6fdE2/
GnER5VLHJZPplWXWM+3ykQvS5Jp0dPGLlg3CdqG0S5EFa8I8VuIPIApbb5voorACzlrZ9Z4KVjMKrs3N
/VrLtGCBUSA4dx9mHfzK6GMUvhGajXIbYp26QyzOLorIYHl3RdfRAhEuE8XuU34vlzpkhsr+3EljkVVn
sExB1K+zVuGy5YT6US9lqGMHSUyWCyxop7BS7vaVLVCynq1un6pga5ReD5vCPBPeWplnMmvlvZThzZZ9
bO+ugH+7TB69F/16ozNhz7koguVjmyYK/+2fALldVSqf3As31bkrg02u38K0kRo+hjFpMPB2fCTctiKK
FZP3XUWMwl2B5X/q+J8KLezvv7arC836q0tfV5E6aP/SpW82Np7sFH91ZHQo/3lR/vMy870rVpq14iKA
m+GzYV4qWkPYP3+xGm7/o2BllMoylQdgYZuISmtV7s6Cy3Nzv9YsjdCUtYZXwFWw3t68wIJF9JGwNQTL
7MKO1s6s7qocVAgNVoO7iqwVwb4fTfuTCNQhM1S2c7fgyMlqkV73inbzGbbSkhOGX9PZXU0+FljQFEcV
BmtY73aoCSpE6fWwKcpz6K6cl7L7VZ4jszUxmviQ4vHlpDwedmBRd8CUdKv4a8rewTiO7lFZHLt9Fbmr
6MZVeE+L45vmrqxBFiyxXl8WJqmYNPn3sbk2j0VsrRCXcizuyvI/dfxPJby6MONzaeECw7w/9NUF+Fc7
fW1uPo1ObRQo/3lR/vNC0qZfjbhwcn21KzcrMUyEzc5+1g7Dr6ca+04m6VKwMspjGX8AUbDermfWHRf7
yFoRrmoRXJhZb1doFqJeQqxNmiKsPkGzZrAop4ZVs2OwduZ3VwR1vMEKnwxaNLuruj+JwCa/wHFSmcOY
XHuPgpXk1t+7KtxV9QNBTpbS1nt3NfXfTNSxg7Tg42TNEZXhqpbCb2IhSq+HTVGey+4qxN+18tbK3BVM
7qgFwVlX9usevRf9ehPjCG5fEaHBMh8z4bi1Iv7eVFDprkg78ymwadJvzY0rCzb5rqPGK7FjGIu7svy3
/JMgDdjV5e7dd1xd+MjVBequLj7/U8d/GziLsX/1RPnPhfKfF/I/w9WIYKW5K7vMgH2Mwm8l7ModBeuj
PHr8JhYqD2ByPT9yV5XWKuoRh8QmwhZ8R+XBwVbaZHeicFaTr1hR0jieCd9Q9DwJKlhHhK1h6wcffGB1
bF/b2ou7IqhmBityV6GjqnRX/GBEp2mwibAFzo5D5TDsXHyYu8JncLLeXbltQbDVTtwWzF0xtip//KxT
W3BHGQQrfZgFKfyNrfg7XO2j8Cspo/R62BTleZLMwF25tUfhbRZeCl/FSJjsfjSqWe3q1bsrzvHOnV/Z
5J1TSNHM3zF5RFgYnYmPKTy023AUE28deZ0jd2UzGglHa3t1jb9nRmnHzMEThVzu3hVh52LH49o0/xSU
nknVUbkry3/d+G8P6b1x4ycuLVxgyDPTfXR1qcx/3fj3NG81qGNfPblcfNd4XHD8yn9GOH7lPyMc//Sr
EZdMgkumXYNZb/O1Tc114evYFSgKKoRJDLHdbcEOwAdr7PKAd7GPU60VQWXfoO+lEirQIy1YsGPhFf82
WARdFIdwLLAUbDKHYfUJa6Qvd0VQk0sspfs8zVoRVK579M4mDo+SsFPgY3E2f4e5Kzujqe7KTJVfuHr1
u8pn80WHTg53lMfDKkQxMQp/Oh/AgoXbodjFMhkmNoKt5Tz/7a6Kb7WHwRrbROswycLRPxssXL16dwXM
MmyiXzvyYxx/PtgmIoNlLoeJ7+bNn5lG79//7eHDPx49+oOSNWyiX0o7ZuBjFHYuNrAt7KMvaaBYPQlU
LvocjbsC8t/LV0+4VJBhri7Xr/+4c+Erri4XL35t6+vyXzf+Z4LdaWRj4wmXtOjURoHynxflPy+1s2Qx
t1Zd9f18PTXqa9J4lEeP9VvZOyu5knGlZ5mLHx/NELAwMVZV1oqgPhWiXkLMeoN1SoO0Q0wsUvAbgqz/
oPijN7iHKFhp7sR2sd0tenRXBJUJ9yEIjsEtHQ8q8wPGqUWnDGzi8Khjp0zs7U1ehR8GzZ48OfkzKRYs
s8ZtC4LMe1NlwXnx88A/O1go91upb7HfJMx5WElFFia+ypaPHIm91d3tWezr81nHZK9Snid3iQoLxYJb
VQwtv967K49F+HCQDLAm6s7gH3NscnaqzOwGq+yubEYzWL537x2K0zWb6IIyPHjTizxY2OlQjcbsJyiM
cCXq85Hw/YanubDYP6Yrx/9M0AL/Iie3NMh1xeZ6LiGsqct/3fgv4+efyqsgVykuZmfOfGZnNC6U/7wo
/3mpnSWZQCfzbxR+pm4ZNfVpPEqix/qt6LrYC+/CAtc/go92YbMLgHmFcrBLXXfIifVmNADjxrq2K1Bh
jf7+9hXuipL15qWiMM9hu4TByn7dFUF9t3QU9O6WSkFl/lVR+eidTRwhdfwpR2FnTYXiDpY9hHW35VyN
oyD53l3ZT/KFC1+dPfs5JScYdgqV52s+YPIo8Oi+1CRYLnyV+1hE8f2nyRehWHY7F6cZprSSyb5Vefb3
qHBU5qvCJ4aT20V7zmCF0ebJIJANNtGvs1OVHP8OVhR2t9KHt1be5diMxtzHALZJiiSTeTbRL6UdvIFM
BAtsIlgg7DBYCBv3+PVF3cmy9Rud6WJCNurG/0zQDlOEv3Iw43NpsetKXf7rxn9INP/YvhH8831n58VI
v3qi/OdF+c/LLO7KT9MzRdVeNB4l0VPRbxBsNWtFyTLRbK0I3ADVol4ALRki9+//xhBhfCAz1WjZHANR
GKS/DRZha8xM+LDKYQULW08Fmo1yG2KdumPtO2icny4GbnTuwCYOkjrhKUeBYZr13hVnZD8P/HTZb9KW
+7Xz9ePiiImXmlzEcVTHbdaRo0L4yU0jFibfhmKfo2DZ57OOSTv1eQ4dlTNVR3ezsJV0OjmOo4jsLBlg
ZdSdQSrY9LeRquPVXuSxJi9fOPoNwdBg2RrDXA4z1OXLr5jItref23Rm+WeTtcxCmOWQSZ3gW+1O5uNx
rMexuStSUTf+Z4IkHxy8uXv3Ha3ZJYSPdkmoy3/d+PeU5x92tN3Dany8ePHr9fVPKO2kRoTynxflPy+1
syQT6LGrkZ+UO0RpXxoPMxgS91sKKvgonFWTtSIwPdQMu2BAXCt+n8KkpWSUMESoRteFZaoI808+Cgfl
wta4eqWg2Si3IdapO9a+g8b5GWAQc8phBoBNHDl16N1MUhScUYd7V/yQ8E8lfsw2N5+eP/8l/8op92vn
yxXdj4uCyQ0hu1/1t8eicuiripKVFpMzLILlKKtlqDNPnjk2TpDew7tWFmSg8gA4d0rr1xxMG0I304y5
HPK8sfH09OlPWbh06Ruf/7/7rX/+6K1Vy35RmXIs7sryXzf+Z4LdSezh4VsmDbuckGq7otTlv278Q938
w160wDGHlbm6XLnyLa2dO/eFP7VRoPznRfnPC+fezl35a2DnON4CjYcZDDnWb1XgCcxUWZhFaAjcQNgd
lhktseHoatL60QDUrAuOCnsRhbkNwlWqiiixEVRoPt95gsYZ7oxjRrPPgMGmZndlYfeu/BfO3NrjgQre
XZFYfpj5d0bdT1d0vlzX/dBgkw/ntKi8dzK6deT2DIKVUVbLUKcuz+40WoTb4XiwvuEA2GQWp4kjiwOh
m5n4mGb+8Y8zZz7jn4mkmomJkezzP3S/0WkuLHXjf1ZogcSS4d3dl4xtu6JAXf7rxn/z/FP5VRXWcBmj
L39SI0L5z4vyn5F27up4sKlluB1KwaYogx42TXUb2AIfblV9mPXBL6OrDTUUNWkx4/SIcuvrn9jfBsdB
R3cmwQ7J+amjMFPlY+o9qjoazpdNLcPtUAo2ceJ37vzKiZdPyrLHwZtPrQt7RSql+1wK7IV3V+SWfy3x
kxb9dPn8U6fyfLnAH3ks9zWsMFylmqBClNUy1KnslyQUPbSKSoPV7K44cdu3IbzFgWMuZ1rYv/b4t511
xLwW5t9Vqg8S0q3f8AQXnLrxPyuMXmA823dsSS8LzfmvHP8d5h/W0NHa2se0Fp7aKFD+86L8Z2RmdzXT
3Eplt9vxYH2UQU9dv50D90CbGGRU97qygIO2QYCu+GKk5SPHXHk8uIc2QeXw9NtQd74zNUVlt9vxsEb4
6To4eFM+L4yFGaP5A4/l712RZ35I+AcNPzb208WPls8/dfrVl7DTbKau3zb7eqjsdgui2V1BZf4NOypv
cSKXY0YnrM9Exr8LGahkmJbDmYjJi9ltav5t/M/UL73QIz8jzHHheY2Fhvw3UJ7loa/8t59/QPn3KP8d
UP5zUXtVsPnXXUCOB5uiypVQze1QinDujrC9ivtBvQVtorrXFZnpCGeNYDhiBN7ZecGAqBxPwO4tI8pA
G9hr0DxTgUEPjP7opLAFWKK+Ao9Fm+SZf53QKT8tZJiFa9d+4Gfb5586defbOew0m6EONTnlcrTZHajm
dihFcwuV+TcJnMUJntbFz+DguNGpG6VMYXbLvTn/jP9Z+6VHZlWmS/AnNSLq8t+BXvI/6/yj/HuU/w4o
/7louiowvTZEVDnCVaqJKH0RrlJ/Yb87iq6Hh28ZZFhgs8zAIMCMc8B10hpUYDRQ359gj7ijrImocoSr
VBNWh383MOIZ5dFJuUr9xY0bP/HvJOAnjR+Y3d2XrCHnUf5d7f7CZ6MZV7smosoRrlJNRJUj6vIPbv/G
iHZpoGX+Gf+u6cYIW+Yshhv/Q9OQ/35pn/+Fmn+GRvnPi/Kfi7ZXpnkgO2ScRIf56h0UNS1RkQW8MGuw
zHxEWhYYXnYrEr+MTiwwAhoscwh1GCvsSP3o7BYfjl/5zwjHr/xnhONX/jPC8Sv/GeH4lf8spHBXgHc+
6OOV/GVoE9mQ82bwPv5bxQtq9/dfs8aWMcjIiahw5sxnGGHTqY20QDVGxsbGEwZEeF5jQfnPi/KfF+U/
L8p/XpT/LCRyV0hrWa7LJpsQ6fr1HylZNlAuxK+3mihKs4wbM8iIikdmgY/oarvT9YXivbGmKwKjKzqx
PjqAZjjsq1e/29p6xsjwJzUilP+8KP95Uf7zovznRfnPwuQLFtGqIUAPZECSKGsGSqATqhwevmUQAEYY
WAlIRclH20Q7OOJQUS+q7Y7q6IoeqOh1RRV0nckvR7AjxnltnK/kV/7zovznRfnPi/KfF+U/C4ncFQlF
EnSKUmagB/KYSFRDJEAtD+s9Dx787rl3b/JufhSlZYYIHaHoxYtf43NZxjWfLt54tr39nPWs7Karwb60
jLo05c9rLCj/eVH+86L850X5z4vyn4WJu0pjsNAAC2yuNswaa9AGF4xyVMBfIzZrIrNMaR+tHeogJ01d
ufIt6UbIc+e+2Cze94qWdEeziHG2eOsGlrmzruxIa4wMGjHvvLX1zJ/UiLC8Kf+5sLwp/7mwvCn/ubC8
Kf+5sLwp/8lw1soi2tY7CIYw10q/F2rq2iYyiFTAAgk1bHcWENIq7O6+PH/+S+REPFP0zJnPgAVWUoGm
aBNhUB3YPeq0GXYE6zEcOuvrn2xsPBnpT5fynxflPy/Kf16U/7wo/ylxpiqKqFKPYHWxwFjjKJXAJjRG
OcwpsuF2DXJqJZBTI9QSda0Oe6EBZplGaBBz7YcLQ4GSAwh7LGOKUs0UZS+apX3kNFHpiPb96YwO5T8v
yn9elP+8KP95Uf7T4IwU8Y9//P8IiVmRCup0FgAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="VMStatusBar.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>337, 17</value>
</metadata>
<metadata name="CDBrowser.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>452, 17</value>
</metadata>
<metadata name="MainMenu2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>563, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>61</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAAAAAoAQAANgAAACAgAAAAAAAAqAgAAF4BAAAwMAAAAAAAAKgOAAAGCgAAKAAAABAA
AAAgAAAAAQAEAAAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAd3d3AAAAAAAHd3AAAAAAAAd3cA
AAB3d3d4d3d3d3d3d3d3d3d3AAAAAAAAAAAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAIiIiIiIiIgAiI
iIiIiIiACIiIiIiIiIAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAAAAAAAAAAAPgfAAD8PwAA/D8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAIAAAAEAA
AAABAAgAAAAAAIAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDA
wADA3MAA8MqmAAQEBAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8
/wBQUP8AkwDWAP/szADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAz
zAAAM/8AAGYAAABmMwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADM
MwAAzGYAAMyZAADMzAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMz
MwAzM2YAMzOZADMzzAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZ
zAAzmf8AM8wAADPMMwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYA
ZgBmAJkAZgDMAGYA/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZ
AABmmTMAZplmAGaZmQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA
/wD/AMwAmZkAAJkzmQCZAJkAmQDMAJkAAACZMzMAmQBmAJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlm
zACZM/8AmZkzAJmZZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnM
ZgCZ/5kAmf/MAJn//wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxm
AADMZjMAmWZmAMxmmQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzM
mQDMzMwAzMz/AMz/AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8z
mQD/M8wA/zP/AP9mAAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/M
AAD/zDMA/8xmAP/MmQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//
ZgAhAKUAX19fAHd3dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgA8Pv/AKSg
oACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAoKCgoKCgoKCgoKBwcHBwcHBwcHBwoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcH
BwcKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgcHBwcHBwcHBwcHBwcH
B+zsBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhIS
EhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhIS
EhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhIS
EhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhIS
EhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgr/4Af///AP///wD///8A////AP/4AA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAB/////ygAAAAwAAAAYAAAAAEA
CAAAAAAAgAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDc
wADwyqYABAQEAAgICAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ
/wCTANYA/+zMAMbW7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz
/wAAZgAAAGYzAABmZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADM
ZgAAzJkAAMzMAADM/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMz
ZgAzM5kAMzPMADMz/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ
/wAzzAAAM8wzADPMZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYA
mQBmAMwAZgD/AGYzAABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZ
MwBmmWYAZpmZAGaZzABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8A
zACZmQAAmTOZAJkAmQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz
/wCZmTMAmZlmAJmZmQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/
mQCZ/8wAmf//AMwAAACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxm
MwCZZmYAzGaZAMxmzACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzM
zADMzP8AzP8AAMz/MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8z
zAD/M/8A/2YAAP9mMwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/M
MwD/zGYA/8yZAP/MzAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEA
pQBfX18Ad3d3AIaGhgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICA
gAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8ACgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcH
BwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHBwcHBwcHBwcKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
BwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcH
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcH
BwcHBwcHBwcHBwcHBwcHBwfs7AcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgcHBwcHBwcHBwcHBwcHBwcH
BwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcKBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK//4AAH//
AAD//wAA//8AAP//wAP//wAA///AA///AAD//8AD//8AAP//wAP//wAA///AA///AAD//8AD//8AAMAA
AAAAAwAAgAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAB
AADAAAAAAAMAAP///////wAA
</value>
</data>
</root>

64
frmVirtualMacintosh.vb Normal file
View File

@ -0,0 +1,64 @@
Option Strict Off
Option Explicit On
Friend Class frmVirtualMacintosh
Inherits System.Windows.Forms.Form
Public Sub mnuActionClose_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuActionClose.Click
Me.Close()
End Sub
Public Sub mnuCDCapture_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuCDCapture.Click
CDBrowser.ShowDialog()
If CDBrowser.FileName <> "" Then
MsgBox(CDBrowser.FileName)
mnuCDRelease.Enabled = True
End If
End Sub
Private Sub mnuCDRelease_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCDRelease.Click
CDBrowser.FileName = ""
mnuCDRelease.Enabled = True
End Sub
Public Sub mnuFloppyCapture_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuFloppyCapture.Click
FloppyBrowser.ShowDialog()
If FloppyBrowser.FileName <> "" Then
MsgBox(FloppyBrowser.FileName)
mnuFloppyRelease.Enabled = True
End If
End Sub
Private Sub mnuFloppyRelease_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFloppyRelease.Click
FloppyBrowser.FileName = ""
mnuFloppyRelease.Enabled = True
End Sub
Public Sub mnuHelpAbout_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuHelpAbout.Click
frmAbout.Show()
End Sub
Private Sub VMStatusBar_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles VMStatusBar.ItemClicked
End Sub
Private Sub VMStatusBar_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles VMStatusBar.Resize
'Me.Width = VMStatusBar.Width +
End Sub
Private Sub frmVirtualMacintosh_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim Close As Integer
Close = frmVirtualMacintoshClose.ShowDialog()
If Close = 2 Then
e.Cancel = True
Else
Me.Visible = False
End If
End Sub
Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
End Class

91
frmVirtualMacintoshClose.Designer.vb generated Normal file
View File

@ -0,0 +1,91 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmVirtualMacintoshClose
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVirtualMacintoshClose))
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel
Me.OK_Button = New System.Windows.Forms.Button
Me.Cancel_Button = New System.Windows.Forms.Button
Me.ShutdownHelp = New System.Windows.Forms.Label
Me.ShutdownIcon = New System.Windows.Forms.PictureBox
Me.TableLayoutPanel1.SuspendLayout()
CType(Me.ShutdownIcon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
resources.ApplyResources(Me.TableLayoutPanel1, "TableLayoutPanel1")
Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
'
'OK_Button
'
resources.ApplyResources(Me.OK_Button, "OK_Button")
Me.OK_Button.Name = "OK_Button"
'
'Cancel_Button
'
resources.ApplyResources(Me.Cancel_Button, "Cancel_Button")
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Name = "Cancel_Button"
'
'ShutdownHelp
'
resources.ApplyResources(Me.ShutdownHelp, "ShutdownHelp")
Me.ShutdownHelp.Name = "ShutdownHelp"
'
'ShutdownIcon
'
Me.ShutdownIcon.Image = Global.VirtualMac.My.Resources.Resources.Shutdown_Icon
resources.ApplyResources(Me.ShutdownIcon, "ShutdownIcon")
Me.ShutdownIcon.Name = "ShutdownIcon"
Me.ShutdownIcon.TabStop = False
'
'frmVirtualMacintoshDialog
'
Me.AcceptButton = Me.OK_Button
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.Controls.Add(Me.ShutdownHelp)
Me.Controls.Add(Me.ShutdownIcon)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmVirtualMacintoshDialog"
Me.ShowInTaskbar = False
Me.TableLayoutPanel1.ResumeLayout(False)
CType(Me.ShutdownIcon, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents ShutdownIcon As System.Windows.Forms.PictureBox
Friend WithEvents ShutdownHelp As System.Windows.Forms.Label
End Class

View File

@ -0,0 +1,297 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="TableLayoutPanel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Right</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="TableLayoutPanel1.ColumnCount" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="OK_Button.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>None</value>
</data>
<data name="OK_Button.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="OK_Button.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 3</value>
</data>
<data name="OK_Button.Size" type="System.Drawing.Size, System.Drawing">
<value>67, 23</value>
</data>
<data name="OK_Button.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="OK_Button.Text" xml:space="preserve">
<value>OK</value>
</data>
<data name="&gt;&gt;OK_Button.Name" xml:space="preserve">
<value>OK_Button</value>
</data>
<data name="&gt;&gt;OK_Button.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;OK_Button.Parent" xml:space="preserve">
<value>TableLayoutPanel1</value>
</data>
<data name="&gt;&gt;OK_Button.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Cancel_Button.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>None</value>
</data>
<data name="Cancel_Button.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Cancel_Button.Location" type="System.Drawing.Point, System.Drawing">
<value>76, 3</value>
</data>
<data name="Cancel_Button.Size" type="System.Drawing.Size, System.Drawing">
<value>67, 23</value>
</data>
<data name="Cancel_Button.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="Cancel_Button.Text" xml:space="preserve">
<value>Cancel</value>
</data>
<data name="&gt;&gt;Cancel_Button.Name" xml:space="preserve">
<value>Cancel_Button</value>
</data>
<data name="&gt;&gt;Cancel_Button.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Cancel_Button.Parent" xml:space="preserve">
<value>TableLayoutPanel1</value>
</data>
<data name="&gt;&gt;Cancel_Button.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="TableLayoutPanel1.Location" type="System.Drawing.Point, System.Drawing">
<value>170, 68</value>
</data>
<data name="TableLayoutPanel1.RowCount" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="TableLayoutPanel1.Size" type="System.Drawing.Size, System.Drawing">
<value>146, 29</value>
</data>
<data name="TableLayoutPanel1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;TableLayoutPanel1.Name" xml:space="preserve">
<value>TableLayoutPanel1</value>
</data>
<data name="&gt;&gt;TableLayoutPanel1.Type" xml:space="preserve">
<value>System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TableLayoutPanel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;TableLayoutPanel1.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="TableLayoutPanel1.LayoutSettings" type="System.Windows.Forms.TableLayoutSettings, System.Windows.Forms">
<value>&lt;?xml version="1.0" encoding="utf-16"?&gt;&lt;TableLayoutSettings&gt;&lt;Controls&gt;&lt;Control Name="OK_Button" Row="0" RowSpan="1" Column="0" ColumnSpan="1" /&gt;&lt;Control Name="Cancel_Button" Row="0" RowSpan="1" Column="1" ColumnSpan="1" /&gt;&lt;/Controls&gt;&lt;Columns Styles="Percent,50,Percent,50" /&gt;&lt;Rows Styles="Percent,50" /&gt;&lt;/TableLayoutSettings&gt;</value>
</data>
<data name="ShutdownHelp.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ShutdownHelp.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="ShutdownHelp.Location" type="System.Drawing.Point, System.Drawing">
<value>66, 32</value>
</data>
<data name="ShutdownHelp.Size" type="System.Drawing.Size, System.Drawing">
<value>222, 13</value>
</data>
<data name="ShutdownHelp.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="ShutdownHelp.Text" xml:space="preserve">
<value>Are you sure you want to shutdown this Mac?</value>
</data>
<data name="&gt;&gt;ShutdownHelp.Name" xml:space="preserve">
<value>ShutdownHelp</value>
</data>
<data name="&gt;&gt;ShutdownHelp.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ShutdownHelp.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;ShutdownHelp.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="ShutdownIcon.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="ShutdownIcon.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 12</value>
</data>
<data name="ShutdownIcon.Size" type="System.Drawing.Size, System.Drawing">
<value>48, 48</value>
</data>
<data name="ShutdownIcon.SizeMode" type="System.Windows.Forms.PictureBoxSizeMode, System.Windows.Forms">
<value>StretchImage</value>
</data>
<data name="ShutdownIcon.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="&gt;&gt;ShutdownIcon.Name" xml:space="preserve">
<value>ShutdownIcon</value>
</data>
<data name="&gt;&gt;ShutdownIcon.Type" xml:space="preserve">
<value>System.Windows.Forms.PictureBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ShutdownIcon.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;ShutdownIcon.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>328, 109</value>
</data>
<data name="$this.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterParent</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Virtual Mac</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmVirtualMacintoshDialog</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
</root>

View File

@ -0,0 +1,18 @@
Imports System.Windows.Forms
Public Class frmVirtualMacintoshClose
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub frmVirtualMacintoshDialog_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
OK_Button.Focus()
End Sub
End Class