VERSION 5.00
Begin VB.Form Form11 
   Caption         =   " Partition Table"
   ClientHeight    =   4545
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7245
   Icon            =   "partitiontable.frx":0000
   LinkTopic       =   "Form11"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4545
   ScaleWidth      =   7245
   StartUpPosition =   3  'Windows Default
   Begin VB.OptionButton Option4 
      Caption         =   "P 4"
      Height          =   195
      Left            =   6555
      TabIndex        =   79
      Top             =   1230
      Width           =   615
   End
   Begin VB.OptionButton Option3 
      Caption         =   "P 3"
      Height          =   195
      Left            =   6555
      TabIndex        =   78
      Top             =   990
      Width           =   615
   End
   Begin VB.OptionButton Option2 
      Caption         =   "P 2"
      Height          =   195
      Left            =   6555
      TabIndex        =   77
      Top             =   750
      Width           =   615
   End
   Begin VB.OptionButton Option1 
      Caption         =   "P 1"
      Height          =   195
      Left            =   6555
      TabIndex        =   76
      Top             =   510
      Width           =   615
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Close"
      Height          =   375
      Left            =   5880
      TabIndex        =   74
      Top             =   3840
      Width           =   1215
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Partition 4"
      Height          =   375
      Left            =   4440
      TabIndex        =   73
      Top             =   3840
      Width           =   1215
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Partition 3"
      Height          =   375
      Left            =   3000
      TabIndex        =   72
      Top             =   3840
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Partition 2"
      Height          =   375
      Left            =   1560
      TabIndex        =   71
      Top             =   3840
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Partition 1"
      Height          =   375
      Left            =   120
      TabIndex        =   70
      Top             =   3840
      Width           =   1215
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   63
      Left            =   6120
      TabIndex        =   63
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   62
      Left            =   5760
      TabIndex        =   62
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   61
      Left            =   5400
      TabIndex        =   61
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   60
      Left            =   5040
      TabIndex        =   60
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   59
      Left            =   4680
      TabIndex        =   59
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   58
      Left            =   4320
      TabIndex        =   58
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   57
      Left            =   3960
      TabIndex        =   57
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   56
      Left            =   3600
      TabIndex        =   56
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   55
      Left            =   3240
      TabIndex        =   55
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   54
      Left            =   2880
      TabIndex        =   54
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   53
      Left            =   2520
      TabIndex        =   53
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   52
      Left            =   2160
      TabIndex        =   52
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   51
      Left            =   1800
      TabIndex        =   51
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   50
      Left            =   1440
      TabIndex        =   50
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   49
      Left            =   1080
      TabIndex        =   49
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   48
      Left            =   720
      TabIndex        =   48
      Tag             =   "00"
      Top             =   1200
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   47
      Left            =   6120
      TabIndex        =   47
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   46
      Left            =   5760
      TabIndex        =   46
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   45
      Left            =   5400
      TabIndex        =   45
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   44
      Left            =   5040
      TabIndex        =   44
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   43
      Left            =   4680
      TabIndex        =   43
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   42
      Left            =   4320
      TabIndex        =   42
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   41
      Left            =   3960
      TabIndex        =   41
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   40
      Left            =   3600
      TabIndex        =   40
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   39
      Left            =   3240
      TabIndex        =   39
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   38
      Left            =   2880
      TabIndex        =   38
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   37
      Left            =   2520
      TabIndex        =   37
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   36
      Left            =   2160
      TabIndex        =   36
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   35
      Left            =   1800
      TabIndex        =   35
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   34
      Left            =   1440
      TabIndex        =   34
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   33
      Left            =   1080
      TabIndex        =   33
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   32
      Left            =   720
      TabIndex        =   32
      Tag             =   "00"
      Top             =   960
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   31
      Left            =   6120
      TabIndex        =   31
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   30
      Left            =   5760
      TabIndex        =   30
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   29
      Left            =   5400
      TabIndex        =   29
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   28
      Left            =   5040
      TabIndex        =   28
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   27
      Left            =   4680
      TabIndex        =   27
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   26
      Left            =   4320
      TabIndex        =   26
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   25
      Left            =   3960
      TabIndex        =   25
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   24
      Left            =   3600
      TabIndex        =   24
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   23
      Left            =   3240
      TabIndex        =   23
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   22
      Left            =   2880
      TabIndex        =   22
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   21
      Left            =   2520
      TabIndex        =   21
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   20
      Left            =   2160
      TabIndex        =   20
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   19
      Left            =   1800
      TabIndex        =   19
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   18
      Left            =   1440
      TabIndex        =   18
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   17
      Left            =   1080
      TabIndex        =   17
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   16
      Left            =   720
      TabIndex        =   16
      Tag             =   "00"
      Top             =   720
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   15
      Left            =   6120
      TabIndex        =   15
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   14
      Left            =   5760
      TabIndex        =   14
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   13
      Left            =   5400
      TabIndex        =   13
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   12
      Left            =   5040
      TabIndex        =   12
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   11
      Left            =   4680
      TabIndex        =   11
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   10
      Left            =   4320
      TabIndex        =   10
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   9
      Left            =   3960
      TabIndex        =   9
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   8
      Left            =   3600
      TabIndex        =   8
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   7
      Left            =   3240
      TabIndex        =   7
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   6
      Left            =   2880
      TabIndex        =   6
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   5
      Left            =   2520
      TabIndex        =   5
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   4
      Left            =   2160
      TabIndex        =   4
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   3
      Left            =   1800
      TabIndex        =   3
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   2
      Left            =   1440
      TabIndex        =   2
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   1
      Left            =   1080
      TabIndex        =   1
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label0 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   0
      Left            =   720
      TabIndex        =   0
      Tag             =   "00"
      Top             =   480
      Width           =   345
   End
   Begin VB.Label Label12 
      Alignment       =   1  'Right Justify
      Caption         =   "Partition Size in sectors"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4680
      TabIndex        =   87
      Top             =   1800
      Width           =   2175
   End
   Begin VB.Label Label11 
      Alignment       =   1  'Right Justify
      Height          =   1335
      Left            =   4680
      TabIndex        =   86
      Top             =   2160
      Width           =   2175
   End
   Begin VB.Label Label10 
      Alignment       =   1  'Right Justify
      Caption         =   "Beginning Sector"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2770
      TabIndex        =   85
      Top             =   1800
      Width           =   1695
   End
   Begin VB.Label Label9 
      Alignment       =   1  'Right Justify
      Height          =   1335
      Left            =   2760
      TabIndex        =   84
      Top             =   2160
      Width           =   1695
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      Caption         =   "Status"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1800
      TabIndex        =   83
      Top             =   1800
      Width           =   855
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      Height          =   1335
      Left            =   1800
      TabIndex        =   82
      Top             =   2160
      Width           =   855
   End
   Begin VB.Label Label6 
      Caption         =   "Partition Type"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   81
      Top             =   1800
      Width           =   1215
   End
   Begin VB.Label Label5 
      Height          =   1335
      Left            =   240
      TabIndex        =   80
      Top             =   2160
      Width           =   1335
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      X1              =   0
      X2              =   7200
      Y1              =   1680
      Y2              =   1680
   End
   Begin VB.Label Label4 
      Alignment       =   1  'Right Justify
      Caption         =   "Master Boot Sector"
      Height          =   255
      Left            =   4260
      TabIndex        =   75
      Top             =   120
      Width           =   2175
   End
   Begin VB.Label Label2 
      Caption         =   "Physical Disk 0"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1440
      TabIndex        =   69
      Top             =   120
      Width           =   2775
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Physical Disk :"
      Height          =   195
      Left            =   240
      TabIndex        =   68
      Top             =   120
      Width           =   1035
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      Caption         =   "1BE"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   240
      TabIndex        =   67
      ToolTipText     =   "Offset 1BEh (446)"
      Top             =   480
      Width           =   375
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      Caption         =   "1CE"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   240
      TabIndex        =   66
      ToolTipText     =   "Offset 1CEh (462)"
      Top             =   720
      Width           =   375
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      Caption         =   "1DE"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   2
      Left            =   240
      TabIndex        =   65
      ToolTipText     =   "Offset 1DEh (478)"
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      Caption         =   "1EE"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   3
      Left            =   240
      TabIndex        =   64
      ToolTipText     =   "Offset 1EEh (494)"
      Top             =   1200
      Width           =   375
   End
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim SystemId(3) As Byte
Dim BootIndicator(3) As Byte
Dim B(3) As Byte
Dim BeginningSector(3) As Double
Dim TotalSectors(3) As Double
Dim X As Integer
Dim SH As Integer
Dim SS As Integer
Dim sc As Integer
Dim EH As Integer
Dim ES As Integer
Dim EC As Integer

