[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

جرّب هذا الكود .. أخي الكريم ..

كود :

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

       'الكود الأول
       Dim Is64Bit As Boolean
       Is64Bit = Not String.IsNullOrEmpty(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITEW6432"))
       If Is64Bit Then
           TextBox1.Text = (My.Computer.Info.OSFullName + " 64-Bit")
       Else
           TextBox1.Text = (My.Computer.Info.OSFullName + " 32-Bit")
       End If

       'الكود الثاني
       If System.Environment.Is64BitOperatingSystem = True Then
           TextBox2.Text = ("OS System : 64 Bit Operating System")
       Else
           TextBox2.Text = ("OS System : 32 Bit Operating System")
       End If

   End Sub

تحياتي