Private Declare Function GetVolumeInformation Lib "kernel32" Alias _
    "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _
    lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
    lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
    lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal _
    nFileSystemNameSize As Long) As Long

Private Sub Form_Load()
    Dim drvserialno As Long
    Dim mydrvlabel As String * 256
    Dim myfilesys As String * 256
    Dim i As Long
    Dim j As Long
    Dim x As Long
    x = GetVolumeInformation("C:\", mydrvlabel, 256, drvserialno, i, j,
    myfilesys, 256)
    MsgBox "Label of C Drive is " & mydrvlabel
    MsgBox "It's serial number = " & Hex(serialno)
    MsgBox "FileSystem = " & myfilesys
    End
End Sub