Private Sub Command1_Click()
If SystemId(0) = 0 Or (LogicalDisk = True And DF = True) Then Exit Sub
If DF = True Then
   Form12.Caption = " " + DRV + " - Partition 1 "
Else
   Form12.Caption = " PARTITION 1 "
End If
If BootIndicator(0) = &H80 Then
   Form12.Label11.Caption = "YES"
Else
   Form12.Label11.Caption = "NO"
End If
Form12.Label21.Caption = Label0(0).Caption + "h"
SH = Form1.HexToDecimal(Label0(1).Caption)
Form12.Label12.Caption = CStr(SH)
Form12.Label22.Caption = Form1.ByteToHex(CByte(SH)) + "h"
X = Form1.HexToDecimal(Label0(2).Caption)
SS = X And &H3F
Form12.Label13.Caption = CStr(SS)
Form12.Label23.Caption = Form1.ByteToHex(CByte(SS)) + "h"
sc = Form1.HexToDecimal(Label0(3).Caption)
sc = sc * 4
sc = sc Or ((X And &HC0) \ 64)
Form12.Label14.Caption = CStr(sc)
Form12.Label24.Caption = Hex(sc)
X = Len(Form12.Label24.Caption)
If X < 4 Then
   For X = X + 1 To 4
       Form12.Label24.Caption = "0" + Form12.Label24.Caption
   Next X
