[elgokr]

فقط قم بحذف هذا الكود

كود :

   Private Shared Function mo(ByVal p1 As String) As Object
       Throw New NotImplementedException
   End Function

وفقط اجعل الكلاس يحتوى على

كود :

   Public Shared Function sec() As String
       Dim val As String = ""
       Dim ma As New ManagementObjectSearcher(" select * from win32_Diskdrive")
       Try
           For Each mo As managementobject In ma.get()
               val = mo("serialnumber").ToString
               Return val
           Next
       Catch ex As ManagementException
           Return ""
       End Try
       Return val
   End Function

وسيعمل معك بجلب الـ serialnumber

بدون اى مشكلة او ظهور اى رسالة خطاء

تحياتى لك

وتمنياتى لك التوفيق