ผมได้ส่งโค๊ดไว้ในกระทู้แล้วนี่นา หรือคุณใช้ฟังก์ชั่นไม่เป็น?
ผมลองใช้ใน vb หรือ access ก็ใช้ได้ไม่มีปัญหา

ให้คุณสร้าง module ใหม่ขึ้นมา เอาโค๊ดนี้ไปวาง แล้วเซฟชื่ออะไรก็ได้

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

Public Const MAX_FILENAME_LEN = 256


Public Function GetDriveSerialNumber(Drive As String) As String
'ตรวจสอบ Harddisk Serial ID
Dim No&, s As String * MAX_FILENAME_LEN
Call GetVolumeInformation(Drive + ":\", s, MAX_FILENAME_LEN, _
No, 0&, 0&, s, MAX_FILENAME_LEN)
GetDriveSerialNumber = Mid(Hex(No), 1, 4) & "-" & Mid(Hex(No), 5, 4)
End Function


ที่ฟอร์ม สร้างเท๊กซบ๊อกมา แล้วเขียนโค๊ดตามนี้

text1.text = GetDriveSerialNumber("C:")

มันจะคืนค่าซีเรี่ยลของไดรฟ์ซี กลับมาเป็น string


เรื่องการแปลงเลขฐาน10 ผมว่าคุณน่าจะเขียนฟังก์ชั่นแปลงได้นี่นา ไม่น่ายาก

ผมเอาไปรองกะ VB แล้วไอ้ตรงโมดูลอะครับ จะไปวางจรงไหนของ VB รบกวนแนะนำทีครับ

มัน Error บรรทัดนี้ครับ Public Const MAX_FILENAME_LEN = 256
แล้วอีกอันที่สงสัย text1.text = GetDriveSerialNumber("C:")
ไม่ทราบว่าตรง C: ต้องเป็น C:\ หรือป่าวครับ