Microsoft Windows Operating System Version Validation (XP

Private Sub GetOperatingSystemVersions()

        Dim OSVersion As System.OperatingSystem = 

         System.Environment.OSVersion
        If OSVersion.Version.Major.ToString.Trim <> "5" Then
            ''Not Windows XP

            System.Windows.MessageBox.Show

("Please Note: Only Computers which are using 

the Microsoft Windows XP System can use this 

Application at this time. The Application will 

be closed.", "Computer Operating System In Use 

Is Not Supported", MessageBoxButton.OK, 

MessageBoxImage.Exclamation)

            ''Stop App
            End
        End If
    End Sub