Imports System.Management
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim mo As ManagementObject = New ManagementObject( _
        "Win32_LogicalDisk.DeviceID='C:'")
        For Each pd As PropertyData In mo.Properties
            If pd.Name = "VolumeSerialNumber" Then
                Me.Text = pd.Name & " = " & pd.Value.ToString
            End If
        Next
    End Sub
End Class