كيف اتعامل مع الهاردوير

Try using System.Windows.Forms.SystemInformation Class

I didn't try it yet, but i guess you'll find what you need in this class.

بص يا سيدى بخصوص السيريل نمر بتاع الهارد

Imports system.mangmaent

وبعدين تعرف object من

dim x as new MangmaentObjectSarcher("select * from win32_phiscalMedia")

dim f as MangmaentObject

For Each f in x.get

TextBox1.Text = f("serialNumber")

next

خد الكود لحد ما اتأكد منه من عندى

Imports system.Management

Dim x As New ManagementObjectSearcher("select * from win32_physicalmedia")

Dim h As ManagementObject

For Each h In x.Get

Me.TextBox1.Text = h("serialnumber").ToString

Next

Imports system.Management

Dim x As New ManagementObjectSearcher("select * from win32_physicalmedia")

Dim h As ManagementObject

For Each h In x.Get

Me.TextBox1.Text = h("serialnumber").ToString

Next