End If
Form12.Label24.Caption = Form12.Label24.Caption + "h"
Form12.Label15.Caption = GetPartitionTypeStr(SystemId(0))
Form12.Label25.Caption = Label0(4).Caption + "h"
EH = Form1.HexToDecimal(Label0(5).Caption)
Form12.Label16.Caption = CStr(EH)
Form12.Label26.Caption = Form1.ByteToHex(CByte(EH)) + "h"
X = Form1.HexToDecimal(Label0(6).Caption)
ES = X And &H3F
Form12.Label17.Caption = CStr(ES)
Form12.Label27.Caption = Form1.ByteToHex(CByte(ES)) + "h"
EC = Form1.HexToDecimal(Label0(7).Caption)
EC = EC * 4
EC = EC Or ((X And &HC0) \ 64)
Form12.Label18.Caption = CStr(EC)
Form12.Label28.Caption = Hex(EC)
X = Len(Form12.Label28.Caption)
If X < 4 Then
   For X = X + 1 To 4
       Form12.Label28.Caption = "0" + Form12.Label28.Caption
   Next X
End If
Form12.Label28.Caption = Form12.Label28.Caption + "h"
Form12.Label19.Caption = CStr(BeginningSector(0))
Form12.Label29.Caption = Hex(BeginningSector(0))
X = Len(Form12.Label29.Caption)
If X < 8 Then
   For X = X + 1 To 8
       Form12.Label29.Caption = "0" + Form12.Label29.Caption
   Next X
End If
Form12.Label29.Caption = Form12.Label29.Caption + "h"
Form12.Label20.Caption = CStr(TotalSectors(0))
Form12.Label30.Caption = Hex(TotalSectors(0))
X = Len(Form12.Label30.Caption)
If X < 8 Then
   For X = X + 1 To 8
       Form12.Label30.Caption = "0" + Form12.Label30.Caption
   Next X
End If
Form12.Label30.Caption = Form12.Label30.Caption + "h"
Form12.Show
End Sub

Private Sub Command2_Click()
If SystemId(1) = 0 Or (LogicalDisk = True And DF = True) Then Exit Sub
If DF = True Then
   Form12.Caption = " " + DRV + " - Partition 2 "
Else
   Form12.Caption = " PARTITION 2 "
End If
If BootIndicator(1) = &H80 Then
   Form12.Label11.Caption = "YES"
Else
   Form12.Label11.Caption = "NO"
End If
Form12.Label21.Caption = Label0(16).Caption + "h"
SH = Form1.HexToDecimal(Label0(17).Caption)
Form12.Label12.Caption = CStr(SH)
Form12.Label22.Caption = Form1.ByteToHex(CByte(SH)) + "h"
X = Form1.HexToDecimal(Label0(18).Caption)
SS = X And &H3F
Form12.Label13.Caption = CStr(SS)
Form12.Label23.Caption = Form1.ByteToHex(CByte(SS)) + "h"
sc = Form1.HexToDecimal(Label0(19).Caption)
sc = sc * 4
sc = sc Or ((X And &HC0) \ 64)
Form12.Label14.Caption = CStr(sc)
Form12.Label24.Caption = Hex(sc)
X = Len(Form12.Label24.Caption)
If X < 4 Then
   For X = X + 1 To 4
       Form12.Label24.Caption = "0" + Form12.Label24.Caption
   Next X
