VERSION 5.00
Begin VB.Form Form5 
   Caption         =   " Boot Sector Parameters"
   ClientHeight    =   7245
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5190
   Icon            =   "bsparams.frx":0000
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7245
   ScaleWidth      =   5190
   StartUpPosition =   3  'Windows Default
   Begin VB.Label Label34 
      Caption         =   "0"
      Height          =   255
      Left            =   4200
      TabIndex        =   59
      Top             =   360
      Width           =   975
   End
   Begin VB.Label Label33 
      Alignment       =   1  'Right Justify
      Caption         =   "Clusters:"
      Height          =   255
      Left            =   3360
      TabIndex        =   58
      Top             =   360
      Width           =   735
   End
   Begin VB.Label Label23 
      Height          =   255
      Index           =   26
      Left            =   1920
      TabIndex        =   57
      Top             =   6840
      Width           =   2000
   End
   Begin VB.Label Label23 
      Height          =   255
      Index           =   25
      Left            =   1920
      TabIndex        =   56
      Top             =   6600
      Width           =   2000
   End
   Begin VB.Label Label23 
      Height          =   255
      Index           =   24
      Left            =   1920
      TabIndex        =   55
      Top             =   6360
      Width           =   2000
   End
   Begin VB.Label Label23 
      Height          =   255
      Index           =   23
      Left            =   1920
      TabIndex        =   54
      Top             =   6120
      Width           =   2000
   End
   Begin VB.Label Label23 
      Height          =   255
      Index           =   22
      Left            =   1920
      TabIndex        =   53
      Top             =   5880
      Width           =   2000
   End
   Begin VB.Label Label23 
      Height          =   255
      Index           =   21
      Left            =   1920
      TabIndex        =   52
      Top             =   5640
      Width           =   2000
   End
   Begin VB.Label Label23 
      Height          =   255
      Index           =   20
      Left            =   1920
      TabIndex        =   51
      Top             =   5400
      Width           =   2000
   End
   Begin VB.Label Label32 
      Height          =   255
      Left            =   240
      TabIndex        =   50
      Top             =   6840
      Width           =   1600
   End
   Begin VB.Label Label31 
      Height          =   255
      Left            =   240
      TabIndex        =   49
      Top             =   6600
      Width           =   1600
   End
   Begin VB.Label Label30 
      Height          =   255
      Left            =   240
      TabIndex        =   48
      Top             =   6360
      Width           =   1600
   End
   Begin VB.Label Label29 
      Height          =   255
      Left            =   240
      TabIndex        =   47
      Top             =   6120
      Width           =   1600
   End
   Begin VB.Label Label28 
      Height          =   255
      Left            =   240
      TabIndex        =   46
      Top             =   5880
      Width           =   1600
   End
   Begin VB.Label Label27 
      Height          =   255
      Left            =   240
      TabIndex        =   45
      Top             =   5640
      Width           =   1600
   End
   Begin VB.Label Label26 
      Height          =   255
      Left            =   240
      TabIndex        =   44
      Top             =   5400
      Width           =   1600
   End
   Begin VB.Label Label25 
      Caption         =   "FAT"
      Height          =   255
      Left            =   4200
      TabIndex        =   43
      Top             =   120
      Width           =   855
   End
   Begin VB.Label Label24 
      Alignment       =   1  'Right Justify
      Caption         =   "File System Type:"
      Height          =   255
      Left            =   2760
      TabIndex        =   42
      Top             =   120
      Width           =   1335
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   19
      Left            =   1920
      TabIndex        =   41
      Top             =   5160
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   18
      Left            =   1920
      TabIndex        =   40
      Top             =   4920
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   17
      Left            =   1920
      TabIndex        =   39
      Top             =   4680
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   16
      Left            =   1920
      TabIndex        =   38
      Top             =   4440
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   15
      Left            =   1920
      TabIndex        =   37
      Top             =   4200
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   14
      Left            =   1920
      TabIndex        =   36
      Top             =   3960
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   13
      Left            =   1920
      TabIndex        =   35
      Top             =   3720
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   12
      Left            =   1920
      TabIndex        =   34
      Top             =   3480
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   11
      Left            =   1920
      TabIndex        =   33
      Top             =   3240
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   10
      Left            =   1920
      TabIndex        =   32
      Top             =   3000
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   9
      Left            =   1920
      TabIndex        =   31
      Top             =   2760
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   8
      Left            =   1920
      TabIndex        =   30
      Top             =   2520
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   7
      Left            =   1920
      TabIndex        =   29
      Top             =   2280
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   6
      Left            =   1920
      TabIndex        =   28
      Top             =   2040
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   5
      Left            =   1920
      TabIndex        =   27
      Top             =   1800
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   4
      Left            =   1920
      TabIndex        =   26
      Top             =   1560
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   3
      Left            =   1920
      TabIndex        =   25
      Top             =   1320
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   2
      Left            =   1920
      TabIndex        =   24
      Top             =   1080
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   1
      Left            =   1920
      TabIndex        =   23
      Top             =   840
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   0
      Left            =   1920
      TabIndex        =   22
      Top             =   600
      Width           =   2000
   End
   Begin VB.Label Label22 
      Caption         =   "A:"
      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            =   1080
      TabIndex        =   21
      Top             =   120
      Width           =   1695
   End
   Begin VB.Label Label21 
      Caption         =   "BS_FilSysType:"
      Height          =   255
      Left            =   240
      TabIndex        =   20
      Top             =   5160
      Width           =   1600
   End
   Begin VB.Label Label20 
      Caption         =   "BS_VolLab:"
      Height          =   255
      Left            =   240
      TabIndex        =   19
      Top             =   4920
      Width           =   1600
   End
   Begin VB.Label Label19 
      Caption         =   "BS_VolID:"
      Height          =   255
      Left            =   240
      TabIndex        =   18
      Top             =   4680
      Width           =   1600
   End
   Begin VB.Label Label18 
      Caption         =   "BS_BootSig:"
      Height          =   255
      Left            =   240
      TabIndex        =   17
      Top             =   4440
      Width           =   1600
   End
   Begin VB.Label Label17 
      Caption         =   "BS_Reserved1:"
      Height          =   255
      Left            =   240
      TabIndex        =   16
      Top             =   4200
      Width           =   1600
   End
   Begin VB.Label Label16 
      Caption         =   "BS_DrvNum:"
      Height          =   255
      Left            =   240
      TabIndex        =   15
      Top             =   3960
      Width           =   1600
   End
   Begin VB.Label Label15 
      Caption         =   "BPB_TotSec32:"
      Height          =   255
      Left            =   240
      TabIndex        =   14
      Top             =   3720
      Width           =   1600
   End
   Begin VB.Label Label14 
      Caption         =   "BPB_HiddSecs:"
      Height          =   255
      Left            =   240
      TabIndex        =   13
      Top             =   3480
      Width           =   1600
   End
   Begin VB.Label Label13 
      Caption         =   "BPB_NumHeads:"
      Height          =   255
      Left            =   240
      TabIndex        =   12
      Top             =   3240
      Width           =   1600
   End
   Begin VB.Label Label12 
      Caption         =   "BPB_SecPerTrk:"
      Height          =   255
      Left            =   240
      TabIndex        =   11
      Top             =   3000
      Width           =   1600
   End
   Begin VB.Label Label11 
      Caption         =   "BPB_FATSz16:"
      Height          =   255
      Left            =   240
      TabIndex        =   10
      Top             =   2760
      Width           =   1600
   End
   Begin VB.Label Label10 
      Caption         =   "BPB_Media:"
      Height          =   255
      Left            =   240
      TabIndex        =   9
      Top             =   2520
      Width           =   1600
   End
   Begin VB.Label Label9 
      Caption         =   "BPB_TotSec16:"
      Height          =   255
      Left            =   240
      TabIndex        =   8
      Top             =   2280
      Width           =   1600
   End
   Begin VB.Label Label8 
      Caption         =   "BPB_RootEntCnt:"
      Height          =   255
      Left            =   240
      TabIndex        =   7
      Top             =   2040
      Width           =   1600
   End
   Begin VB.Label Label7 
      Caption         =   "BPB_NumFATs:"
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   1800
      Width           =   1600
   End
   Begin VB.Label Label6 
      Caption         =   "BPB_RsvdSecCnt:"
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   1560
      Width           =   1600
   End
   Begin VB.Label Label5 
      Caption         =   "BPB_SecPerClus:"
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   1320
      Width           =   1600
   End
   Begin VB.Label Label4 
      Caption         =   "BPB_BytsPerSec:"
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   1080
      Width           =   1600
   End
   Begin VB.Label Label3 
      Caption         =   "BS_OEMName:"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   840
      Width           =   1600
   End
   Begin VB.Label Label2 
      Caption         =   "BS_jmpBoot:"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   600
      Width           =   1600
   End
   Begin VB.Label Label1 
      Caption         =   "Drive"
      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        =   0
      Top             =   120
      Width           =   735
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim TXT As String
Dim BPB_BytsPerSec As Integer
Dim BPB_SecPerClus As Integer
Dim BPB_RsvdSecCnt As Long
Dim BPB_NumFATs As Integer
Dim BPB_RootEntCnt As Integer
Dim BPB_TotSec16 As Long
Dim BPB_Media As Byte
Dim BPB_FATSz16 As Long
Dim BPB_SecPerTrk As Long
Dim BPB_NumHeads As Long
Dim BPB_HiddSec As Long
Dim BPB_FATSz32 As Long
Dim BPB_TotSec32 As Long
Dim BS_DrvNum As Byte
Dim BPB_RootClus As Long
Dim BPB_FSInfo As Integer
Dim BPB_BkBootSec As Integer
Dim FATSz As Long
Dim RootDirSectors As Long
Dim TotSec As Long
Dim DataSec As Long
Dim CountOfClusters As Long
Dim S1 As Long
Dim S2 As Long
Dim S3 As Long
Dim S4 As Long
Dim FSType As String
Dim BPB_TotSec64 As Double
Dim BPB_MFT_LCN As Double
Dim BPB_MFTMirr_LCN As Double
Dim BPB_ClusPerMFTRec As Integer
Dim BPB_ClusPerIndBuff As Integer

