'Beispiel: VB .Net - Prüfen ob es sich um Windows XP handelt ' ' Imports System Imports System.Drawing Imports System.Windows.Forms Namespace VBDotNet_PruefenObEsSichUmWindowsXPHandelt Public Class MainForm Inherits System.Windows.Forms.Form Private button1 As System.Windows.Forms.Button Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() Me.button1 = New System.Windows.Forms.Button Me.SuspendLayout ' 'button1 ' Me.button1.Location = New System.Drawing.Point(8, 8) Me.button1.Name = "button1" Me.button1.Size = New System.Drawing.Size(280, 32) Me.button1.TabIndex = 0 Me.button1.Text = "&Test..." AddHandler Me.button1.Click, AddressOf Me.Button1Click ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 45) Me.Controls.Add(Me.button1) Me.Name = "MainForm" Me.Text = "Testform <Pruefen ob es sich um Windows XP handelt>" Me.ResumeLayout(false) End Sub #End Region Private Sub Button1Click(sender As System.Object, e As System.EventArgs) MessageBox.Show(IsWindowsXP.ToString(), "Info") End Sub Private Function IsWindowsXP() As Boolean Dim OS As OperatingSystem = Environment.OSVersion Dim Result As Boolean = OS.Platform = PlatformID.Win32NT AndAlso _ ((OS.Version.Major = 5 AndAlso _ OS.Version.Minor >= 1) OrElse _ OS.Version.Major > 5) If Result Then Return True Else Return False End If End Function End Class End Namespace