Private Function RunsOnWin7() As Boolean
    Dim OS As System.OperatingSystem = System.Environment.OSVersion
    Dim Vers As Version = OS.Version
    Return OS.Platform = PlatformID.Win32NT AndAlso Vers.Major = 6 AndAlso _
      Vers.Minor = 1
End Function