End If
Form12.Label24.Caption = Form12.Label24.Caption + "h"
Form12.Label15.Caption = GetPartitionTypeStr(SystemId(1))
Form12.Label25.Caption = Label0(20).Caption + "h"
EH = Form1.HexToDecimal(Label0(21).Caption)
Form12.Label16.Caption = CStr(EH)
Form12.Label26.Caption = Form1.ByteToHex(CByte(EH)) + "h"
X = Form1.HexToDecimal(Label0(22).Caption)
ES = X And &H3F
Form12.Label17.Caption = CStr(ES)
Form12.Label27.Caption = Form1.ByteToHex(CByte(ES)) + "h"
EC = Form1.HexToDecimal(Label0(23).Caption)
EC = EC * 4
EC = EC Or ((X And &HC0) \ 64)
Form12.Label18.Caption = CStr(EC)
Form12.Label28.Caption = Hex(EC)
X = Len(Form12.Label28.Caption)
If X < 4 Then
   For X = X + 1 To 4
       Form12.Label28.Caption = "0" + Form12.Label28.Caption
   Next X
End If
Form12.Label28.Caption = Form12.Label28.Caption + "h"
Form12.Label19.Caption = CStr(BeginningSector(1))
Form12.Label29.Caption = Hex(BeginningSector(1))
X = Len(Form12.Label29.Caption)
If X < 8 Then
   For X = X + 1 To 8
       Form12.Label29.Caption = "0" + Form12.Label29.Caption
   Next X
End If
Form12.Label29.Caption = Form12.Label29.Caption + "h"
Form12.Label20.Caption = CStr(TotalSectors(1))
Form12.Label30.Caption = Hex(TotalSectors(1))
X = Len(Form12.Label30.Caption)
If X < 8 Then
   For X = X + 1 To 8
       Form12.Label30.Caption = "0" + Form12.Label30.Caption
   Next X
End If
Form12.Label30.Caption = Form12.Label30.Caption + "h"
Form12.Show
End Sub

Private Sub Command3_Click()
If SystemId(2) = 0 Or (LogicalDisk = True And DF = True) Then Exit Sub
If DF = True Then
   Form12.Caption = " " + DRV + " - Partition 3 "
Else
   Form12.Caption = " PARTITION 3 "
End If
If BootIndicator(2) = &H80 Then
   Form12.Label11.Caption = "YES"
Else
   Form12.Label11.Caption = "NO"
End If
Form12.Label21.Caption = Label0(32).Caption + "h"
SH = Form1.HexToDecimal(Label0(33).Caption)
Form12.Label12.Caption = CStr(SH)
Form12.Label22.Caption = Form1.ByteToHex(CByte(SH)) + "h"
X = Form1.HexToDecimal(Label0(34).Caption)
SS = X And &H3F
Form12.Label13.Caption = CStr(SS)
Form12.Label23.Caption = Form1.ByteToHex(CByte(SS)) + "h"
sc = Form1.HexToDecimal(Label0(35).Caption)
sc = sc * 4
sc = sc Or ((X And &HC0) \ 64)
Form12.Label14.Caption = CStr(sc)
Form12.Label24.Caption = Hex(sc)
X = Len(Form12.Label24.Caption)
If X < 4 Then
   For X = X + 1 To 4
       Form12.Label24.Caption = "0" + Form12.Label24.Caption
   Next X
End If
Form12.Label24.Caption = Form12.Label24.Caption + "h"
Form12.Label15.Caption = GetPartitionTypeStr(SystemId(2))
Form12.Label25.Caption = Label0(36).Caption + "h"
EH = Form1.HexToDecimal(Label0(37).Caption)
Form12.Label16.Caption = CStr(EH)
Form12.Label26.Caption = Form1.ByteToHex(CByte(EH)) + "h"
X = Form1.HexToDecimal(Label0(38).Caption)
ES = X And &H3F
Form12.Label17.Caption = CStr(ES)
Form12.Label27.Caption = Form1.ByteToHex(CByte(ES)) + "h"
EC = Form1.HexToDecimal(Label0(39).Caption)
EC = EC * 4
EC = EC Or ((X And &HC0) \ 64)
Form12.Label18.Caption = CStr(EC)
Form12.Label28.Caption = Hex(EC)
X = Len(Form12.Label28.Caption)
If X < 4 Then
   For X = X + 1 To 4
       Form12.Label28.Caption = "0" + Form12.Label28.Caption
   Next X