Private Sub Form_Load()
Rem 20/9/2009
Rem FreeDOS FAT16 Fix. FAT16 ClusterCount = 65540
Label22.Caption = DRV
TXT = Hex(BSBuffer(1))
If Len(TXT) < 2 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(0)) + " h  " + TXT + " h"
If Len(TXT) < 10 Then
   TXT = "0" + TXT
End If
Label23(0).Caption = TXT
TXT = Chr$(BSBuffer(3)) + Chr$(BSBuffer(4)) + Chr$(BSBuffer(5)) + Chr$(BSBuffer(6)) + Chr$(BSBuffer(7)) + Chr$(BSBuffer(8)) + Chr$(BSBuffer(9)) + Chr$(BSBuffer(10))
Label23(1).Caption = TXT
BPB_BytsPerSec = (BSBuffer(12) * 256) + BSBuffer(11)
Label23(2).Caption = CStr(BPB_BytsPerSec)
BPB_SecPerClus = CInt(BSBuffer(13))
Label23(3).Caption = CStr(BPB_SecPerClus)
BPB_RsvdSecCnt = (BSBuffer(15) * 256) + BSBuffer(14)
BPB_NumFATs = CInt(BSBuffer(16))
Label23(4).Caption = CStr(BPB_RsvdSecCnt)
S1 = CLng(BSBuffer(32))
S2 = CLng(BSBuffer(33))
S3 = CLng(BSBuffer(34))
S4 = CLng(BSBuffer(35))
BPB_TotSec32 = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
BPB_Media = BSBuffer(21)
If BPB_NumFATs = 2 And BPB_Media >= &HF0 And BPB_BytsPerSec = 512 Then
   Rem FAT 12 or 16 or 32
   Rem BPB_NumFATs = CInt(BSBuffer(16))
   Rem Label23(5).Caption = CStr(BPB_NumFATs)
   Label23(5).Caption = "2"
   BPB_RootEntCnt = (BSBuffer(18) * 256) + BSBuffer(17)
   Label23(6).Caption = CStr(BPB_RootEntCnt)
   BPB_TotSec16 = (BSBuffer(20) * 256) + BSBuffer(19)
   Label23(7).Caption = CStr(BPB_TotSec16)
   TXT = Hex(BPB_Media) + " h"
   If Len(TXT) < 2 Then
      TXT = "0" + TXT
   End If
   Label23(8).Caption = TXT
   BPB_FATSz16 = (BSBuffer(23) * 256) + BSBuffer(22)
   Label23(9).Caption = CStr(BPB_FATSz16)
   BPB_SecPerTrk = (BSBuffer(25) * 256) + BSBuffer(24)
   Label23(10).Caption = CStr(BPB_SecPerTrk)
   BPB_NumHeads = (BSBuffer(27) * 256) + BSBuffer(26)
   Label23(11).Caption = CStr(BPB_NumHeads)
   BPB_HiddSec = (CLng(BSBuffer(31)) * 16777216) + (CLng(BSBuffer(30)) * 65536) + (CLng(BSBuffer(29)) * 256) + CLng(BSBuffer(28))
   Label23(12).Caption = CStr(BPB_HiddSec)
   Label23(13).Caption = CStr(BPB_TotSec32)
   Rem RootDirSectors = CLng(((BPB_RootEntCnt * 32) + (BPB_BytsPerSec - 1)) / BPB_BytsPerSec)
   RootDirSectors = CLng(((BPB_RootEntCnt * 32) + 511) / 512)
   If BPB_FATSz16 <> 0 Then
      FATSz = BPB_FATSz16
   Else
      FATSz = BPB_FATSz32
   End If
   If BPB_TotSec16 <> 0 Then
      TotSec = BPB_TotSec16
   Else
      TotSec = BPB_TotSec32
   End If
   DataSec = TotSec - BPB_RsvdSecCnt + (BPB_NumFATs * FATSz) + RootDirSectors
   CountOfClusters = CLng(DataSec / BPB_SecPerClus)
   Rem Microsoft determination method for FAT type
   If CountOfClusters < 4085 Then
      FSType = "FAT12"
   Else
      If CountOfClusters < 65525 Then
         FSType = "FAT16"
      Else
         If BPB_FATSz16 = 0 Then
            FSType = "FAT32"
         Else
            Rem FreeDOS BugFix (for 128 MB hard disk image, FreeDOS FAT16 FS)
            Rem 20/9/2009
            Rem Out of Microsoft determination method in FAT32 FS Specification
            FSType = "FAT16"
         End If
      End If
   End If
   Label25.Caption = FSType
   If FSType <> "FAT32" Then
      Rem FAT 12, FAT 16
      Me.Height = 6400
      BS_DrvNum = BSBuffer(36)
      Label23(14).Caption = Hex(BS_DrvNum) + " h"
      Label23(15).Caption = Hex(BSBuffer(37)) + " h"
      Label23(16).Caption = Hex(BSBuffer(38)) + " h"
      TXT = Hex(BSBuffer(39))
      If Len(TXT) < 2 Then
         TXT = "0" + TXT
      End If
      TXT = Hex(BSBuffer(40)) + TXT
      If Len(TXT) < 4 Then
         TXT = "0" + TXT
      End If
      TXT = Hex(BSBuffer(41)) + "-" + TXT
      If Len(TXT) < 7 Then
         TXT = "0" + TXT
      End If
      TXT = Hex(BSBuffer(42)) + TXT
      If Len(TXT) < 9 Then
         TXT = "0" + TXT
      End If
      Label23(17).Caption = TXT
      TXT = Chr$(BSBuffer(43)) + Chr$(BSBuffer(44)) + Chr$(BSBuffer(45)) + Chr$(BSBuffer(46)) + Chr$(BSBuffer(47)) + Chr$(BSBuffer(48)) + Chr$(BSBuffer(49)) + Chr$(BSBuffer(50)) + Chr$(BSBuffer(51)) + Chr$(BSBuffer(52)) + Chr$(BSBuffer(53))
      Label23(18).Caption = TXT
      TXT = Chr$(BSBuffer(54)) + Chr$(BSBuffer(55)) + Chr$(BSBuffer(56)) + Chr$(BSBuffer(57)) + Chr$(BSBuffer(58)) + Chr$(BSBuffer(59)) + Chr$(BSBuffer(60)) + Chr$(BSBuffer(61))
      Label23(19).Caption = TXT
   Else
   Rem FAT 32
