Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click

    Dim os As OperatingSystem = Environment.OSVersion

    Label1.Text = os.Platform.ToString
    Label2.Text = os.Version.ToString
  End Sub

  Private Function IsWin32NT() As Boolean
    Dim os As OperatingSystem = Environment.OSVersion
    Dim thisOS As String = os.Platform.ToString()

    Select Case thisOS
      Case "Win32NT"
        Return True
      Case "Win32Windows"
        Return False
      Case Else
        MsgBox("Weder noch")
        Return False
    End Select
  End Function

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Label3.Text = IsWin32NT()
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button3.Click
    Me.Close()
  End Sub
End Class