Определить запущена программа на виртуальной машине или на настоящей

    Function Virtual() As Boolean
        For Each R In New Management.ManagementObjectSearcher(New Management.ManagementScope("\\.\root\cimv2"), _
                    New Management.SelectQuery("Select Manufacturer from  Win32_BaseBoard")).Get
            Dim Manuf = R.Properties("manufacturer").Value.ToString.ToLower
            Return Manuf.Contains("microsoft corporation") Or Manuf.Contains("vmware") Or Manuf.Contains("virtual")
        Next
    End Function

     ...
        For Each R In New Management.ManagementObjectSearcher(New Management.ManagementScope("\\.\root\cimv2"), _
                    New Management.SelectQuery("Select Manufacturer from  Win32_BaseBoard")).Get
            Dim Manuf = R.Properties("manufacturer").Value.ToString.ToLower
            If Manuf.Contains("microsoft corporation") Or Manuf.Contains("vmware") Or Manuf.Contains("virtual") then
                MsgBox("Виртуальная машина")
            Else
                MsgBox("Не похоже на виртуальную машину :)")
            End If
        Next

Imports System.Management
Public Class Form1
    Dim a As String
    Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_MotherboardDevice")
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each wmi As ManagementObject In searcher.Get()
            a = (wmi("Name"))
        Next
        For Each R In New Management.ManagementObjectSearcher(New Management.ManagementScope("\\.\root\cimv2"), New Management.SelectQuery("Select Manufacturer from  Win32_BaseBoard")).Get
            Dim Manuf = R.Properties("manufacturer").Value.ToString.ToLower
            If Manuf.Contains("oracle") Or Manuf.Contains("microsoft corporation") Or Manuf.Contains("vmware") Or a = "VBOX CD-ROM" Then
                MsgBox("Виртуальная машина")
            Else
                MsgBox("Не похоже на виртуальную машину :)")
            End If
        Next
    End Sub
End Class