Используя функцию GetVersionEx определить тип операционной системы

Public Class Form1
    Private Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long
 
Structure OSVERSIONINFO
        Public dwOSVersionInfoSize As Int32
        Public dwMajorVersion As Int32
        Public dwMinorVersion As Int32
        Public dwBuildNumber As Int32
        Public dwPlatformId As Int32
        <VBFixedString(128), Runtime.InteropServices.MarshalAs(Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=128)> _
        Public szCSDVersion As String
End Structure
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim OSV As OSVERSIONINFO
        OSV.dwOSVersionInfoSize = Len(OSV) 'Runtime.InteropServices.Marshal.SizeOf( OSV) ' ( ref typeof(OSVERSIONINFO)  
        GetVersionEx(OSV)
        'Dim s As String = OSV.dwMajorVersion
        TextBox2.Text = OSV.szCSDVersion.ToString
    End Sub
End Class