VB.NET версии Windows Проверка версии

TextBox1.AppendText("OS         : " & My.Computer.Info.OSFullName & vbNewLine & _
                            "Version    : " & My.Computer.Info.OSVersion & vbNewLine &
                            "Platform   : " & My.Computer.Info.OSPlatform & vbNewLine)
Helpful Hyena