[Taha Okla]

عليكم السلام ورحمة الله وبركاته

عليك أولا إضافة المكبة : System.Management

ثم استيرادها
-

كود :

Imports System.Management

- الكود بعد التصحيح :

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       MsgBox(GetVolumeSerial("C"))
   End Sub

   Public Shared Function GetVolumeSerial(ByVal ltr As String) As String

       Dim obj2 As ManagementObject = New ManagementObject("win32_logicaldisk.deviceid='" & ltr & ":'")
       obj2.Get()
       Return obj2("VolumeSerialNumber").ToString

   End Function