[AmeenRashed]

السلام عليكم

تم استخدام هذا الكود من أحد المبرمجين على فيجوال بيسك 10 إن لم يكن إصدار أقدم

وعندما حاولت اقتباس هذا الكود لاستخدامه  ظهر لى أربعة أخطاء كما هو ظاهر فى الصورة

المطلوب تكرماً إيضاح ما هى المكتبات الناقصة أو المتغيرات المطلوبة لتختفى هذه الأخطاء

شكراً لسعة صدركم

PHP كود :

Imports System.Management

Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    End Sub

    Public Shared Function GetVolumeSerial(ByVal ltr As Object) As String
        Dim obj2 As New ManagementObject($"win32_logicaldisk.deviceid="{ltr}:"")
        obj2.Get()
        Return obj2("VolumeSerialNumber").ToString
    End Function


End Class