diff --git a/frmNewDisk.vb b/frmNewDisk.vb
deleted file mode 100644
index 7911518..0000000
--- a/frmNewDisk.vb
+++ /dev/null
@@ -1,86 +0,0 @@
-Option Strict Off
-Option Explicit On
-Friend Class frmNewDisk
-	Inherits System.Windows.Forms.Form
-	
-	Private Sub cmdBack_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdBack.Click
-		
-		If NewDisk2.Visible = True Then
-			cmdBack.Enabled = False
-			NewDisk2.Visible = False
-			NewDiskWizard.Visible = False
-			NewDisk1.Visible = True
-			GoTo EndNext
-		End If
-		
-		If NewDisk3.Visible = True Then
-			NewDisk3.Visible = False
-			Action.Text = "Disk Wizard"
-			ActionDescription.Text = "You can create a new virtual disk for your Macintosh."
-			NewDisk2.Visible = True
-			GoTo EndNext
-		End If
-		
-EndNext: 
-	End Sub
-	
-	Private Sub cmdCancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCancel.Click
-		Me.Close()
-	End Sub
-	
-    Private Sub cmdNext_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdNext.Click
-
-        If NewDisk1.Visible = True Then
-            NewDisk1.Visible = False
-            NewDiskWizard.Visible = True
-            NewDisk2.Visible = True
-            cmdBack.Enabled = True
-            FixedDisk.Focus()
-            GoTo EndNext
-        End If
-
-        If NewDisk2.Visible = True Then
-
-        End If
-
-EndNext:
-    End Sub
-	
-	Private Sub NewDisk3Browse_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles NewDisk3Browse.Click
-        Dim NewMac7VDName As Object = ""
-
-		BrowseSave.Filter = "Virtual Disk Files (*.dsk;*.img;*.vhd)|*.dsk;*.img;*.vhd|All files (*.*)|*.*"
-		BrowseSave.ShowDialog()
-		NewMac7VDName.Text = BrowseSave.FileName
-	End Sub
-	
-	Function VerifyKey(ByRef PressedKey As Object) As Object
-		
-		
-		Dim AllowedKeys As String
-		
-		AllowedKeys = "1234567890" & Chr(System.Windows.Forms.Keys.Back)
-		
-		'UPGRADE_WARNING: Couldn't resolve default property of object PressedKey. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
-		If InStr(1, AllowedKeys, Chr(PressedKey)) Then
-			
-			'UPGRADE_WARNING: Couldn't resolve default property of object PressedKey. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
-			'UPGRADE_WARNING: Couldn't resolve default property of object VerifyKey. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
-			VerifyKey = PressedKey
-		Else
-			'UPGRADE_WARNING: Couldn't resolve default property of object VerifyKey. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
-			VerifyKey = 0
-		End If
-		
-		
-	End Function
-	
-	'UPGRADE_WARNING: Event NewDisk3FileName.TextChanged may fire when form is initialized. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"'
-	Private Sub NewDisk3FileName_TextChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles NewDisk3FileName.TextChanged
-		
-		If NewDisk3FileName.Text = "" Then
-			cmdNext.Enabled = False
-		End If
-		
-	End Sub
-End Class
\ No newline at end of file