Dim mc As ManagementClass
        Dim moc As ManagementObjectCollection
        Dim mo As ManagementObject
        mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
        moc = mc.GetInstances() ' Get all network adapter instances
        For Each mo In moc
            If mo.Item("IPEnabled") = True Then
                TextBox1.Text = mo.Item("MacAddress").ToString()
            End If
            mo.Dispose()
        Next