End If
Form12.Label28.Caption = Form12.Label28.Caption + "h"
Form12.Label19.Caption = CStr(BeginningSector(2))
Form12.Label29.Caption = Hex(BeginningSector(2))
X = Len(Form12.Label29.Caption)
If X < 8 Then
   For X = X + 1 To 8
       Form12.Label29.Caption = "0" + Form12.Label29.Caption
   Next X
End If
Form12.Label29.Caption = Form12.Label29.Caption + "h"
Form12.Label20.Caption = CStr(TotalSectors(2))
Form12.Label30.Caption = Hex(TotalSectors(2))
X = Len(Form12.Label30.Caption)
If X < 8 Then
   For X = X + 1 To 8
       Form12.Label30.Caption = "0" + Form12.Label30.Caption
   Next X
End If
Form12.Label30.Caption = Form12.Label30.Caption + "h"
Form12.Show
End Sub

Private Sub Command4_Click()
If SystemId(3) = 0 Or (LogicalDisk = True And DF = True) Then Exit Sub
If DF = True Then
   Form12.Caption = " " + DRV + " - Partition 4 "
Else
   Form12.Caption = " PARTITION 4 "
End If
If BootIndicator(2) = &H80 Then
   Form12.Label11.Caption = "YES"
Else
   Form12.Label11.Caption = "NO"
End If
Form12.Label21.Caption = Label0(48).Caption + "h"
SH = Form1.HexToDecimal(Label0(49).Caption)
Form12.Label12.Caption = CStr(SH)
Form12.Label22.Caption = Form1.ByteToHex(CByte(SH)) + "h"
X = Form1.HexToDecimal(Label0(50).Caption)
SS = X And &H3F
Form12.Label13.Caption = CStr(SS)
Form12.Label23.Caption = Form1.ByteToHex(CByte(SS)) + "h"
sc = Form1.HexToDecimal(Label0(51).Caption)
sc = sc * 4
sc = sc Or ((X And &HC0) \ 64)
Form12.Label14.Caption = CStr(sc)
Form12.Label24.Caption = Hex(sc)
X = Len(Form12.Label24.Caption)
If X < 4 Then
   For X = X + 1 To 4
       Form12.Label24.Caption = "0" + Form12.Label24.Caption
   Next X
End If
Form12.Label24.Caption = Form12.Label24.Caption + "h"
Form12.Label15.Caption = GetPartitionTypeStr(SystemId(3))
Form12.Label25.Caption = Label0(52).Caption + "h"
EH = Form1.HexToDecimal(Label0(53).Caption)
Form12.Label16.Caption = CStr(EH)
Form12.Label26.Caption = Form1.ByteToHex(CByte(EH)) + "h"
X = Form1.HexToDecimal(Label0(54).Caption)
ES = X And &H3F
Form12.Label17.Caption = CStr(ES)
Form12.Label27.Caption = Form1.ByteToHex(CByte(ES)) + "h"
EC = Form1.HexToDecimal(Label0(55).Caption)
EC = EC * 4
EC = EC Or ((X And &HC0) \ 64)
Form12.Label18.Caption = CStr(EC)
Form12.Label28.Caption = Hex(EC)
X = Len(Form12.Label28.Caption)
If X < 4 Then
   For X = X + 1 To 4
       Form12.Label28.Caption = "0" + Form12.Label28.Caption
   Next X
End If
Form12.Label28.Caption = Form12.Label28.Caption + "h"
Form12.Label19.Caption = CStr(BeginningSector(3))
Form12.Label29.Caption = Hex(BeginningSector(3))
X = Len(Form12.Label29.Caption)
If X < 8 Then
   For X = X + 1 To 8
       Form12.Label29.Caption = "0" + Form12.Label29.Caption
   Next X
End If
Form12.Label29.Caption = Form12.Label29.Caption + "h"
Form12.Label20.Caption = CStr(TotalSectors(3))
Form12.Label30.Caption = Hex(TotalSectors(3))
X = Len(Form12.Label30.Caption)
If X < 8 Then
   For X = X + 1 To 8
       Form12.Label30.Caption = "0" + Form12.Label30.Caption
   Next X