Label16.Caption = "BPB_FATSz32:"
BPB_FATSz32 = (CLng(BSBuffer(39)) * 16777216) + (CLng(BSBuffer(38)) * 65536) + (CLng(BSBuffer(37)) * 256) + CLng(BSBuffer(36))
Label23(14).Caption = CStr(BPB_FATSz32)
Label17.Caption = "BPB_ExtFlags:"
TXT = Hex(BSBuffer(40))
If Len(TXT) < 2 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(41)) + TXT
If Len(TXT) < 4 Then
   TXT = "0" + TXT
End If
Label23(15).Caption = TXT + " h"
Label18.Caption = "BPB_FSVer:"
TXT = Hex(BSBuffer(42))
If Len(TXT) < 2 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(43)) + TXT
If Len(TXT) < 4 Then
   TXT = "0" + TXT
End If
Label23(16).Caption = TXT + " h"
Label19.Caption = "BPB_RootClus:"
BPB_RootClus = CLng((BSBuffer(47) * 16777216) + (BSBuffer(46) * 65536) + (BSBuffer(45) * 256) + BSBuffer(44))
Label23(17).Caption = CStr(BPB_RootClus)
Label20.Caption = "BPB_FSInfo:"
BPB_FSInfo = CInt((BSBuffer(49) * 256) + BSBuffer(48))
Label23(18).Caption = CStr(BPB_FSInfo)
Label21.Caption = "BPB_BkBootSec:"
BPB_BkBootSec = CInt((BSBuffer(51) * 256) + BSBuffer(50))
Label23(19).Caption = CStr(BPB_BkBootSec)
Label26.Caption = "BPB_Reserved:"
TXT = Chr$(BSBuffer(52)) + Chr$(BSBuffer(53)) + Chr$(BSBuffer(54)) + Chr$(BSBuffer(55)) + Chr$(BSBuffer(56)) + Chr$(BSBuffer(57)) + Chr$(BSBuffer(58)) + Chr$(BSBuffer(59)) + Chr$(BSBuffer(60)) + Chr$(BSBuffer(61)) + Chr$(BSBuffer(62)) + Chr$(BSBuffer(63))
Label23(20).Caption = TXT
Label27.Caption = "BS_DrvNum:"
BS_DrvNum = BSBuffer(64)
Label23(21).Caption = Hex(BS_DrvNum) + " h"
Label28.Caption = "BS_Reserved1"
Label23(22).Caption = Hex(BSBuffer(65)) + " h"
Label29.Caption = "BS_BootSig:"
Label23(23).Caption = Hex(BSBuffer(66)) + " h"
Label30.Caption = "BS_VolId:"
TXT = Hex(BSBuffer(67))
If Len(TXT) < 2 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(68)) + TXT
If Len(TXT) < 4 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(69)) + "-" + TXT
If Len(TXT) < 7 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(70)) + TXT
If Len(TXT) < 9 Then
   TXT = "0" + TXT
