[elgokr]

اضافة لما قدمه اخى الغالى عبد العزيز البسكري

وحتى تعم الفائدة

فقط كل ما تحتاج اليه اضافة الـ Function التالى

كود :

   Function GetOsBitness() As String
       Dim Bit As Integer
       Dim ProcessorSet As Object
       Dim CPU As Object
       ProcessorSet = GetObject("Winmgmts:").ExecQuery("SELECT * FROM Win32_Processor")
       For Each CPU In ProcessorSet
           Bit = CStr(CPU.AddressWidth)
       Next
       Return Bit
   End Function

ويتم الاستخدام على هذا الشكل مثل 

كود :

MsgBox(GetOsBitness() & " Bit")

كود :

TextBox1.Text = GetOsBitness() & " Bit"

تحياتى لك

وتمنياتى لك لاتوفيق