End If
Form12.Label30.Caption = Form12.Label30.Caption + "h"
Form12.Show
End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Private Sub Form_Activate()
SystemId(0) = CByte(Form1.HexToDecimal(Label0(4).Caption))
SystemId(1) = CByte(Form1.HexToDecimal(Label0(20).Caption))
SystemId(2) = CByte(Form1.HexToDecimal(Label0(36).Caption))
SystemId(3) = CByte(Form1.HexToDecimal(Label0(52).Caption))
Label5.Caption = GetPartitionTypeStr(SystemId(0))
Label5.Caption = Label5.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + GetPartitionTypeStr(SystemId(1))
Label5.Caption = Label5.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + GetPartitionTypeStr(SystemId(2))
Label5.Caption = Label5.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + GetPartitionTypeStr(SystemId(3))
BootIndicator(0) = CByte(Form1.HexToDecimal(Label0(0).Caption))
BootIndicator(1) = CByte(Form1.HexToDecimal(Label0(16).Caption))
BootIndicator(2) = CByte(Form1.HexToDecimal(Label0(32).Caption))
BootIndicator(3) = CByte(Form1.HexToDecimal(Label0(48).Caption))
Label7.Caption = GetPartitionLoadingStatus(BootIndicator(0))
Label7.Caption = Label7.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + GetPartitionLoadingStatus(BootIndicator(1))
Label7.Caption = Label7.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + GetPartitionLoadingStatus(BootIndicator(2))
Label7.Caption = Label7.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + GetPartitionLoadingStatus(BootIndicator(3))
B(0) = CByte(Form1.HexToDecimal(Label0(8).Caption))
B(1) = CByte(Form1.HexToDecimal(Label0(9).Caption))
B(2) = CByte(Form1.HexToDecimal(Label0(10).Caption))
B(3) = CByte(Form1.HexToDecimal(Label0(11).Caption))
BeginningSector(0) = GetDoubleNumberFrom4Bytes(B(0), B(1), B(2), B(3))
B(0) = CByte(Form1.HexToDecimal(Label0(24).Caption))
B(1) = CByte(Form1.HexToDecimal(Label0(25).Caption))
B(2) = CByte(Form1.HexToDecimal(Label0(26).Caption))
B(3) = CByte(Form1.HexToDecimal(Label0(27).Caption))
BeginningSector(1) = GetDoubleNumberFrom4Bytes(B(0), B(1), B(2), B(3))
B(0) = CByte(Form1.HexToDecimal(Label0(40).Caption))
B(1) = CByte(Form1.HexToDecimal(Label0(41).Caption))
B(2) = CByte(Form1.HexToDecimal(Label0(42).Caption))
B(3) = CByte(Form1.HexToDecimal(Label0(43).Caption))
BeginningSector(2) = GetDoubleNumberFrom4Bytes(B(0), B(1), B(2), B(3))
B(0) = CByte(Form1.HexToDecimal(Label0(56).Caption))
B(1) = CByte(Form1.HexToDecimal(Label0(57).Caption))
B(2) = CByte(Form1.HexToDecimal(Label0(58).Caption))
B(3) = CByte(Form1.HexToDecimal(Label0(59).Caption))
BeginningSector(3) = GetDoubleNumberFrom4Bytes(B(0), B(1), B(2), B(3))
Label9.Caption = CStr(BeginningSector(0))
Label9.Caption = Label9.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + CStr(BeginningSector(1))
Label9.Caption = Label9.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + CStr(BeginningSector(2))
Label9.Caption = Label9.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + CStr(BeginningSector(3))
B(0) = CByte(Form1.HexToDecimal(Label0(12).Caption))
B(1) = CByte(Form1.HexToDecimal(Label0(13).Caption))
B(2) = CByte(Form1.HexToDecimal(Label0(14).Caption))
B(3) = CByte(Form1.HexToDecimal(Label0(15).Caption))
TotalSectors(0) = GetDoubleNumberFrom4Bytes(B(0), B(1), B(2), B(3))
B(0) = CByte(Form1.HexToDecimal(Label0(28).Caption))
B(1) = CByte(Form1.HexToDecimal(Label0(29).Caption))
B(2) = CByte(Form1.HexToDecimal(Label0(30).Caption))
B(3) = CByte(Form1.HexToDecimal(Label0(31).Caption))
TotalSectors(1) = GetDoubleNumberFrom4Bytes(B(0), B(1), B(2), B(3))
B(0) = CByte(Form1.HexToDecimal(Label0(44).Caption))
B(1) = CByte(Form1.HexToDecimal(Label0(45).Caption))
B(2) = CByte(Form1.HexToDecimal(Label0(46).Caption))
B(3) = CByte(Form1.HexToDecimal(Label0(47).Caption))
TotalSectors(2) = GetDoubleNumberFrom4Bytes(B(0), B(1), B(2), B(3))
B(0) = CByte(Form1.HexToDecimal(Label0(60).Caption))
B(1) = CByte(Form1.HexToDecimal(Label0(61).Caption))
B(2) = CByte(Form1.HexToDecimal(Label0(62).Caption))
B(3) = CByte(Form1.HexToDecimal(Label0(63).Caption))
TotalSectors(3) = GetDoubleNumberFrom4Bytes(B(0), B(1), B(2), B(3))
Label11.Caption = CStr(TotalSectors(0))
Label11.Caption = Label11.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + CStr(TotalSectors(1))
Label11.Caption = Label11.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + CStr(TotalSectors(2))
Label11.Caption = Label11.Caption + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + CStr(TotalSectors(3))
End Sub