End If
Label23(24).Caption = TXT
Label31.Caption = "BS_VolLab:"
TXT = Chr$(BSBuffer(71)) + Chr$(BSBuffer(72)) + Chr$(BSBuffer(73)) + Chr$(BSBuffer(74)) + Chr$(BSBuffer(75)) + Chr$(BSBuffer(76)) + Chr$(BSBuffer(77)) + Chr$(BSBuffer(78)) + Chr$(BSBuffer(79)) + Chr$(BSBuffer(80)) + Chr$(BSBuffer(81))
Label23(25).Caption = TXT
Label32.Caption = "BS_FilSysType:"
TXT = Chr$(BSBuffer(82)) + Chr$(BSBuffer(83)) + Chr$(BSBuffer(84)) + Chr$(BSBuffer(85)) + Chr$(BSBuffer(86)) + Chr$(BSBuffer(87)) + Chr$(BSBuffer(88)) + Chr$(BSBuffer(89))
Label23(26).Caption = TXT
End If
Label34.Caption = CStr(CountOfClusters)
Else
Rem NTFS
Me.Height = 5250
Label25.Caption = "NTFS"
Label33.Caption = ""
Label34.Caption = ""
Label7.Caption = "Always 0:"
Label23(5).Caption = 0
Label8.Caption = "BPB_Media:"
BPB_Media = BSBuffer(21)
TXT = Hex(BPB_Media) + " h"
If Len(TXT) < 2 Then
   TXT = "0" + TXT