Private Function GetPartitionTypeStr(PType As Byte) As String
Select Case PType
       Case &HC
       GetPartitionTypeStr = "FAT32 (0Ch)"
       Case &HB
       GetPartitionTypeStr = "FAT32 (0Bh)"
       Case &H7
       GetPartitionTypeStr = "NTFS (07h)"
       Case &H5
       GetPartitionTypeStr = "EXTENDED (05h)"
       Case &H83
       GetPartitionTypeStr = "LINUX (83h)"
       Case &H82
       GetPartitionTypeStr = "LINUX SWAP (82h)"
       Case &HA1
       GetPartitionTypeStr = "SINGLIX FS (A1h)"
       Case &HF
       GetPartitionTypeStr = "EXTENDED (0Fh)"
       Case &HE
       GetPartitionTypeStr = "FAT16 (0Eh)"
       Case &H6
       GetPartitionTypeStr = "FAT16 (06h)"
       Case &H4
       GetPartitionTypeStr = "FAT16 (04h)"
       Case &H63
       GetPartitionTypeStr = "SCO UNIX (63h)"
       Case &H2
       GetPartitionTypeStr = "XENIX (02h)"
       Case &H1
       GetPartitionTypeStr = "FAT12 (01h)"
       Case 0
       GetPartitionTypeStr = "NOT ALLOCATED"
       Case Else
       GetPartitionTypeStr = "UNKNOWN"
End Select
End Function

Private Function GetPartitionLoadingStatus(Status As Byte) As String
Select Case Status
       Case &H80
       GetPartitionLoadingStatus = "ACTIVE"
       Case Else
       GetPartitionLoadingStatus = ""
End Select
End Function

Public Function GetDoubleNumberFrom4Bytes(B1 As Byte, B2 As Byte, B3 As Byte, B4 As Byte) As Double
Dim S1 As Double
Dim S2 As Long
Dim S3 As Long
S1 = CDbl(B4)
S1 = S1 * 16777216
S2 = CLng(B3)
S2 = S2 * 65536
S3 = CLng(B2)
S3 = S3 * 256
GetDoubleNumberFrom4Bytes = S1 + S2 + S3 + B1
End Function

Private Sub Form_Load()
Rem 16-11-2008 Read Selected Partition's Boot Sector
Rem 23-11-2008 "0" has been changed to "Sector"
If Sector > 0 Then
   PBootSector = Sector
Else
   PBootSector = 0
   If LogicalDisk = True Or DF = False Then
      Rem It is Disk Sector, lock Boot Sector Selection
      Rem Because the Disk is a Logical Drive, not a Physical Disk
      Option1.Enabled = False
      Option2.Enabled = False
      Option3.Enabled = False
      Option4.Enabled = False
   End If
End If
End Sub

Private Sub Option1_Click()
PBootSector = PBootSector + BeginningSector(0)
End Sub

Private Sub Option2_Click()
PBootSector = PBootSector + BeginningSector(1)
End Sub

Private Sub Option3_Click()
PBootSector = PBootSector + BeginningSector(2)
End Sub

Private Sub Option4_Click()
PBootSector = PBootSector + BeginningSector(3)
End Sub