End If
Label23(6).Caption = TXT
Label9.Caption = "Always 0:"
BPB_FATSz16 = (BSBuffer(23) * 256) + BSBuffer(22)
Label23(7).Caption = CStr(BPB_FATSz16)
Label10.Caption = "Always 0:"
Label23(8).Caption = CStr(BPB_TotSec32)
Label11.Caption = "BPB_TotSec64:"
S1 = CLng(BSBuffer(40))
S2 = CLng(BSBuffer(41))
S3 = CLng(BSBuffer(42))
S4 = CLng(BSBuffer(43))
BPB_TotSec64 = (S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1
S1 = CLng(BSBuffer(44))
S2 = CLng(BSBuffer(45))
S3 = CLng(BSBuffer(46))
S4 = CLng(BSBuffer(47))
BPB_TotSec64 = CDbl(((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1) * 4294967296#) + BPB_TotSec64
Label23(9).Caption = CStr(BPB_TotSec64)
Label12.Caption = "BPB_$MFT_LCN:"
S1 = CLng(BSBuffer(48))
S2 = CLng(BSBuffer(49))
S3 = CLng(BSBuffer(50))
S4 = CLng(BSBuffer(51))
BPB_MFT_LCN = (S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1
S1 = CLng(BSBuffer(52))
S2 = CLng(BSBuffer(53))
S3 = CLng(BSBuffer(54))
S4 = CLng(BSBuffer(55))
BPB_MFT_LCN = CDbl(((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1) * 4294967296#) + BPB_MFT_LCN
Label23(10).Caption = CStr(BPB_MFT_LCN)
Label13.Caption = "BPB_$MFTMirr_LCN:"
S1 = CLng(BSBuffer(56))
S2 = CLng(BSBuffer(57))
S3 = CLng(BSBuffer(58))
S4 = CLng(BSBuffer(59))
BPB_MFTMirr_LCN = (S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1
S1 = CLng(BSBuffer(60))
S2 = CLng(BSBuffer(61))
S3 = CLng(BSBuffer(62))
S4 = CLng(BSBuffer(63))
BPB_MFTMirr_LCN = CDbl(((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1) * 4294967296#) + BPB_MFTMirr_LCN
Label23(11).Caption = CStr(BPB_MFTMirr_LCN)
Label14.Caption = "BPB_ClusPerMFTRec:"
BPB_ClusPerMFTRec = CInt(BSBuffer(64))
Label23(12).Caption = CStr(BPB_ClusPerMFTRec)
Label15.Caption = "BPB_ClusPerIndBuff:"
BPB_ClusPerIndBuff = CInt(BSBuffer(68))
Label23(13).Caption = CStr(BPB_ClusPerIndBuff)
Label16.Caption = "BS_VolumeSerialNo:"
TXT = Hex(BSBuffer(72))
If Len(TXT) < 2 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(73)) + TXT
If Len(TXT) < 4 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(74)) + "-" + TXT
If Len(TXT) < 7 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(75)) + TXT
If Len(TXT) < 9 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(76)) + "-" + TXT
If Len(TXT) < 12 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(77)) + TXT
If Len(TXT) < 14 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(78)) + "-" + TXT
If Len(TXT) < 17 Then
   TXT = "0" + TXT
End If
TXT = Hex(BSBuffer(79)) + TXT
If Len(TXT) < 19 Then
   TXT = "0" + TXT
End If
Label23(14).Caption = TXT
Label17.Caption = ""
Label23(15).Caption = ""
Label18.Caption = ""
Label23(16).Caption = ""
Label19.Caption = ""
Label23(17).Caption = ""
Label20.Caption = ""
Label23(18).Caption = ""
Label21.Caption = ""
Label23(19).Caption = ""
End If
End Sub